Worksheet_BeforeDoubleClick
08.07.2013 15:22:23
Wolfgang
ich möchte in einem geschützten Tabellenblatt bei einem
Doppelklick auf bestimmte Zellen ( F18 bis 22 )
in der jeweiligen Reihe die Zellen B18 bis B22 von O auf 1
oder zurück ändern.
Egal was ich mache, ich bekomme immer die Meldung: die Zelle ist schreibgeschützt
Hier mal mein Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
For Reihe = 18 To 22
If Target.Row = Reihe And Target.Column = 6 Then
If Cells(Reihe, 2) = 1 Then
Cells(Reihe, 2) = 0
End If
If Cells(Reihe, 2) = 0 Then
Cells(Reihe, 2) = 1
End If
End If
Next
ActiveSheet.Protect
End Sub
Kann mir jemand sagen was ich da falsch mache ?
im Vorraus vielen Dank
Wolfgang