Vielleicht Onur ? Leider werden nicht alle Monate

Public Sub mw_Arbeitszeiten_eintragen()

 

    Dim i&, j&, Feiertage$

    'Application.Calculation = xlCalculationManual

    'Application.Calculation = xlCalculationAutomatic

   With Tabelle13  ' Feiertage X erfassen

        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row

            If LCase(.Cells(i, 3)) = "x" Then

                Feiertage = Feiertage & .Cells(i, 1) & "###"

            End If

        Next i

        If Feiertage = "" Then Feiertage = " "

    End With

    For i = 1 To 12

        With Sheets(i)

            'MsgBox Sheets(i).Name   '##":"##

            For j = 9 To 39

                If .Cells(j, 3) > "" Then

                    If WorksheetFunction.Weekday(CDate(.Cells(j, 3)), 2)  6 And InStr(1, Feiertage, .Cells(j, 3)) = 0 Then ' Mo-Fr ohne Feiertage

                        .Cells(j, 5) = Cells(2, 20)   'vorher "##:##"

                        .Cells(j, 6) = Cells(2, 21)

                         ''' .Cells(j, 6) = Format(Cells(2, 21), "##:##")

                            'If i > 1 Then Stop

                    End If

                    If WorksheetFunction.Weekday(CDate(.Cells(j, 3)), 2) = 6 And InStr(1, Feiertage, .Cells(j, 3)) = 0 Then ' Sa ohne Feiertage

                        .Cells(j, 5) = Cells(2, 19)

                        .Cells(j, 6) = Cells(2, 22)

                        'Stop

                    End If

                    If InStr(1, Feiertage, .Cells(j, 3)) > 0 Then .Cells(j, 4) = "F"

                End If

            Next j

        End With

    Next i

End Sub