Gibt es die Möglichkeit Feiertage aus zulassen ?
Und dann würde ich gern über eine 2. abfrage bestimmen können ob nur 1 Element pro Tag oder 2 pro Tag.
Hat jemand vielleicht eine Idee?
MFG Beno
Sub drucken()
Dim iAnz As Integer, i As Integer, lboWE As Boolean
iAnz = Application.InputBox(prompt:="Anzahl der Elemente?", Type:=1)
If iAnz > 0 Then
For i = 1 To iAnz
Range("F10") = i & " von " & iAnz
If i > 1 Then
Range("C8") = Range("C8") + 1
End If
Select Case Weekday(Range("C8"), vbMonday)
Case 6
Range("C8") = Range("C8") + 2
lboWE = True
Case 7
Range("C8") = Range("C8") + 2
End Select
ActiveWindow.SelectedSheets.PrintOut
If lboWE = True Then
Range("C8") = Range("C8") - 2
lboWE = False
End If
Next i
End If
End Sub