Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Woersi am Mai 17, 2017, 19:29:55 Nachmittag

Titel: [VBA] Drucken bestimmter Seiten
Beitrag von: Woersi am Mai 17, 2017, 19:29:55 Nachmittag

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