Clever-Excel-Forum

Normale Version: [VBA] Registerblatt anhand von Wert in Zelle einfärben
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo zusammen,

mal wieder eine Frage meinerseits Smile

Folgender Auszug meines "Inhaltsverzeichnis". Alle Tabellenblätter tragen die Namen aus Spalte C.

Arbeitsblatt mit dem Namen 'Inhaltsverzeichnis'
CDE
3AACHEN WÜRSELEN78G
4ASCHAFFENBURG85E
5AUGSBURG100G

Jetzt möchte ich die Tabellenblätter gerne einfärben, basierend auf Spalte E. Steht dort ein "G", sollen sie Grün werden. Alle Blätter bei denen in Zeile E ein "E" steht, werden blau, etc.

Jemand eine Idee?  :19:

Danke und Gruss,

Jules
Code:
Sub faerben()
Dim i As Integer
Dim IVZ As Worksheet

Set IVZ = Sheets("Inhaltsverzeichnis")

With IVZ
   For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
       With Sheets(.Cells(i, 1).Text).Tab
           Select Case IVZ.Cells(i, 3)
               Case "G"
                   .Color = vbGreen
                   .TintAndShade = 0
               Case "E"
                   .Color = vbBlue
                   .TintAndShade = 0
           End Select
       End With
   Next i
End With
End Sub

Statt vbGreen kannst du die Farbe auch anders eintragen, siehe zB hier
Hi Jules,

oder wenn du direkt bei Eingabe der "g" oder "e" die Tabs färben willst, dann so!

LG
Alexandra
Super! Vielen vielen Dank euch beiden!