ich habe versucht das Makro für die Einfärbung der Wochenzahlen an eine neue Datei anzupassen. Leider ist mir das misslungen.
Dort heißen außer den gleichen Monatsblättern die beiden Blätter "!" und "Zusammenstellung". Der Bereich wäre hier B9:B39.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim obj_cell As Object
Dim obj_wks As Object
Dim lng_zaehler As Long
If Target.Column = 3 And Target.Row = 7 Then
For Each obj_wks In ThisWorkbook.Worksheets
If obj_wks.Name "Jahr Eingabe" And obj_wks.Name "Feiertage" Then
obj_wks.Unprotect
For Each obj_cell In obj_wks.Range("A5:A35 ").Cells
For lng_zaehler = 1 To 53 Step 4
If obj_cell.Value = lng_zaehler Then
obj_cell.Font.ColorIndex = 50
obj_cell.Font.Bold = True
End If
Next
Next
obj_wks.Protect
End If
Next
End If
Application.ScreenUpdating = True
End Sub
Wie würde das angepasste Makro heißen?Danke im Voraus für die Hilfe.
Gruß
mike49