Hallo allerseits,

ich habe 2 Spalten (in einer Excel 2003 Liste) auf die es ankommt:
Spalte C (Wert1) und Spalte D (Wert2).

Ich möchte gerne Folgendes erreichen:

Wenn ich in eine Zelle in Spalte C einen Wert1 eintrage, soll der
Inhalt der rechts daneben befindlichen Zelle in Spalte D - also Wert2
gelöscht werden.
Genauso umgekehrt. Bei Änderungen in Spalte D soll die links neben
der aktiven Zelle befindliche Zelle in Spalte C gelöscht werden.

Ich habe da zwar schon einen Ansatz - aber wahrscheinlich nicht der
Richtige. Der Makro-Code wird bei Änderungen (Worksheet_Change) im
Tabellenblatt ausgeführt:

---
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wird Spalte D gefüllt (oder geändert), wird im Feld (links neben der aktiven Zelle) in Spalte C der Wert gelöscht
If Target.Column = 4 Then
Target.Offset(0, -1).Value = ClearContents
'Hiermit wird wieder auf die ursprünglich bearbeitete Zelle in Spalte D (zurück)gesprungen
Target.Select
'Wird Spalte C gefüllt (oder geändert), wird im Feld (rechts neben der aktiven Zelle) in Spalte D der Wert gelöscht
ElseIf Target.Column = 3 Then
Target.Offset(0, 1).Value = ClearContents
Target.Select
End If
End Sub
---

Allerdings kommt es hierbei zu einer Kreuz-Endlosschleife, da ja
jeweils die gegenüberliegenden Werte (immer wieder) geändert werden.

Nutze ich nur einen Part davon, also z. B.

---
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wird Spalte C gefüllt (oder geändert), wird im Feld (rechts neben der aktiven Zelle) in Spalte D der Wert gelöscht
If Target.Column = 3 Then
Target.Offset(0, 1).Value = ClearContents
Target.Select
End If
End Sub
---

funktioniert es genau so wie ich es mir wünsche - allerdings
eben nur in eine Richtung und nicht in Beide.

Für Verbesserungsvorschläge oder bessere Ideen wäre ich sehr dankbar!

Liebe Grüße

Karl