Ziffern ausdrucken
29.03.2003 16:02:26
Lucien
Kann jemand mir helfen; den Code so hinzubekommen dass Excel z.B
folgendes macht. In die textbox gebe ich 1 -10 ein und er druckt mir 10 Blatter mit den jweils einer Ziffer aus.Dies sollte moeglich sein ebenfalls 1 -100 u.s.w.
Hier der Code
If Me.Textbox1.Value = "1" Then go to a:
a:
Sheets("Stock").Range("B4") = TextBox1
Sheets("Stock").PrintOut Copies:=1, Collate:=True
a = "10-70"
Max = Mid(a, InStr(1, a, "-") + 1)
Min = Left(a, InStr(1, a, "-") - 1)
Danke im voraus
Gruss Lucien
Anzeige