Druckanzahl über Inputbox
03.12.2003 09:18:09
Christoph
Wie stelle ich über eine InputBox die Anzahl der Ausdrucke ein?
Mein Code lautet:
Private Sub Command_Buttton1()
Dim u As Integer
u = Application.InputBox("Wie oft wollen sie eine _
Kopie der Bestellung ausdrucken?", "Druckanzahl", "1")
Sheets("Kopie").PrintOut Copies:=u
End Sub
Eigentlich ist alles richtig, aber es kommt aber immer nur ein Ausdruck raus.
Kann man es vielleicht über eine DO LOOP Schleife lösen?
Bitte helft mir. Es ist zum verzweifelln