Office: Button mit Eingabemöglichkeit für die Anzahl der Ausdrucke

Hallo liebe Leutz,

ich benötige ein Button, welches mir den Ausdruck eines Tabellenblattes erledigt mit einer Eingabemöglichkeit für die Anzahl der zu druckenden Seiten.

Den normalen Ausdruck habe ich hinbekommen:

Private Sub CommandButton1_Click()
Application.ScreenUpdating=False
' ausdruck Makro

ActiveSheet.PageSetup.PrintArea = "$B$2:$J$38"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B10:D10").Select
End Sub

Nur weiß ich nicht, wie ich dieses so verknüpfen kann, dass ich mit dem Button auch sagen kann, wieviele Ausdrucke erfolgen sollen.

Vielen Dank im voraus für eine Hilfestellung.

Beste Grüße
Dhil

 

Hi,

Code:

Private Sub CommandButton1_Click()
   Dim varAnzahl As Variant
   Application.ScreenUpdating = False
   ActiveSheet.PageSetup.PrintArea = "$B$2:$J$38"
   varAnzahl = InputBox("Bitte Anzahl eingeben", "Kopien", 1, 1)
   If varAnzahl <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(varAnzahl)
'   Range("B10:D10").Select <== wozu ist das erforderlich?
End Sub

Bis später,
Karin

 

Hallo Karin,

mit: "Range("B10:D10").Select" lasse ich den Cursor nach dem Ausdruck in dieses bestimmte Feld setzten. Hier befindet sich ein Drop-Down-Menü für weitere Bearbeitungschritte.

Beste Grüße
Dhil

 

Hallo Karin,

vielen Dank für den Code von Dir.
Du hast mir sehr geholfen damit und der Tag kann nun gut beginnen.

Beste Grüße
Dhil