Bedingte Formatierung von Tabellenreitern

[Hardbopper]

In einer Arbeitsmappe mit mehreren Tabellenblättern sind die Reiter mit den Jahreszahlen 2015, 2016, 2017 usw. benannt und haben eine einheitliche Registerfarbe, z.B.  orange  (Farbnummer 45). Ist es möglich, den Reiter des jeweils aktuellen Jahres automatisch in einer anderen Farbe, z.B. grün (Farbnummer 4) erscheinen zu lassen ?

Hardbopper

[Peter]

Hallo,

mit VBA ist das machbar aber geht das, um das aktuelle Jahr in einer anderen Farbe darzustellen, nicht eher in Richtung Kanonen und Spatzen?

Code:

Private Sub Workbook_Open()
'http://www.office-loesung.de/fpost1988950.php#1988950
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
Select Case sh.Name
    Case Format(Date, "YYYY")
        sh.Tab.ColorIndex = 3
    Case Else
         sh.Tab.ColorIndex = xlNone
End Select
Next
End Sub

[Hardbopper]

Hallo Peter,

das mit den Kanonen und den Spatzen stimmt schon bei Zeiträumen wie Kalenderjahren, es wären aber auch kürzere Zeiträume wie Monate oder sogar Tage denkbar. Im Prinzip ging es mir aber darum, wie man überhaupt Tabellenreiter per VBA anspricht.

Getestet habe ich aus Zeitgründen Deinen Lösungsvorschlag noch nicht, sage aber vorweg schon einmak herzlichen Dank.

Hardbopper

[Käpt'n Blaubär]

Hallo,

Im Prinzip ging es mir aber darum, wie man überhaupt Tabellenreiter per VBA anspricht.

Das läßt ganz einfach rauskriegen, indem man die gewünschten Vorgänge mit dem Makrorekorder aufzeichnet.
Natürlich muß man anschließend den Code von Selects und solchen Dingen frei machen, aber das ist ja immer so.