Hallo zusammen,
ich habe folgenden Code wo die Änderung von Spalte B überwacht wird und in spalte A das Datum der Änderung gepflegt wird.
Jetzt würde ich noch gerne die Spalte P überwachen allerdings soll das Datum in Spalte Q geschrieben werden.
Kann mir da jemand helfen. Ich habe leider absolut keine Ahnung von Visual Basic.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B10000")) 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"))
End If
End Sub
|