Optionsauswahl
29.04.2003 15:29:48
Markus
Ich habe drei verschiedene Zellen. Wenn in einer beliebigen der drei Zelle ein "X" eingetragen ist, sollen die beiden anderen auf "" gesetzt werden. Habe das ganze so vorgesehen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$14" Then
Range("D16").Value = ""
Range("D18").Value = ""
ElseIf Target.Address = "$D$16" Then
Range("D14").Value = ""
Range("D18").Value = ""
ElseIf Target.Address = "$D$18" Then
Range("D14").Value = ""
Range("D16").Value = ""
End If
End Sub
Der Rechner kommt nur leider nicht mehr aus der Schleife heraus, da immer eine der Zellen geändert wird. Kann mir jemand helfen.
Markus