zuletzt berechnete Zelle ermitteln
29.07.2003 14:47:30
Matthias H.
nach Änderung eines Zellwertes wird in der benachbarten Zelle das Änderungsdatum gezeigt:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 12 Then
Target.Offset(0, 1) = "letzte Änderung am " & Date
End If
End Sub
Jetzt habe ich eine Bildlaufleiste eingefügt, mit der ich die Werte in der zu ändernden Zelle hochzählen kann. Da dies nun nicht mehr mit dem change Ereignis auswertbar ist, habe ich das calculate-Ereignis genommen:
Private Sub Worksheet_Calculate()
cells(?, ?) = "letzte Änderung am " & Date
End Sub
Mein Problem ist jetzt die geänderte Zelle zu finden, da sie ja nicht mehr markiert wird.
Gibt es eine Möglichkeit die Adresse der zuletzt berechneten Zelle zu ermitteln?
Vielen Dank
Gruß
Matthias
Anzeige