Mit VBA Druckbereich auf letzte Zeile und Spalte

Computer: Software & Programmierung Office Software
#1

Hallo,

ich verzweifele gerade wieder - ich möchte in Excel ein Makro mit VBA erstellen, das mir den Druckbereich automatisch einstellt. Dabei soll er die letzte Zeile UND die letzte Spalte finden.

Das habe ich mir jetzt gebastelt, aber es funktioniert nicht:

Sub Druckbereicheinstellen()

Dim EndeZeile As Integer
Dim EndeSpalte As Integer
Dim Ende As Integer

EndeZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
EndeSpalte = ActiveSheet.Cells(6, Columns.Count).End(xlToLeft).Column

Ende = Cells(EndeZeile, EndeSpalte)

With ActiveSheet.PageSetup
.PrintArea = „$A$1:blush:“ & Ende
.Zoom = False
.FitToPagesWide = 1
End With

Kann mir jemand sagen, was ich falsch mache?

Danke schon mal!!!

Liebe Grüße,
Natsch

#2

hi,
probier mal so:

.PrintArea = Range(Cells(1, 1), Cells(EndeZeile, EndeSpalte)).Address

cu Micha

#3

Hey, das klappt, danke!!!

Ich wäre ja sooooo aufgeschmissen, wenn’s euch und dieses Forum hier nicht gäbe… :wink:

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]