Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

[VBA] Registerblatt anhand von Wert in Zelle einfärben
#1
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
Antworten Top
#2
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
Schöne Grüße
Berni
Antworten Top
#3
Hi Jules,

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

LG
Alexandra


Angehängte Dateien
.xlsm   Tab Reiter Farben bei Eingabe in Spalte.xlsm (Größe: 18,26 KB / Downloads: 4)
Antworten Top
#4
Super! Vielen vielen Dank euch beiden!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste