Thema: Blatt nur drucken, wenn Zeichenfolge im Namen

Download Beispiel-Arbeitsmappe

Home

Gruppe

Druck

Problem

Es sollen nur die Arbeitsblätter gedruckt werden, die ein Tabelle in ihrem Namen tragen.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub PrintSheets()
   Dim wks As Worksheet
   For Each wks In Worksheets
      If InStr(wks.Name, "Tabelle") Then
         wks.PrintPreview
      End If
   Next wks
End Sub

Beiträge aus dem Excel-Forum zu den Themen Druck und Arbeitsblatt

PDF Drucken VBA	Excel Arbeitsblatt verkleinern/vergrößern
Generierung von Tabs per VBA + Sammeldruck	Akt. Datum und Uhrzeit am gedruckten Dokument
UserForm im Querformat drucken	zoom auf Druckbereichsbreite anpassen
Bilder in Registerblatt drucken	PDF eventuell Ausdruck sperren?
Druckprobleme....	Arbeitsblatt schützen Kommentare aber noch möglich
Tabellenblätter Ausdruck gruppieren	Drucken mit VBA
Arbeitsblatt speichern	Bestimmte Zeilen/ Spalten nicht mitdrucken
Diagramme DIN A3 drucken	Automatischen Andruck auf Standartdrucker erzeugen
Druckerauswahl	Blätter autom. ein-/ausblenden + drucken
Kann bestimmten Drucker nicht auswählen	Drucker nicht vorhanden, dann Meldung
Arbeitsmappendruck	Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei	Arbeitsblatt als E-Mail versenden
Fehler 1004 beim Druck einer PDF - mit Screenshot	Druckeinstellungen für mehrere Drucke übernehmen
Grafik drucken	Mit Change() o. Calculate() Filtern und Drucken
Druckparameter an neue Datei	Button zum Ausdrucken
Druckparameter an Datei mitgeben	Makro für ereignisabh. Druck verschiedener Seiten
Arbeitsblattname in Zelle anzeigen	Arbeitsblatt in neuer Arbeitsmappe speichern
Excel Seriendruck im PDF-Format	Per VBA drucken - Adobe PDF on ne0x
Drucken, nur wenn Bedingung erfüllt ist!	Einfügen v. Werten in ein anderes Arbeitsblatt
variablen Druckbereich definieren	Mit Makro Virtuelle Drucker (PDF) ansteuern
Standarddrucker festsetzen??	Wann zuletzt ausgedruckt
Excel druckt keine Bilder!	sql Ausdruck like
Excel Druckmakro - VBA Experten gesucht	CommandButton nicht mit ausdrucken
Druckvorschau	Druckerdialog
mehrere Sheets farbig ausdrucken, weshalb ...