Register einfärben
24.08.2014 14:21:31
Werner
Hi Forum,
Zum farbig Kennzeichnen des jeweils aktuellen Kalenderwochenregisterblatt (KW..) wurde nachfolgender Code eingesetzt.
woche = "KW" & WorksheetFunction.WeekNum(Date)
For i = 1 To Sheets.Count
If Sheets(i).Name = woche Then
Sheets(i).Tab.Color = 355
Else
Sheets(i).Tab.ColorIndex = xlColorIndexNone
End If
Next i
Dadurch lassen sich jedoch andere Register nicht einfärben. Wie können Register ohne Kalenderwochenbezeichnung trotzdem eingefärbt werden, ohne dass ein Code für jedes Wochenblatt eingesetzt werden muss?
Vielen Dank für eure Hilfe
Gruß
Werner
Anzeige