eine Frage mit gleichem Text noch einmal zu stellen, weil sie vorher nicht beantwortet wurde, ist nicht sinnvoll. Die Frage wurde nicht beantwortet, weil niemand eine L?sung wusste, oder weil sie missverst?ndlich gestellt war.
gruss hans
Sub Drucken()
Dim iWks As Integer, iCounter As Integer
For iWks = 3 To Worksheets.Count - 2
Worksheets(iWks).PrintPreview
Next iWks
End Sub
Sub Drucken()
Dim iWks As Integer, iPage As Integer
Dim arr() As String
ReDim arr(1 To Worksheets.Count - 4)
For iWks = 3 To Worksheets.Count - 2
iPage = iPage + 1
arr(iPage) = Worksheets(iWks).Name
Next iWks
Worksheets(arr).PrintPreview
End Sub
Sub Drucken()
Dim iWks As Integer, iCounter As Integer
For iWks = 3 To Worksheets.Count - 2
Worksheets(iWks).PrintPreview
Next iWks
End Sub
Sub Drucken()
Dim iWks As Integer, iPage As Integer
Dim arr() As String
ReDim arr(1 To Worksheets.Count - 4)
For iWks = 3 To Worksheets.Count - 2
iPage = iPage + 1
arr(iPage) = Worksheets(iWks).Name
Next iWks
Worksheets(arr).PrintPreview
End Sub