Sub PrintCopies()
Dim varAnzahl As Variant
Eingabe:
varAnzahl = Application.InputBox(prompt:="Anzahl Druckkopien (1 bis 10)?", _
Title:="Drucken", Default:=1, Type:=1)
Select Case varAnzahl
Case 0 'Abgebrochen
Case 1 To 10
ActiveWindow.SelectedSheets.PrintOut copies:=varAnzahl
Case Else
MsgBox "unzulässige Eingabe, Anzahl Kopien ist begrenzt auf 1 bis 10", _
vbInformation + vbOKOnly, "Drucken"
GoTo Eingabe
End Select
End Sub
Um die Anzahl der Druckkopien in Excel abzufragen und anschließend den Druck zu starten, kannst Du das folgende VBA-Makro verwenden. Dieses Skript zeigt eine InputBox an, in der der Benutzer die Anzahl der gewünschten Kopien eingeben kann, mit einem maximalen Limit von 10.
ALT + F11, um den VBA-Editor zu öffnen.Einfügen > Modul, um ein neues Modul zu erstellen.Sub PrintCopies()
Dim varAnzahl As Variant
Eingabe:
varAnzahl = Application.InputBox(prompt:="Anzahl Druckkopien (1 bis 10)?", _
Title:="Drucken", Default:=1, Type:=1)
Select Case varAnzahl
Case 0 'Abgebrochen
Case 1 To 10
ActiveWindow.SelectedSheets.PrintOut copies:=varAnzahl
Case Else
MsgBox "unzulässige Eingabe, Anzahl Kopien ist begrenzt auf 1 bis 10", _
vbInformation + vbOKOnly, "Drucken"
GoTo Eingabe
End Select
End SubALT + F8, wähle PrintCopies und klicke auf Ausführen.Fehler: "unzulässige Eingabe"
Dies geschieht, wenn der Benutzer eine Zahl außerhalb des Bereichs von 1 bis 10 eingibt. Achte darauf, dass Du nur Zahlen in diesem Bereich eingibst.
Fehler: Makro wird nicht ausgeführt
Stelle sicher, dass Makros in Deinen Excel-Einstellungen aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.
Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du die Anzahl der Kopien auch direkt im Druckdialog von Excel einstellen. Gehe dazu zu Datei > Drucken und gib die gewünschte Anzahl der Kopien im entsprechenden Feld ein. Diese Methode bietet jedoch nicht die Flexibilität einer InputBox.
Wenn Du das Makro verwendet hast, kannst Du es anpassen, um spezifische Anforderungen zu erfüllen. Zum Beispiel kannst Du den Standardwert in der InputBox ändern:
... Title:="Drucken", Default:=5, Type:=1Hier wird der Standardwert auf 5 Kopien gesetzt.
Fehlerbehandlung erweitern: Du kannst weitere Bedingungen in die Fehlerbehandlung einfügen, um sicherzustellen, dass der Benutzer nur gültige Eingaben macht. Zum Beispiel könntest Du die Eingabe auf Zahlen beschränken oder negative Werte abfangen.
UserForm verwenden: Wenn Du eine benutzerfreundlichere Lösung möchtest, kannst Du eine UserForm erstellen, um die Eingabe der Anzahl der Kopien zu erleichtern.
1. Wie kann ich das Makro speichern?
Um das Makro zu speichern, musst Du die Excel-Datei im XLSM-Format (Makro-aktivierte Arbeitsmappe) speichern.
2. Kann ich das Makro für andere Excel-Versionen verwenden?
Ja, das Makro sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren, solange Makros aktiviert sind.