Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1320to1324
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Worksheet_BeforeDoubleClick

Worksheet_BeforeDoubleClick
08.07.2013 15:22:23
Wolfgang
Hallo liebe Helfer
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_BeforeDoubleClick
08.07.2013 15:43:35
Rudi
Hallo,
so geht das:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F18:F28")) Is Nothing Then
Unprotect
If Target.Offset(, -4) = 0 Then
Target.Offset(, -4) = 1
Else
Target.Offset(, -4) = 0
End If
Cancel = True
Protect
End If
End Sub

Gruß
Rudi

AW: Worksheet_BeforeDoubleClick
08.07.2013 15:54:46
Wolfgang
Hallo Rudi
Vielen Dank
Wofgang
Anzeige

48 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige