Gruppe
Druck
Bereich
Arbeitsblatt
Thema
Blatt nur drucken, wenn Zeichenfolge im Namen
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