Excel 2003 - Intersect
09.12.2005 14:14:20
Torsten
in Excel2000 konnte ich mit dem nachfolgenden Code in zwei Zellen (E11 und G11)trotz eines Blattschutzes durch ein Doppelklick in die entsprechende Zelle ein "ja" in ein "nein" umwandeln bzw. umgekehrt. Nach der Umstellung auf Excel2003 funktioniert das leider nicht mehr.
Könnt Ihr mir weiterhelfen?
Vielen Dank im voraus.
Gruß
Torsten
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'setzt bei Doppelklick ein "ja" in die Zelle
Dim RaBereich As Range
Set RaBereich = Range("E11, G11")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
Sheets("FORM").Unprotect password:="PW"
'Abbruch, wenn Aktion nicht im Zielbereich
Application.EnableEvents = False
On Error GoTo errHandler
Cancel = True
If Target.Value = "ja" Then
Target.Value = "nein"
Else
Target.Value = "ja"
End If
Sheets("FORM").Protect password:="PW"
errHandler:
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Anzeige