30.08.2023, 15:40 (Dieser Beitrag wurde zuletzt bearbeitet: 30.08.2023, 16:02 von Glausius.)
Hallo Leute, hoffe Ihr könnt mir helfen.
Wieso bekomme ich in der Zeile- Gelb markiert, siehe Anhang einen Fehler?
Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
If Intersect(Target, Range("C28:C80")) 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) = CDate(Format(Now, "dd.mm.yyyy hh:mm"))
End If
End Sub