Druck eines ausgeblendeten Tabellenblatts in Excel mit VBA
Schritt-für-Schritt-Anleitung
Um ein ausgeblendetet Tabellenblatt in Excel per VBA zu drucken, kannst Du die folgende Schritt-für-Schritt-Anleitung verwenden:
-
Öffne den VBA-Editor:
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf "VBAProject (deine Datei)" und wähle
Einfügen > Modul.
-
Kopiere den folgenden Code in das Modul:
Sub Ausdruck()
Application.ScreenUpdating = False
With Sheets("Tabelle1")
.Visible = True
.PrintOut
.Visible = False
End With
Application.ScreenUpdating = True
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Führe das Makro aus:
- Drücke
ALT + F8, wähle Ausdruck und klicke auf Ausführen.
Jetzt sollte das ausgeblendete Tabellenblatt erfolgreich gedruckt werden.
Häufige Fehler und Lösungen
-
Fehlermeldung beim Druck: Wenn Du eine Fehlermeldung erhältst, überprüfe, ob das Tabellenblatt tatsächlich den korrekten Namen hat und ob es ausgeblendet ist.
-
Excel stürzt ab: Um dies zu vermeiden, stelle sicher, dass Du den Application.ScreenUpdating Befehl auf False setzt, bevor Du das Tabellenblatt einblendest.
Alternative Methoden
Falls Du das Tabellenblatt nicht über VBA drucken möchtest, kannst Du es auch manuell einblenden:
- Klicke mit der rechten Maustaste auf einen der Tabellennamen am unteren Rand und wähle
Einblenden.
- Drucke das Blatt wie gewohnt.
- Blende das Blatt nach dem Druck wieder aus.
Diese Methode ist jedoch weniger automatisiert und kann umständlicher sein, wenn Du häufig Druckaufträge hast.
Praktische Beispiele
Nehmen wir an, Du hast ein Tabellenblatt mit dem Namen „Daten“, das Du drucken möchtest:
Sub DruckDaten()
Application.ScreenUpdating = False
With Sheets("Daten")
.Visible = True
.PrintOut
.Visible = False
End With
Application.ScreenUpdating = True
End Sub
Dieser Code funktioniert genauso wie der vorherige, aber zeigt, dass Du jeden beliebigen Tabellennamen verwenden kannst.
Tipps für Profis
-
Verwende Variablen: Du kannst den Namen des Tabellenblatts als Variable speichern, um den Code flexibler zu gestalten.
Sub DruckBlatt(blattName As String)
Application.ScreenUpdating = False
With Sheets(blattName)
.Visible = True
.PrintOut
.Visible = False
End With
Application.ScreenUpdating = True
End Sub
-
Drucke mehrere Blätter: Um mehrere ausgeblendete Blätter gleichzeitig zu drucken, kannst Du eine Schleife verwenden.
FAQ: Häufige Fragen
1. Kann ich auch mehrere ausgeblendete Tabellenblätter gleichzeitig drucken?
Ja, Du kannst eine Schleife erstellen, um dies zu tun.
2. Ist das Druckverfahren in allen Excel-Versionen gleich?
Ja, die VBA-Befehle sind in den meisten Excel-Versionen ähnlich, aber die Benutzeroberfläche kann variieren. Teste es in Deiner Version, um sicherzugehen.