mit einem Doppelklick auf bestimmte Zellen in einem Blatt soll sich die Farbe der Zelle ändern. Funktioniert mit dem Code auch einwandfrei:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.ColorIndex = 3 Then
Target.ColorIndex = 44
ElseIf ActiveCell.Interior.ColorIndex = 44 Then
ActiveCell.Interior.ColorIndex = 4
ElseIf ActiveCell.Interior.ColorIndex = 4 Then
ActiveCell.Interior.ColorIndex = 3
End If
End Sub
Ich möchte bestimmte Zellen des Blatts schützen, sperre sie daher und richte einen Blattschutz ein. Die Zellen, in denen sich die Farbe bei Doppelklick ändern soll sind nicht gesperrt. Wenn ich so vorgehe mache, kommt eine Fehlermeldung, dass der Code oben nicht mehr ausführbar ist. Obwohl die entsprechenden Zellen gar nicht gesperrt sind..
Kann mir jemand helfen wieso dem so ist?
Viele Grüße Felix