Hallo! Wäre alles kein Problem. Wenn du die Checkboxen nutzen willst, dann einfach im Code von bis auf den Monat setzen. BSpw. bei März for i = 3 to 3. ISt dann glaube ich am einfachsten. Unten bei dem Code wird jetzt auch rausgelöscht. Aber Hinweis nochmal, die Feiertage werden nicht rausgerechnet. Kann man zwar machen, dann muss man aber jeden Feiertag spezielle angeben (wäre aber auch kein Problem). VG
Sub arbeitstage()
Dim wert
Dim i
wert = ActiveSheet.Range("A1")
'Eintrag in A3
For i = 1 To 12
If ActiveSheet.Cells(10, 1 + i) <> "" Then
ActiveSheet.Cells(10, 1 + i) = ""
ActiveSheet.Cells(13, 1 + i) = ""
Else
ActiveSheet.Cells(10, 1 + i).FormulaLocal = "=(NETTOARBEITSTAGE(" & Chr(34) & DateSerial(wert, i, 1) & Chr(34) & ";" & Chr(34) & DateSerial(wert, i + 1, 1) - 1 & Chr(34) & "))"
ActiveSheet.Cells(13, 1 + i) = ActiveSheet.Cells(13, 1 + i) * 8
End If
Next i
End Sub
|