Zellen sollen sich gegenseitig ersetzen
15.03.2019 20:29:03
Edwin
ich traue mich fast nicht folgende Frage zu stellen, aber ich komme einfach nicht weiter.
Wenn ich in A1 100 schreibe, dann möchte ich dass A2 geleert wird.
Wenn ich in A2 100 schreibe, dann möchte ich dass A1 geleert wird.
Mit folgendem Code fabriziere ich logischerweise eine Endlosschleife.
https://www.herber.de/bbs/user/128426.zip
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Range("A2") = ""
End If
If Not Application.Intersect(Target, Range("A2")) Is Nothing Then
Range("A1") = ""
End If
End Sub
Gruß
Edwin