Hi,
kopiere folgenden Code ins Codemodul des Tabellenblattes:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngBereich As Long
Dim intZaehler As Integer
Dim lngZeile As Long
If Target.Cells(1).Address(0, 0) = "F2" Then
If IsDate("01.01." & Target) Then
For lngZeile = 9 To 47
' in Spalte A steht ein Datum
If IsDate(Cells(lngZeile, 1)) Then
' Wochentag ist Samstag oder Sonntag dann 0 eintragen
If Application.Weekday(Cells(lngZeile, 1), 2) > 5 Then
Cells(lngZeile, 3) = 0
' Wochentag ist Freitag dann 6 eintragen
ElseIf Application.Weekday(Cells(lngZeile, 1), 2) = 5 Then
Cells(lngZeile, 3) = 6
' anderer Wochentag dann 8,25 eintragen
Else
Cells(lngZeile, 3) = 8.25
End If
End If
Next lngZeile
End If
End If
End Sub
Sobald die Jahreszahl in F2 geändert wird, werden die Stunden in Spalte C eingetragen.
Ich hoffe, ich habe es richtig interpretiert: für Samstag und Sonntag 0 eintragen, für Freitag 6 und Mo-Do jeweils 8,25.
Feiertage sind nicht berücksichtigt, da mir nicht bekannt ist, welche dies in deinem Bundesland sind.
Bis später, Karin