Sub test()
'Inputbox mit Type 0 laesst nur Zahlen als Eingabe zu.
Range("A1") = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
End Sub
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3