Herbers Excel-Forum - das Archiv

Tabellenreiter farbig darstellen

Bild

Betrifft: Tabellenreiter farbig darstellen
von: Tina

Geschrieben am: 09.04.2005 09:10:07
Hallo
Wer kann helfen?
Habe 12 Tabellen. Jede Tabelle ist für einen Monat benannt.Nun möchte ich das der aktuelle Monat z.Beib. April farbig dargestellt wird.
Ist das realisierbar?
Danke für die Hilfe.
Bild

Betrifft: erst ab XP o.T.
von: Franz W.
Geschrieben am: 09.04.2005 09:22:09
Bild

Betrifft: AW: erst ab XP o.T.
von: Tina
Geschrieben am: 09.04.2005 10:59:34
Kein Problem ich kann auch Office XP intallieren.
Bild

Betrifft: AW: erst ab XP o.T.
von: Hajo_Zi

Geschrieben am: 09.04.2005 11:02:02
Hallo Tina,
warum ist die Frage dann offen??

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: erst ab XP o.T.
von: Tina
Geschrieben am: 09.04.2005 11:17:43
Bis jetzt habe ich noch keine Antwort.
Gruß Tina
Bild

Betrifft: AW: erst ab XP o.T.
von: ransi
Geschrieben am: 09.04.2005 11:20:40
hallo tina
wenn du office xp installiert hast geht es so:
rechte maus auf den tabellenreiter
registerfarbe...
farbe aussuchen, fertig
ransi
Bild

Betrifft: AW: erst ab XP o.T.
von: Peter W

Geschrieben am: 09.04.2005 11:24:05
Servus,
oder automatisch per VBA. Code in diese Arbeitsmappe kopieren
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim m As Variant
m = Month(Now)
For Each wks In Worksheets
If wks.name = m Then
wks.Tab.ColorIndex = 3
End If
Next
End Sub

MfG
Peter
Bild

Betrifft: AW: erst ab XP o.T.
von: Tina
Geschrieben am: 09.04.2005 11:49:40
Hallo Peter
Wo genau wird dieses VBA eingetragen. Es muß ja in die Arbeitsmappe ... aber wohin?
Mit fr. Gruß Tina
Bild

Betrifft: AW: erst ab XP o.T.
von: Peter W

Geschrieben am: 09.04.2005 11:56:52
Servus,
Alt+F11, Doppelklick auf diese Arbeitsmappe, Code einfügen.
Und um eine Zeile ergänzen, hab ich vergessen, sonst bleiben die Reiter so.
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim m As Variant
m = Month(Now)
For Each wks In Worksheets
If wks.name = m Then
wks.Tab.ColorIndex = 3
Else
wks.Tab.ColorIndex = 36
End If
Next
End Sub

MfG
Peter
 Bild
Excel-Beispiele zum Thema "Tabellenreiter farbig darstellen"
Nur nichtfarbige Zellen schützen Label und Zellen farbig markieren
Aktuelle Zeit in UserForm darstellen Werte in zweispaltiger ListBox rechts- und linksbündig darstellen
Zeichen als Zahlen darstellen Zeichenfolgen aus Zellen in TextBox mit Leerzeichen darstellen
Werte in zweiter Tabelle in anderer Reihenfolge darstellen