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.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

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: