Kann mir jemand sagen warum ich bei der Zeile "Diagrammdruck (Zähler)" einen Laufzeitfehler habe?
Schmiede, Riwa... sind Funktionen die ich damit anstoßen will!
Diagrammdruck = Array("Schmiede", "Riwa", "FSH", "Werk_Bockenau") End Sub
Private Sub Blatt2_Drucken_Click()
Dim Diagrammdruck As Variant, Zähler
Dim wks As Worksheet
For Zähler = 0 To 3
Diagrammdruck (Zähler)
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
For Each wks In ActiveWorkbook
ActiveSheet.PrintOut
Next wks
Next Zähler
Danke im Vorraus & Gruß
Frederik