Registerkarte farblich makieren
01.09.2022 09:12:24
Mo
ich habe folgenden Code geschrieben.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheet As Worksheet
Application.ScreenUpdating = False
For Each xSheet In ThisWorkbook.Worksheets
If xSheet.Name = ActiveSheet.Name Then
Sheets(1).Tab.ColorIndex = 3
xSheet.Tab.ColorIndex = 6
Else
xSheet.Tab.ColorIndex = 14
End If
Next
Application.ScreenUpdating = True
End Sub
ich möchte noch zusätzlich erreichen, dass die Registerkarte in der das Aktuelle Datum oder Kalenderwoche steht Gelb hinterlegt wird.Registerkarte beginnend ab sheets(2) mit dem Namen KW1
Die Daten stehen bei jeder Registerkarte in Reihe 2 ; B2:G2
vielen Dank schon mal im voraus.
Gruß Mo