Reiter in Excel farbig einfärben und verwalten
Schritt-für-Schritt-Anleitung
Um die Reiter in Excel farbig zu markieren, verwendest Du VBA (Visual Basic for Applications). Hier ist eine einfache Anleitung, wie Du das machen kannst:
-
Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Wähle im Projekt-Explorer das entsprechende Arbeitsblatt aus.
-
Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B2") <> "" Then
ActiveWorkbook.Sheets("Ma").Tab.ColorIndex = 3 ' Rot
Else
ActiveWorkbook.Sheets("Ma").Tab.ColorIndex = 15 ' Grau
End If
End Sub
-
Um den Code für alle Reiter zu verwenden, ersetze ActiveWorkbook.Sheets("Ma") durch Sh (siehe Beispiel unten).
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("B2") <> "" Then
Sh.Tab.ColorIndex = 3 ' Rot
Else
Sh.Tab.ColorIndex = xlNone ' Standardfarbe
End If
End Sub
-
Schließe den VBA-Editor und teste die Funktion, indem Du in die Zelle B2 eines beliebigen Blattes schreibst.
Häufige Fehler und Lösungen
Alternative Methoden
Eine weitere Möglichkeit, die Reiter in Excel farbig zu markieren, ist die Verwendung von bedingter Formatierung. Diese Methode ist jedoch weniger flexibel und funktioniert nur für Zellen und nicht für Reiter.
- Markiere die Zellen, für die Du eine Bedingung festlegen möchtest (z. B. B2).
- Gehe zu Start > Bedingte Formatierung > Neue Regel.
- Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden und gib die entsprechende Formel ein.
Praktische Beispiele
Hier ist ein praktisches Beispiel, wie Du die Reiter farbig markieren kannst, wenn Du mehrere Blätter gruppierst:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$2" Then
For Each ws In ThisWorkbook.Worksheets
If ws.Visible Then
ws.Tab.ColorIndex = IIf(Target.Value <> "", 3, xlNone)
End If
Next ws
End If
End Sub
Diese Funktion färbt alle sichtbaren Reiter in rot, wenn in B2 etwas eingegeben wird.
Tipps für Profis
-
Nutze ColorIndex für eine schnelle Farbänderung. Hier sind einige nützliche Farbcodes:
-
Du kannst auch RGB verwenden, um benutzerdefinierte Farben festzulegen. Beispiel:
Sh.Tab.Color = RGB(255, 0, 0) ' Rot
-
Denke daran, dass das Einfärben der Reiter nur in Excel VBA funktioniert und nicht in anderen Office-Anwendungen.
FAQ: Häufige Fragen
1. Wie kann ich einen Reiter dauerhaft einfärben?
Um einen Reiter dauerhaft farbig zu markieren, kannst Du das oben genannte Makro im entsprechenden Arbeitsblatt oder im Klassenmodul "DieseArbeitsmappe" verwenden.
2. Was passiert, wenn ich das Makro schließe?
Wenn Du das Makro schließt, bleibt die Farbe des Reiters bestehen, solange die Excel-Datei geöffnet ist. Nach dem Schließen wird die Farbe zurückgesetzt, es sei denn, Du hast das Makro erneut ausgeführt.
3. Funktioniert das auch in Excel Online?
Leider funktioniert das Einfärben von Reitern in Excel Online nicht, da VBA nicht unterstützt wird. Du musst die Desktop-Version von Excel verwenden.