Hallo zusammen,
Ich brauche bitte nochmal Eure Hilfe.
Die Länge des Angebotes ist unbekannt und ich kann auch nicht gewährleisten, dass jede Zeile befüllt ist. So dachte ich mir, dass der User über eine InputBox die letzte Zeile selber eingeben soll. Das bedeutet, drucke eine PDF ab B3 bis zur Zeile die der User angibt. Leider ist es mir nicht möglich nachfolgenden Code in den bestehenden einzubauen. Wäre echt super, wenn mir hier einer unter die Arme greifen könnte.
Vielen Dank.
VG Eisi :-)
Sub AngebotDruckbereichFestlegen()
Dim Zeilen As String
On Error GoTo ende
Zeilen = Application.InputBox("Trage bitte die Zeilen-Nummer für den Druckbereich ein")
Range("B3:I" & Zeilen).PrintOut Copies:=1 ' Soll als PDF drucken
ende:
End Sub