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