[VBA] Registerblatt anhand von Wert in Zelle einfärben

[jules]

Hallo zusammen,

mal wieder eine Frage meinerseits

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

Arbeitsblatt mit dem Namen 'Inhaltsverzeichnis'
	C	D	E
3	AACHEN WÜRSELEN	78	G
4	ASCHAFFENBURG	85	E
5	AUGSBURG	100	G

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

[MisterBurns]

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

[cysu11]

Hi Jules,

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

LG
Alexandra

[jules]

Super! Vielen vielen Dank euch beiden!