Flexibler Druckbereich per VBA

[diving_excel]

Hallo zusammen,
über einen VBA Code würde ich gerne den Druckbereich flexibel anpassen.


LZ = Letzte Zeile
LS = Letzte Spalte

Folgenden Code habe ich

Code:

Private Sub CommandButton2_Click()

LZ = Cells(Rows.Count, 2).End(xlUp).Row
LS = Cells(36, Columns.Count).End(xlToLeft).Column

Me.PageSetup.PrintArea = Range(Cells(1, 1), Cells(LZ, LS))

Me.Range(Me.PageSetup.PrintArea).ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & "TEST", , , , , , True

End Sub

Leider bekomme ich die Fehlermeldung Typen unverträglich. Weiß jemand woran das liegen könnte?

Danke & noch einen schönen Abend!

---

Hab die Lösung: 

Die Zeile "Me.PageSetup.PrintArea = Range(Cells(1, 1), Cells(LZ, LS))" musste um ".Address" erweitert werden


Me.PageSetup.PrintArea = Range(Cells(1, 1), Cells(LZ, LS)).Address


Gruß!

[Kuwer]

Hallo,

das ist aber schon ein bisschen von hinten durch die Brust ins Auge.
Das geht auch ohne Festlegung des Druckbereichs:

Private Sub CommandButton2_Click()
  Dim LS As Long, LZ As Long
  LZ = Cells(Rows.Count, 2).End(xlUp).Row
  LS = Cells(36, Columns.Count).End(xlToLeft).Column
  Range(Cells(1, 1), Cells(LZ, LS)).ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & "TEST", , , , , , True
End Sub

Gruß Uwe