Zelländerung erkennen, kein dop. Mauskl.
30.03.2020 15:40:25
Maximilian
Meine Aufgabe ist es, eine Zeile zu vergleichen und bei einer Änderung das Datum in die zweite Spalte vor die Zeile zu schreiben.
Das habe ich auch hinbekommen, der einzige Fehler der jetzt noch anliegt ist, dass ein Doppelklick auch als Änderung angesehen wird.
Hat hier vielleicht jemand einen Lösungsvorschlag?
Habe mich seit zwei Tagen erst mit VBA auseinander gesetzt. Der Wissensstand ist also noch ausbaufähig.
Hier mein bisheriger Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If not Intersect(Target, Range("A1:Q1000")) Is Nothing Then
If Target.Column 2 Then
Cells(Target.Row, 2) = Date
End If
End If
End Sub
Ich wäre über jeden Ratschlag oder Lösung dankbar.
M.f.G. Max