Hallo,
ich möchte eine mit einer Checkbox die Farbe des aktiven Tabellenblatts steuern. Grundsätzlich bekomme ich das auch mit folgendem VBA-Code hin:
Sub Kontrollkästchen7_BeiKlick()
ActiveWorkbook.ActiveSheet.Tab.Color = 255
End Sub
Jetzt möchte ich aber auch, dass wenn das Kästchen wieder unchecked wird, dass die Registerfarbe wieder auf "keine Füllung" zurückspringt. Sprich der oben genannte VBA-Code soll per Klick auch wieder rückgängig gemacht werden. Ich hab's als absoluter VBA-Newbie bisher so probiert, bin aber gescheitert.
Private Sub Kontrollkästchen7_Change()
If ActiveSheet.Kontrollkästchen7 = True Then
ActiveWorkbook.ActiveSheet.Tab.Color = 255
Else
ActiveWorkbook.ActiveSheet.Tab.Color = 0
End If
End Sub
Wobei ich mir nicht sicher bin ob die 0 auch wirklich für "keine Füllung" steht. Vermutlich ist es ein absoluter Anfänger-Fehler, aber ich wäre trotzdem super dankbar für eine kurze Rückmeldung!
Danke im Voraus!
Niko
|