Registerblätter automatisch färben

Bild

Betrifft: Registerblätter automatisch färben
von: Fabian
Geschrieben am: 26.05.2015 08:00:16

Hallo zusammen,
gibt es eine Möglichkeit, dass jedem bestehenden und später hinzugefügten Arbeitsblatt eine eigene Farbe zugewiesen wird?
Das ganze sollte automatisch ablaufen.
Gruß
Fabian

Bild

Betrifft: AW: Registerblätter automatisch färben
von: Hajo_Zi
Geschrieben am: 26.05.2015 08:19:53
Hallo Fabian,
es ging ja um neue.
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt in der gesamten Datei.

Option Explicit
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    ActiveSheet.Tab.Color = Worksheets.Count + Worksheets.Count * 50
End Sub


Bild

Betrifft: AW: Registerblätter automatisch färben
von: Fabian
Geschrieben am: 26.05.2015 09:19:59
Hallo Hajo,
vielen Dank für deine Hilfe. Funktioniert einwandfrei.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Registerblätter automatisch färben"