Is Nothing Then & Blattschutz
09.01.2020 15:45:42
Patric
vorab, wie immer, besten Dank für die Hilfe.
Ich hänge grade an einem Fehler mit dem Blattschutz und einem Makro.
Mit folgendem Makro erreiche, dass per Doppelklick ein X in die leere Zelle des angegebenen _ Bereiches eingetragen wird. Bei erneutem Doppelklick verschwindet das X wieder.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Sub X per Doppelklick ausfüllen
'Januar
If Not Intersect(Range("C38:AG53"), Target) Is Nothing Then
Cancel = True
Target = IIf(Target = "X", "", "X")
End If
End Sub
Funktioniert auch soweit. Jetzt habe in dem Tabellenblatt den Blattschutz aktiviert.
Klicke ich in eine Zelle in dem angegebenen Bereich und versuche Sie zu beschreiben kommt die richtige Fehlermeldung zum Schreibschutz.
Klicke ich aber doppelt in eine Zelle aus dem Bereich und der Blattschutz ist aktiviert kommt der Laufzeitfehler 1004.
Wie kann ich denn das Erscheinen des Fehlers bei aktivem Blattschutz verhindern?
Grüße, Patric