Zeitstempel mit mehreren Bedingungen
28.04.2020 12:56:49
Digoloofy
dies ist mein Erster Eintrag in eurem Forum,
Ich hänge momentan an folgendem Problem:
ich habe mehrere Spalten, mit verschiedenen Bezeichnungen. Die Bezeichnung der Spalte A ist Datum, daraufhin kommen verschiedene Spalten mit diversen Namen bis einschließlich Spalte K. Die "Tabelle" soll laufend fortgeführt werden. Und jede Neue Zeile soll, wenn in
Spalte B,
oder Spalte C,
oder Spalte D ein Wert steht, ein Datum- und Zeitstempel bekommen. Allerdings, wenn diese Werte in den beschriebenen Spalten gelöscht werden, sollen auch die Stempel verschwinden.
Der Datumstempel soll in Spalte A geschrieben werden und der Zeitstempel soll in Spalte L geschrieben werden.
Mit Folgendem Code habe ich soweit eigentlich alles umgesetzt, aber die Datums -und Zeitstempel werden nur gesetzt wenn Spalte B einen Inhalt hat.
Kann mir jemand sagen wo mein Fehler liegt?
Vielen Dank schon mal im Voraus und nachführend mein bisheriger Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target.Value "" Then
Target.Offset(0, -1).Value = Format(Now, "dd.mm.yyyy")
Target.Offset(0, 10).Value = Format(Now, "hh.mm.ss")
Else
Target.Offset(0, -1).ClearContents
Target.Offset(0, 10).ClearContents
End If
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
If Target.Value "" Then
Target.Offset(0, -2).Value = Format(Now, "dd.mm.yyyy")
Target.Offset(0, 9).Value = Format(Now, "hh.mm.ss")
Else
Target.Offset(0, -2).ClearContents
Target.Offset(0, 9).ClearContents
End If
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
If Target.Value "" Then
Target.Offset(0, -3).Value = Format(Now, "dd.mm.yyyy")
Target.Offset(0, 8).Value = Format(Now, "hh.mm.ss")
Else
Target.Offset(0, -3).ClearContents
Target.Offset(0, 8).ClearContents
End If
End Sub