Drucken von mehreren Blättern
21.02.2018 21:18:45
mehreren
vielleicht könnt Ihr mir weiterhelfen!
Problemstellung:
Ich habe in einer Registerkarte Daten die auf mehrere Seiten gedruckt werden sollen.
Es soll definiert sein was auf ein Blatt kommt!
Die Seiten sollen nur gedruckt werden, wenn auch wirklich Daten da sind!
Sprich:
Sprich steht in einer bestimmten Zelle was drin, dann soll die erste Seite gedruckt werden. Steht in einer anderen Zelle was drin, dann soll die nächste Seite gedruckt werden. Und so weiter!
Ich habe folgenden Code erstellt. Aber er funktioniert nicht. Ich weiß nicht was falsch ist. Vielleicht könnt Ihr mir helfen.
Code:
Sub DruckWE()
If Range("=2-WE1!B39") = "" Then
With ActiveSheet.PageSetup
PrintArea = "A1:F36"
End With
End If
If Range("=2-WE1!B75") = "" Then
With ActiveSheet.PageSetup
PrintArea = "A1:F72"
End With
End If
End Sub
Vielen Dank im voraus!
Gruß
DMDET