[VBA] Drucken bestimmter Seiten

[Woersi]

Hallo Forum-User,

bisher konnte ich mir hier im Forum durch lesen immer selbst helfen. Nun benötigt es aber mal einen eigenen Thread

folgendes Makro benutze ich um meine Excel-Tabellen auszudrucken:

Code: [Auswählen]

Private Sub CommandButton1_Click()
If MsgBox("Wirklich drucken?", vbYesNo) <> vbYes Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=14, Collate:=True
    Sheets("Abschlussblätter").Select
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=45, Copies:=1, Collate _ :=True
    Sheets("Staupläne").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
    Sheets("Plombenkontrollscheine Mappen").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=45, Copies:=2, Collate _:=True
    Sheets("Laufzettel").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Tor- und Wechselbrückenvergabe").Select
End Sub

Nun würde ich gerne, bei den Tabellenblättern Plombenkontrollscheine Mappen + Abschlussblätter die Seitenanzahl abhängig von den ausgefüllten Zeilen im Tabellenblatt Tor- und Wechselbrückenvergabe verändern.
Sprich ist in Tor- und Wechselbrückenvergabe Zeile 54 ausgefüllt, soll bis Seite 45 gedruckt werden. Ist nur bis Zeile 53 ausgefüllt, soll nur bis Seite 44 gedruckt werden usw.
Ist das überhaupt möglich?

Vorab schonmal vielen Dank für eure Hilfe.

Grüße
Woersi