Guten Tag,
in meiner Tabelle soll in Spalte B das aktuelle Datum und Uhrzeit eingetragen werden, sobald in Spalte D ein Eintrag erfolgt.
Das funktioniert soweit super mit folgendem Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then
Target.Offset(0, -2).ClearContents
Else:
Target.Offset(0, -2) = CDate(Format(Now, "dd.mm.yyyy HH:MM"))
End If
End Sub
Jetzt hätte ich gerne das Excel mir in Spalte I erneut das aktuelle Datum+Uhrzeit einträgt WENN in Spalte H "Erledigt" seht.
Hintergrund: Ich hätte in meiner Tabelle gerne einen Überblick wie lange gewisse Arbeiten ab der "Erstmeldung" in anspruch nehmen, bis sie erledigt sind.
Leider schaffe ich es nicht beides in einem Code zu kombinieren, und hoffe ihr könnt mir hier weiter helfen.
|