Zellen färben
10.02.2016 18:05:25
Michael
Hab ein kleines Problem mit dem Zellen färben hab folgendes Makro das auch funktioniert aber nur wenn kein Blattschutz drin ist.
Option Explicit
Sub Schaltfläche1_BeiKlick()
If ActiveCell.Interior.ColorIndex = 45 Then
ActiveCell.Interior.ColorIndex =x1None
Else
ActiveCell.Interior.ColorIndex = 45
End If
End Sub
Wie kann ich es machen das das auch mit Blattschutz funktioniert.
Kommt immer der Fehler :
Anwendungs oder objektdefinierter Fehler
Laufzeitfehler 1004
Anzeige