Skip to main content

Hoe kunt u de kleur van het bladtabblad wijzigen op basis van een celwaarde?

Author: Xiaoyang Last Modified: 2025-05-29

Normaal gesproken kunt u de tabkleur eenvoudig en snel wijzigen in Excel, maar hebt u ooit geprobeerd om de tabkleur te wijzigen op basis van een celwaarde in een werkblad? Als u geïnteresseerd bent in deze taak, zal ik het hebben over enkele codes waarmee u de bladtab kleur kunt aanpassen op basis van een specifieke celwaarde in Excel.

Kleur van één bladtab wijzigen op basis van celwaarde met VBA-code

Meerdere bladtabs wijzigen op basis van celwaarde met VBA-code


arrow blue right bubble Kleur van één bladtab wijzigen op basis van celwaarde met VBA-code

Bijvoorbeeld, ik wil dat de kleur van het huidige bladtab groen wordt als de celwaarde in A1 de tekst “WAAR” is, de tabkleur rood wordt als de tekst in A1 “ONWAAR” is, en de tabkleur blauw wordt als de waarde in cel A1 elke andere tekst is, zoals in de volgende schermafbeelding te zien is:

change sheet tab color based on cell value

1. Klik met de rechtermuisknop op het bladtab dat u wilt wijzigen op basis van de gegevens in cel A1, en kies vervolgens Weergave Code uit het contextmenu.

2. In het Microsoft Visual Basic for Applications-venster kopieert en plakt u de onderstaande VBA-code in het Module-venster.

VBA-code: Kleur van één bladtab wijzigen op basis van celwaarde:

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

click View Code and insert the code into the module

Opmerking: In de bovenstaande code is A1 de celverwijzing waarop u de tabkleur wilt baseren, “WAAR”, “ONWAAR” zijn de teksten die u nodig heeft, u kunt ze naar wens wijzigen, en u kunt de kleur in de code naar behoefte aanpassen.

3. Sla vervolgens dit codevenster op en sluit het. Nu, wanneer u de tekst “WAAR” invoert in cel A1, wordt de huidige tabkleur groen, en wanneer u de tekst “ONWAAR” invoert in cel A1, wordt de tabkleur rood. Als er andere tekst wordt ingevoerd in cel A1, wordt de tabkleur automatisch blauw.

a screenshot of kutools for excel ai

Ontdek de Magie van Excel met Kutools AI

  • Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
  • Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
  • VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
  • Formule-uitleg: Begrijp complexe formules gemakkelijk.
  • Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

arrow blue right bubble Meerdere bladtabs wijzigen op basis van celwaarde met VBA-code

Als u meerdere bladtabs kleuren moet wijzigen op basis van een celwaarde, hier is ook een code die u kan helpen, doe het volgende:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen, dubbelklik in het geopende venster op ThisWorkbook onder de sectie VBAProject, kopieer en plak vervolgens de onderstaande code in het lege Module-venster:

VBA-code: Meerdere bladtabs wijzigen op basis van celwaarde:

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

click ThisWorkbook and insert the code into the module

Opmerking: In de bovenstaande code zijn A1 en Master de cel en het werkblad waarop u de tabkleur wilt baseren, Sheet1, Sheet2, Sheet3 zijn de werkbladen waarvan u de tabs wilt kleuren. KTE, KTW, KTO zijn de celwaarden in A1 waarop u de tabs wilt kleuren, u kunt de verwijzingen en kleuren in de code naar behoefte wijzigen.

2. Sla vervolgens dit codevenster op en sluit het. Nu, wanneer u de tekst KTE invoert in cel A1 van het Master-blad, wordt Sheet1-tab gekleurd in rood, wanneer u KTO invoert in cel A1, wordt Sheet2 gekleurd in groen, en wanneer u KTW invoert in cel A1, wordt Sheet3 gekleurd in blauw, zie schermafbeelding:

change multiple sheet tabs based on cell value

Beste Office-productiviteitstools

🤖 Kutools AI Assistent: Breng een revolutie teweeg in data-analyse Methode: Intelligente uitvoering |Code genereren |Aangepaste formules maken |Gegevens analyseren en grafieken genereren |Kutools-functies gebruiken
Populaire functies: Dubbele waarden markeren, markeren of identificeren | Verwijder lege rijen | Kolommen of cellen samenvoegen zonder gegevensverlies | Afronden ...
Super ZOEKEN: VLookup met meerdere criteria | VLookup met meerdere waarden | Meervoudig-blad opzoeken | Fuzzy Match ...
Geavanceerde keuzelijst: Snel keuzelijst maken | Afhankelijke keuzelijst | Meervoudige selectie keuzelijst ...
Kolombeheer: Specifiek aantal kolommen toevoegen | Kolommen verplaatsen | Zichtbaarheid van verborgen kolommen wisselen | Bereik & kolommen vergelijken ...
Uitgelichte functies: Rasterfocus | Ontwerpweergave | Verbeterde formulebalk | Werkboek- & Werkbladbeheer | AutoTekstbibliotheek | Datumkiezer | Gegevens samenvoegen | Cellen coderen/decoderen | E-mail verzenden per lijst | Superfilter | Speciaal filter (filter cellen met vetgedrukt/cursief/doorhalen...) ...
Top15 toolsets:12 Teksttools (Tekst toevoegen, Specifieke tekens verwijderen, ...) |50+ Grafiek type (Gantt-diagram, ...) |40+ Praktische formules (Leeftijd berekenen op basis van geboortedatum, ...) |19 Invoegtools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...) | 12 Conversietools (Omzetten naar woorden, Valutaconversie, ...) | 7 Samenvoeg- & Opsplitstools (Geavanceerd samenvoegen van rijen, Cellen splitsen, ...) | ... en meer

Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...


Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!