"x" per Doppelklick / 2. "x" löschen
14.10.2003 09:45:52
Carsten
mit folgendem Makro füge ich per Doppelklick ein "x" in eine Zelle ein bzw. lösche das "x" wieder.
Es soll innerhalb des Bereiches jedoch nur ein "x" pro Zeile zulässig sein. Wenn möglich soll, wenn ein zweites "x" in eine Zeile gesetzt wird, das erste gelöscht werden.
Hat jemand eine Idee?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range
Set RaBereich = Range("D6:AA146")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cancel = True
If Target.Value = "x" Then
Target.Value = ""
Else
Target.Value = "x"
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Gruß
Carsten