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

Beiträge aus den Excel-Beispielen zum Thema "Tabellenreiter farbig darstellen"