VBA - Erst nach Änderung einer Zelle --> ander Zellen leeren
18.07.2025 14:37:01
Chrstn
bei folgendem Problem komme ich leider nicht weiter:
Wenn in Zelle I der Wert geändert wird, sollen sich die Zellen M und O der gleichen Zeile automatisch leeren.
Genauso soll sich Zelle O automatisch leeren, wenn sich der Wert in Spalte M ändert.
Das funktioniert soweit auch mit folgenden VBA- Befehlen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zeile As Long
Application.EnableEvents = False
On Error GoTo Ende
If Not Intersect(Target, Me.Columns("I")) Is Nothing Then
For Each cell In Intersect(Target, Me.Columns("I"))
Zeile = cell.Row
Me.Cells(Zeile, "M").ClearContents
Me.Cells(Zeile, "O").ClearContents
Next cell
End If
If Not Intersect(Target, Me.Columns("M")) Is Nothing Then
For Each cell In Intersect(Target, Me.Columns("M"))
Zeile = cell.Row
Me.Cells(Zeile, "O").ClearContents
Next cell
End If
Ende:
Application.EnableEvents = True
End SubNur sollten sich die genannten Zellen wirklich erst bei einer Änderung leeren, aktuell werden die Zellen bereits geleert, wenn ich nur auf Zelle I (oder M) klicke, ohne wirklich etwas zu ändern.
Gibt es da eine Möglichkeit?
Beste Grüße
Christian
Anzeige