habe eine VBA, mit der ich aus 5 verschiedenen Tabellenblättern drucken möchte.
Die Vorgabe darüber welches der Tabellenblätter gedruckt werden soll steht in meinem Tabellenblatt "DQ" in Zelle "i8".
Hier wird mit einer Formel ein Wert von 1-5 ermittelt. Wenn also eine 4 errechnet wird, möchte ich eben auch nur Tabelle 1-4 drucken.
Kann mir bitte jemand sagen, was ich umstellen muss, damit das funktioniert?
Aktuell kommen leider immer alle 5 Blätter : (
Vielen Dank vorab
Gruß Andreas
Sub DruckTabellen()
Dim strDruckerAktiv$, i%, max%, vz%, bz%, sStdDrucker$
sStdDrucker = Application.ActivePrinter
'Application.ActivePrinter = "\\SRVADS01.Briefpapier auf Ne08:"
strDruckerAktiv = Application.ActivePrinter
max = Sheets("DQ").Range("I8").Value
If max If max > 5 Then max = 5
For i = 1 To max
vz = i * 52 - 51: bz = i * 37
Worksheets("Tabelle1").Range("F" & vz & ":S" & bz).PrintPreview '.PrintOut Copies:=1
Worksheets("Tabelle2").Range("F" & vz & ":S" & bz).PrintPreview '.PrintOut Copies:=1
Worksheets("Tabelle3").Range("F" & vz & ":S" & bz).PrintPreview '.PrintOut Copies:=1
Worksheets("Tabelle4").Range("F" & vz & ":S" & bz).PrintPreview '.PrintOut Copies:=1
Worksheets("Tabelle5").Range("F" & vz & ":S" & bz).PrintPreview '.PrintOut Copies:=1
Next i
Application.ActivePrinter = sStdDrucker
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub