Guten Morgen,
habe folgendes Makro:
Private Sub CommandButton3_Click()
Dim z As Long
Dim rngFind As Range
Set rngFind = Sheets("Matrix-DCVD").Columns(2).Find(what:="E 200 CDI")
Sheets("Matrix-DCVD").PageSetup.PrintArea = Range(Cells(2, 2), rngFind.Offset(-1, 20)).Address
damit wird der Druckbereich bis zum "Fahrzeug E 200CDI" 1 Zeile nach oben durchgeführt, funktioniert.
Jetzt brauch ich von:"Fahrzeug E 200CDI" bis Fahrzeug "Fahrzeug GL 320 CDI 4M"
anbei mein Muster, kriege es leider nicht hin:
Private Sub CommandButton4_Click()
Dim rngFind As Range
Dim z As Long
Dim endeFind As Range
Set rngFind = Sheets("Matrix-DCVD").Columns(2).Find(what:="E 200 CDI")
Set endeFind = Sheets("Matrix-DCVD").Columns(2).Find(what:="GL 320 CDI 4M")
Sheets("Matrix-DCVD").PageSetup.PrintArea = Range(Cells(2, 2), endeFind.Offset(-1, 20)).Address
ich bitte daher um Unterstützung,
Danke im voraus, gruß Walter