Hat jemand eine Idee wie ich alle SICHTBAREN Tabellenblätter ausdrucken lassen kann?
Private Sub CommandButton1_Click()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh
End Sub
Für jeden Vorschlag wäre ich dankbar!LG Lisa
Private Sub CommandButton1_Click()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh
End Sub
Für jeden Vorschlag wäre ich dankbar!
Sub AlleBlätterDrucken()
ThisWorkbook.PrintOut
End Sub
Application.Dialogs(xlDialogPrint).Show
und dann gesamte Arbeitsmappe wählen.
Dim DrBlx() As Long, Shx As Long, Blatt As Worksheet '…usw
For Each Blatt In ActiveWorkbook
If Blatt.Visible = xlSheetVisible Then Redim Preserve DrBl(Shx): _
DrBlx(Shx) = Blatt.Index: Shx = Shx + 1
Next Blatt
ActiveWorkbook.Sheets(DrBlx).Select '…usw
Hieran anschließend kannst du den Druckdialog oder die Druckvorschau aufrufen bzw gleich drucken (statt .Select .PrintOut).