Thema
Druckvorschau gem. Kontrollkästchen-Auswahl
Gruppe
Arbeitsblatt
Problem
Die Tabellen gem. Kontrollkästchen sollen in der Druckvorschau angezeigt werden.
StandardModule: Modul1 Sub DruckVorschau() Dim chb As CheckBox For Each chb In ActiveSheet.CheckBoxes If chb.Value = xlOn Then Worksheets(chb.Caption).PrintPreview End If Next chb End Sub