|
Hallo zusammen,
ich habe ein Problem und komme derzeit einfach nicht weiter...
Ich möchte auf meinem Tabellenblatt für die Zeilen 2 bis 500 überprüfen, ob etwas (in der gesamten Zeile, außer Spalte B) geändert wurde. Wenn etwas geändert wurde, dann soll in Spalte B in der entsprechenden Zeile das aktuelle Datum eingefügt werden.
Kann mir bitte jemand weiterhelfen? :)
Mein Code sieht bisher so aus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i As Integer
For i = 2 To 500
If Intersect(Target, Range("A" & i, "C" & i & ":Y" & i)) Is Nothing Then
Exit Sub
Else: Cells(i, "B") = Date
End If
Next i
End Sub
Danke im Voraus! Gruß Steffi
|