Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Anzahl der Ausdrucke in einem Makro

Anzahl der Ausdrucke in einem Makro
11.01.2007 07:36:59
AVD
Folgendes Problem,
ich möchte eine bestimmte Seite ausdrucken über ein Makro.
Die Anzahl der Kopien sollne individuell einstellbar sein.
Die Seite die ausgedruckt wird ist in der Tabelle "Logo".
Die Anzahl der Kopien befindet sich in der Tabelle"Einstellungen"
in der Zelle K5.
Also wenn ich das Tabellenblatt Logo 4 mal drucken will würde in der Zelle K5 im Tabellenblatt "Einstellungen" der Wert 4 stehen.
Sheets("Logo").Select
Selection.PrintOut , Copies:=1, _ Collate:=True
Das ist das Makro das ich bisher habe.
Diese möchte ich nun verändern, in dem ich der Wert von Copies:=1 variabel wird.
Viele Dank für Deine Rückmeldung. Werde mich auf jeden Fall bei Dir melden, ob es geklappt hat.
Danke
Alex
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl der Ausdrucke in einem Makro
11.01.2007 07:43:52
Oberschlumpf
Hi Alex
Versuch es mal so (ungetestet):
Selection.PrintOut , Copies:=Sheets("Einstellungen").Range("K5").Value, _ Collate:=True
Konnte ich helfen?
Ciao
Thorsten
AW: Anzahl der Ausdrucke in einem Makro
11.01.2007 07:55:11
AVD
Hallo Thorsten,
hat alles perfekt geklappt.Super.
Vielen Dank
Alex
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Anzahl der Ausdrucke in einem Makro anpassen


Schritt-für-Schritt-Anleitung

Um die Anzahl der Ausdrucke in einem Makro anpassbar zu machen, befolge diese Schritte:

  1. Öffne dein Excel-Dokument und gehe zu dem Makro, das du anpassen möchtest.

  2. Stelle sicher, dass die Anzahl der Kopien in der Zelle K5 des Tabellenblatts "Einstellungen" festgelegt ist.

  3. Ersetze die Zeile im Makro, die die Anzahl der Kopien definiert, durch den folgenden Code:

    Selection.PrintOut , Copies:=Sheets("Einstellungen").Range("K5").Value, Collate:=True
  4. Speichere das Makro und teste es, indem du das Tabellenblatt "Logo" druckst. Die Anzahl der Ausdrucke sollte nun der Zahl in K5 entsprechen.


Häufige Fehler und Lösungen

  • Fehler: Das Makro druckt nicht die angegebene Anzahl an Kopien.

    • Lösung: Überprüfe, ob der Wert in der Zelle K5 tatsächlich eine Zahl ist. Wenn nicht, stelle sicher, dass du eine gültige Zahl eingibst.
  • Fehler: Das Tabellenblatt "Einstellungen" kann nicht gefunden werden.

    • Lösung: Achte darauf, dass das Tabellenblatt korrekt benannt ist. Es muss genau "Einstellungen" heißen.

Alternative Methoden

Falls du nicht mit Makros arbeiten möchtest, kannst du die Anzahl der Ausdrucke auch manuell einstellen:

  1. Gehe zu Datei > Drucken.
  2. Wähle die Anzahl der Kopien im Druckdialog aus und drücke auf Drucken.

Eine andere Möglichkeit ist die Verwendung von VBA-Formularen, um die Anzahl der Druckkopien dynamisch einzugeben.


Praktische Beispiele

Hier ist ein einfaches Beispiel, wie dein komplettes Makro aussehen könnte:

Sub DruckeLogo()
    Sheets("Logo").Select
    Selection.PrintOut , Copies:=Sheets("Einstellungen").Range("K5").Value, Collate:=True
End Sub

Dieses Makro druckt das Tabellenblatt "Logo" entsprechend der in K5 eingegebenen Zahl.


Tipps für Profis

  • Nutze die Application.ScreenUpdating-Eigenschaft, um die Bildschirmaktualisierung während des Druckens zu deaktivieren. Das beschleunigt den Prozess:

    Application.ScreenUpdating = False
    ' Dein Druckcode hier
    Application.ScreenUpdating = True
  • Überprüfe, ob der Drucker bereit ist, bevor du das Makro ausführst. Das verhindert unerwartete Fehler.


FAQ: Häufige Fragen

1. Wie kann ich das Makro für andere Tabellenblätter anpassen? Du kannst den Namen des Tabellenblatts in der Sheets("Logo") Zeile ändern, um ein anderes Blatt zu drucken.

2. Was passiert, wenn der Wert in K5 eine negative Zahl ist? Das Makro kann Fehler verursachen, wenn K5 eine negative Zahl enthält. Stelle sicher, dass hier nur positive Ganzzahlen eingegeben werden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige