habe ein Problem.
Ich habe eine Zelle, die einen Boolwert anzeigt. Nun möchte ich die aktuelle Uhrzeit in einer anderen Zelle speichern, wenn die Zelle von false auf True wechselt und dann wieder, wenn sie von True auf false springt.
Ich habe bisher die positive Flanke abgefragt mit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("G20") And Range("G20") = True Then
Cells(22, 1) = Time()
Cells(22, 2) = "TRUE"
End If
End Sub
Dies Funktioniert auch. Dann wollte ich die negative Flanke abfragen indem ich die selbe Sache _ nochmal mache, aber den Wert erst in die Zelle 23, 1 anzeigen lassen wenn in Zelle 22,1 die Zeit steht.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("G20") And Range() = Time() Then
Cells(23, 1) = Time()
Cells(23, 2) = "False"
End If
End Sub
Dies funktioniert nicht. Ausserdem kann ich den Worksheet_Change nur einmal programmieren. So bekomme ich nämlich einen Fehler, weil Worksheet_Change doppelt ist.
Da ich wenig Erfahrung mit Excel und VBA habe versuche ich es halt mit solchen Bauernsachen.
Habt ihr vieleicht ideen wie ich es besser machen kann oder anders?
Über eure Hilfe wäre ich sehr Dankbar.
Gruß Michel