Ich habe mit Jens folgenden Code ausgearbeitet
Sub Print_Out()
If Me.TextBox1.Value = "1" Then
Sheets("Stock").Range("B4") = TextBox1
Sheets("Stock").PrintOut Copies:=1, Collate:=True
Else
a = Me.TextBox1.Value
Max = Mid(a, InStr(1, a, "-") + 1)
Min = Left(a, InStr(1, a, "-") - 1)
For x = Min To Max
Sheets("Stock").Range("B4") = x
Sheets("Stock").PrintOut Copies:=1, Collate:=True
Next
End If
End Sub
Danke für die Hilfe Jens, aber bei mir funtzt es nicht so wie ich es brauche.
Vielleicht kann uns beiden noch ein anderer helfen
Ich möchte Ziffern die ich in eine Textbox eingebe ausdrucken.
Das funktioniert auch mit diesem Code.
Aber ich wollte auch Ziffern automatisch z.B. von 1 -10 ausdrucken: Klartext Jedes Blatt mit einer Ziffer also 10 Blätter.
Dies sollte mit allen Ziffern möglich sein Z.B. 1 -100 u.s.w.
Kann uns jemand weiterhelfen??
Vilen dank im voraus und Gruss Lucien