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.
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
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