InputBox Anzahl Kopien Ausdruck+ Eintragung in A1 1 von....

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