Arbeitsblätter in einem Druckauftrag
18.08.2021 11:05:10
Karina
ich finde zu meinem Problem leider keine Lösung. Vielleicht kann mir hier jemand helfen.
Meine Excel Mappe hat 20 Arbeitsblätter, davon möchte ich Blatt 5 bis 17 in einem Druckauftrag drucken. Aber nur wenn in Zelle E24 und/oder E25 eine Zahl steht.
Bisher habe ich geschafft, dass er die einzelnen Blätter prüft, jedoch alle in einem eigenen Druckauftrag ausgibt.
Windows("Zahlung.xlsx").Activate
Dim i As Long
For i = 1 To Worksheets.Count
Select Case i
Case 5 To 17
If Worksheets(i).Range("E24").Value 0 Or Worksheets(i).Range("E25").Value 0 Then
Worksheets(i).PrintOut
End If
End Select
Next
Windows("TELEFAX.xlsm").Activate
End Sub