Clever-Excel-Forum

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ß!

Hallo,

das ist aber schon ein bisschen von hinten durch die Brust ins Auge. Wink

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

diving_excel

Kuwer