X nur in einer Zelle
03.02.2006 17:08:15
Heinz
Habe unteren Code in der Recherche gefunden,nur etwas abgeändert.
Der bewirkt das man bei Doppelklick in den angegebenen Zellen ein "X"setzen kann,bei weiteren Doppelklick wieder herausnimmt.
Nur möchte ich wenn das in den Zellen H9,J9,L9,usw also Zelle 9 nur ein "X" gestzt wird.
Ebenso bei Zellen 12
Zb. Wenn J9 schon "X" steht nun mache ich ein "X" in H9 dann sollte das "X" in J9 automatisch herausgenommen werden.Also immer nur ein "X" stehen.
Könnte mir Bitte jemand dabei Helfen ?
Danke,Heinz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'* H. Ziplies *
'* 12.11.02 *
'* erstellt von Hajo.Ziplies@web.de *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
' x in die Zelle
Dim RaBereich As Range
Set RaBereich = Range("H9,J9,L9,N9,P9,R9,T9,H12,J12,L12,N12,P12,R12,T12")
Set RaBereich = Range("H9,J9,L9,N9,P9,R9,T9,H12,J12,L12,N12,P12,R12,T12")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
' Abbruch, wenn Aktion nicht im Zielbereich
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