Hallo,
ich habe einen Code der auch wunderbar funktioniert.
Er bewirkt das soweit ein Wert eingegeben wird eine Spalte weiter die aktuelle Uhrzeit notiert wird.
Wie müsste ich den Code ändern damit bei dem Wort "Steht" der erste Wert stehen bleibt und eine Spalte weiter die aktuelle Zeit gesetzt wird.
Im Anhang ein Bild um zu veranschaulichen was ich meine.
Vielen Dank vorab für eure Hilfe.
ich habe einen Code der auch wunderbar funktioniert.
Er bewirkt das soweit ein Wert eingegeben wird eine Spalte weiter die aktuelle Uhrzeit notiert wird.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E2:E20000,I2:I20000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else
Target.Offset(0, 1) = Format(Now, "hh:mm")
End If
End Sub
Wie müsste ich den Code ändern damit bei dem Wort "Steht" der erste Wert stehen bleibt und eine Spalte weiter die aktuelle Zeit gesetzt wird.
Im Anhang ein Bild um zu veranschaulichen was ich meine.
Vielen Dank vorab für eure Hilfe.