Druckanzahl über Inputbox

• Druckanzahl über Inputbox von Christoph vom 03.12.2003 09:18:09
  • AW: Druckanzahl über Inputbox - von GerdW am 03.12.2003 12:57:51
    • AW: Druckanzahl über Inputbox - von Christoph am 03.12.2003 14:23:46

Betrifft: Druckanzahl über Inputbox
von: Christoph
Geschrieben am: 03.12.2003 09:18:09
Hallo ihr Helfenden!
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

Betrifft: AW: Druckanzahl über Inputbox
von: GerdW
Geschrieben am: 03.12.2003 12:57:51

Private Sub Command_Button1()
Dim u As Integer
u = Application.InputBox("Wie oft wollen sie eine _
Kopie der Bestellung ausdrucken?", "Druckanzahl", "1")
Sheets("Kopie").PrintOut Copies:=Cint(u)
End Sub

Gerd

Betrifft: AW: Druckanzahl über Inputbox
von: Christoph
Geschrieben am: 03.12.2003 14:23:46
Funkioniert auch nicht. Lässt trotzdem nur ein Blatt raus.
Habe aber mit einer Do Loop schleife mein Problem lösen können

Dim u As Integer
Dim n As Integer
u = Application.InputBox("Wie oft wollen sie eine _
Kopie der Bestellung ausdrucken?", "Druckanzahl", "1")
n = 0
Do
Sheets("Kopie").PrintOut
n = n + 1
Loop until n = u
End Sub

Excel-Beispiele zum Thema " Druckanzahl über Inputbox"
In eine InputBox eingegebene Daten in Elemente aufteilen	Laufwerk über InputBox auswählen
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen	Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen
Mit InputBoxes Zeilennummern abfragen und Summe bilden	Suchbegriff über InputBox abfragen und Fundzeile löschen
Druckstart- und endzeilen über InputBox abfragen	Msg- und InputBoxes kombinieren und nach Ergebnis verzweigen
Über InputBox festzulegenden Bereich kopieren	Numerische InputBox-Werte fortlaufend in eine Spalte eintragen