Wie lässt sich die Farbe der Registerkarten anhand eines Zellwerts ändern?
Normalerweise können Sie die Registerkartenfarbe in Excel einfach und schnell anpassen – aber haben Sie schon einmal versucht, sie basierend auf einem Zellwert automatisch zu ändern? Wenn Sie an dieser Aufgabe interessiert sind, stelle ich Ihnen einige Codes vor, mit denen Sie die Arbeitsblattregisterkarte je nach Wert einer bestimmten Zelle in Excel einfärben können.
Ändern mehrerer Blattregisterkarten basierend auf einem Zellwert mithilfe von VBA-Code
Ändern der Farbe einer einzelnen Arbeitsblattregisterkarte basierend auf einem Zellwert mithilfe von VBA-Code
Beispielsweise möchte ich, dass die Registerkartenfarbe von Aktuelles Arbeitsblatt grün wird, wenn der Zellwert in A1 der Text „TRUE“ ist, rot wird, wenn der Text in A1 „FALSE“ lautet, und blau wird, wenn in Zelle A1 ein beliebiger anderer Text steht, wie im folgenden Screenshot gezeigt:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts, dessen Farbe basierend auf den Daten in Zelle A1 geändert werden soll, und wählen Sie im Kontextmenü Code anzeigen.
2. Fügen Sie im Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code in das Modul-Fenster ein.
VBA-Code: Ändern der Farbe einer einzelnen Arbeitsblattregisterkarte basierend auf einem Zellwert:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
Hinweis: Im obigen Code bezieht sich A1 auf die Zelle, anhand derer die Registerkarte eingefärbt werden soll. „True“ und „False“ sind die Texte, die Sie benötigen – Sie können sie nach Bedarf anpassen und auch die Farben im Code entsprechend ändern.
3. Schließen Sie anschließend dieses Code-Fenster. Sobald Sie nun „True“ in Zelle A1 eingeben, wird die aktuelle Registerkartenfarbe grün; bei „False“ in Zelle A1 rot; und bei jeder anderen Eingabe in Zelle A1 automatisch blau.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Ändern mehrerer Blattregisterkarten basierend auf einem Zellwert mithilfe von VBA-Code
Wenn Sie die Farben mehrerer Blattregisterkarten basierend auf einem Zellwert anpassen möchten, unterstützt Sie der folgende Code dabei. Gehen Sie dazu wie folgt vor:
1. Drücken Sie gleichzeitig die Tasten ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Doppelklicken Sie im geöffneten Fenster unter dem Abschnitt ThisWorkbook im VBAProject, und fügen Sie dann den folgenden Code in das leere Modul ein:
VBA-Code: Ändern mehrerer Blattregisterkarten basierend auf einem Zellwert:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
Hinweis: Im obigen Code beziehen sich A1 und „Master“ auf die Zelle bzw. das Arbeitsblatt, anhand derer die Registerkarten eingefärbt werden. Sheet1, Sheet2 und Sheet3 sind die Arbeitsblätter, deren Registerkarten eingefärbt werden sollen. KTE, KTW und KTO sind die Zellwerte in A1, anhand derer die Farben zugewiesen werden. Sie können die Bezüge und Farben im Code jederzeit an Ihre Bedürfnisse anpassen.
2. Schließen Sie anschließend dieses Code-Fenster. Sobald Sie nun „KTE“ in Zelle A1 des Master-Arbeitsblatts eingeben, wird die Registerkarte von Sheet1 rot eingefärbt; bei „KTO“ in Zelle A1 färbt sich Sheet2 grün; und bei „KTW“ in Zelle A1 erscheint Sheet3 in Blau (siehe Screenshot):
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins