Mit Makro Tabellenbl. drucken untersch. Anzahl

Computer: Software & Programmierung Office Software
1

In einer Arbeitsmappe habe ich immer eine unterschiedliche Anzahl von Tabellenblätter, nur die ersten 4 sind immer da. Nach dem Start einer Auswertung(Makro) hat die Arbeitsmappe immer eine unterschiedliche Anzahl von Tabellenblätter (zwischen 6 und max 40). Nun möchte ich mit Hilfe eines Makros die vorhandenen Tabellenblätter (ab 4)drucken.
Wer kann helfen
Johann

2

In einer Arbeitsmappe habe ich immer eine unterschiedliche
Anzahl von Tabellenblätter, nur die ersten 4 sind immer da.
Nach dem Start einer Auswertung(Makro) hat die Arbeitsmappe
immer eine unterschiedliche Anzahl von Tabellenblätter
(zwischen 6 und max 40). Nun möchte ich mit Hilfe eines Makros
die vorhandenen Tabellenblätter (ab 4)drucken.

Hallo Johann,

Option Explicit

Sub Druck()
Dim N As Integer
With ThisWorkbook
 For N = 5 To .Worksheets.Count
 .Worksheets(N).PrintOut
 Next N
End With
End Sub

Gruß
Reinhard

3

Danke, hat geklappt