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

Forumthread: Druckmakro erstellen?

Druckmakro erstellen?
11.05.2006 09:23:05
Westenfeld
Hallo Leute,
ich habe eine Excel-Datei mit 11 Arbeitsblättern, möchte gerne 6 dieser Arbeitsblätter mit nur einem Klick oder mit einer Aktion drucken, wie funkioniert das? Ich glaube das ganze nennt man Druckmakro, es soll das erste und die letzten 5 gedruckt werden.
Bitte super einfach erklären, okay?
Grüße und Danke!
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckmakro erstellen?
11.05.2006 10:17:22
marcl
hallo,

Sub druckmakro()
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", _
"Tabelle5")).PrintOut Copies:=1, Collate:=True
End Sub

einfach statt Tabelle... die Nemen der Blätter einsetzen.
Gruß
marcl
AW: Druckmakro erstellen?
11.05.2006 11:41:12
Sebastian
Kurze Zwischenfrage: Was heißt denn hier das Collate?
Danke.
Anzeige
AW: Druckmakro erstellen?
11.05.2006 13:50:18
Harald
Hi,
PrintOut markieren und F1 drücken ;-))
Gruss Harald
AW: Druckmakro erstellen?
11.05.2006 15:21:43
Westenfeld
Hallo, erstmal danke für die antwort aber wo muss ich das eingeben, bitte für ´ganz doofe erklären.
danke ;)

Sub druckmakro()
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", _
"Tabelle5")).PrintOut Copies:=1, Collate:=True
End Sub

Anzeige
AW: Druckmakro erstellen?
12.05.2006 06:10:54
marcl
Moin,
also, gehe in die die Symbolleisten und wähle "Steuerelement-Toolbox". Wähle die Befehlsschaltfläche und mache damit einen Button. Mit der rechten Maustaste in den Button und "Eigenschaften" auswählen. In dem Punkt Caption kannst Du den Namen des Buttons neu schreiben. Noch einmal mit rechts in den Button und "Code anzeigen" auswähen.
Hier muss nur:
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", _
"Tabelle5")).PrintOut Copies:=1, Collate:=True
rein, fertig.
MfG
marcl
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Druckmakro in Excel erstellen


Schritt-für-Schritt-Anleitung

Um ein Druckmakro in Excel zu erstellen, folge diesen einfachen Schritten:

  1. Öffne die Excel-Datei: Stelle sicher, dass du die Datei mit den Arbeitsblättern geöffnet hast, die du drucken möchtest.

  2. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.

  4. Schreibe das Makro: Kopiere den folgenden Code in das Modul:

    Sub druckmakro()
       Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5")).PrintOut Copies:=1, Collate:=True
    End Sub
  5. Anpassen der Blattnamen: Ersetze „Tabelle1“, „Tabelle2“ usw. mit den tatsächlichen Namen deiner Arbeitsblätter.

  6. Speichern: Schließe den VBA-Editor und speichere deine Excel-Datei als „Excel-Arbeitsmappe mit Makros“ (.xlsm).

  7. Makro ausführen: Du kannst das Makro jetzt direkt aus dem VBA-Editor ausführen oder einen Button in deiner Excel-Oberfläche erstellen, um das Makro einfach auszuführen.


Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 9: Index außerhalb des gültigen Bereichs“

    • Lösung: Überprüfe die Namen der Arbeitsblätter in der Array-Liste. Sie müssen exakt mit den Namen in der Excel-Datei übereinstimmen.
  • Fehler: Das Makro lässt sich nicht ausführen

    • Lösung: Stelle sicher, dass die Excel-Datei im richtigen Format (.xlsm) gespeichert ist und dass Makros in den Excel-Einstellungen aktiviert sind.

Alternative Methoden

Falls du die Programmierung von Makros in Excel nicht magst, kannst du auch die integrierte Druckfunktion nutzen:

  1. Manuelles Drucken: Wähle die Arbeitsblätter, die du drucken möchtest, indem du die STRG-Taste gedrückt hältst und auf die jeweiligen Arbeitsblätter klickst. Gehe dann zu „Datei“ > „Drucken“.
  2. Drucken über das Menü: Du kannst auch die Druckoptionen von Excel verwenden, um mehrere Arbeitsblätter auszuwählen und zu drucken.

Praktische Beispiele

Ein praktisches Beispiel für ein Druckmakro könnte wie folgt aussehen:

Sub druckmakro()
    ' Drucken von Tabelle1 und den letzten 5 Tabellen
    Sheets(Array("Tabelle1", "Tabelle7", "Tabelle8", "Tabelle9", "Tabelle10", "Tabelle11")).PrintOut Copies:=1, Collate:=True
End Sub

Hier druckst du das erste Arbeitsblatt und die letzten fünf Arbeitsblätter deiner Excel-Datei.


Tipps für Profis

  • Makros für Excel erstellen: Nutze die Möglichkeit, Makros zu programmieren, um wiederkehrende Aufgaben zu automatisieren. Überlege dir, welche Prozesse du häufig wiederholst und erstelle dafür passende Makros.
  • Excel Historie erstellen: Halte eine Historie deiner Makros, indem du sie dokumentierst. Dies hilft dir, Änderungen nachzuvollziehen und Fehler schneller zu beheben.

FAQ: Häufige Fragen

1. Wie kann ich dem Makro einen Button zuweisen?
Du kannst einen Button erstellen, indem du die „Steuerelement-Toolbox“ in Excel verwendest. Füge eine Schaltfläche hinzu und klicke mit der rechten Maustaste darauf, um den Code für das Makro zuzuweisen.

2. Was bedeutet „Collate“ im Druckmakro?
„Collate“ bedeutet, dass die Druckausgaben in der Reihenfolge sortiert werden, in der sie angeordnet sind. Wenn du mehrere Kopien druckst, werden die Seiten in der richtigen Reihenfolge ausgegeben.

3. Kann ich das Makro in anderen Excel-Versionen verwenden?
Ja, die grundlegenden Schritte und der VBA-Code sind in den meisten modernen Excel-Versionen (ab Excel 2007) gleich. Vergewissere dich jedoch, dass Makros in deiner Version aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige