Alle sichtbaren Excel-Blätter einer Arbeitsmappe ausdrucken – VBA


Alle sichtbaren Excel-Blätter einer Arbeitsmappe ausdrucken – VBA

Alle sichtbaren Excel-Blätter einer Arbeitsmappe ausdrucken – VBA

Auch mit einem einfachen Makro können Sie blitzschnell alle eingeblendeten Excel-Blätter auf einmal ausdrucken. Verwenden Sie hierzu einfach das folgende Makro:

 

Sub SichtbareExcelblaetterDrucken()

Dim Excelblatt As Worksheet

For Each Excelblatt In Worksheets

If  Excelblatt.Visible = True Then

 Excelblatt.PrintOut

End If

Next Excelblatt

End Sub