Wie ändert man die Farbe der Blattregisterkarte basierend auf dem Zellenwert?
Normalerweise können Sie die Registerkartenfarbe in Excel einfach und schnell ändern, aber haben Sie jemals versucht, die Registerkartenfarbe basierend auf einem Zellenwert in einem Arbeitsblatt zu ändern? Wenn Sie an dieser Aufgabe interessiert sind, werde ich Ihnen einige Codes vorstellen, mit denen Sie die Farbe der Blattregisterkarte basierend auf einem bestimmten Zellenwert in Excel ändern können.
Farbe einer Blattregisterkarte basierend auf Zellenwert mit VBA-Code ändern
Farbe mehrerer Blattregisterkarten basierend auf Zellenwert mit VBA-Code ändern
Farbe einer Blattregisterkarte basierend auf Zellenwert mit VBA-Code ändern
Zum Beispiel möchte ich, dass die Farbe der aktuellen Blattregisterkarte grün wird, wenn der Zellenwert in A1 den Text „WAHR“ enthält, die Registerkartenfarbe rot wird, wenn der Text in A1 „FALSCH“ ist, und die Registerkartenfarbe blau wird, wenn der Wert in Zelle A1 einen anderen Text enthält, wie im folgenden Screenshot gezeigt:
1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, deren Farbe Sie basierend auf den Daten in Zelle A1 ändern möchten, und wählen Sie dann Ansicht Code aus dem Kontextmenü.
2. Kopieren Sie im Fenster Microsoft Visual Basic for Applications den unten stehenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Ändern der Farbe einer Blattregisterkarte basierend auf einem Zellenwert:
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 ist A1 die Zellreferenz, auf deren Basis Sie die Registerkarte einfärben möchten, „Wahr“, „Falsch“ sind die Texte, die Sie benötigen, Sie können sie nach Bedarf ändern, und Sie können die Farbe im Code nach Bedarf ändern.
3. Speichern Sie dann dieses Codefenster und schließen Sie es. Nun wird, wenn Sie den Text „Wahr“ in Zelle A1 eingeben, die aktuelle Registerkartenfarbe grün, und wenn Sie den Text „Falsch“ in Zelle A1 eingeben, wird die Registerkartenfarbe rot. Wenn anderer Text in Zelle A1 eingegeben wird, wird die Registerkartenfarbe automatisch blau.
Entfesseln Sie die Magie von Excel mit Kutools AI
- Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Farbe mehrerer Blattregisterkarten basierend auf Zellenwert mit VBA-Code ändern
Wenn Sie die Farbe mehrerer Blattregisterkarten basierend auf einem Zellenwert ändern müssen, gibt es hier auch einen Code, der Ihnen helfen kann. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Doppelklicken Sie im geöffneten Fenster unter dem Abschnitt VBAProject auf DieseArbeitsmappe, und kopieren Sie dann den folgenden Code in das leere Modul:
VBA-Code: Ändern der Farbe mehrerer Blattregisterkarten basierend auf einem Zellenwert:
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 sind A1 und Master die Zelle und das Arbeitsblatt, auf deren Basis Sie die Registerkarte einfärben möchten. Blatt1, Blatt2, Blatt3 sind die Arbeitsblätter, deren Registerkarten Sie einfärben möchten. KTE, KTW, KTO sind die Zellenwerte in A1, auf deren Basis Sie die Registerkarten einfärben möchten. Sie können die Referenzen und Farben im Code nach Bedarf ändern.
2. Speichern Sie dann dieses Codefenster und schließen Sie es. Nun wird, wenn Sie den Text KTE in Zelle A1 des Master-Blatts eingeben, die Registerkarte Blatt1 rot gefärbt, wenn Sie KTO in Zelle A1 eingeben, wird Blatt2 grün gefärbt, und wenn Sie KTW in Zelle A1 eingeben, wird Blatt3 blau gefärbt, siehe Screenshot:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins