Hallo,

eine kurze, wahrscheinlich einfache Frage:

Weiß jemand, wie man eine variable Region als Print Area festlegen kann? Habs mit untenstehendem Code versucht, was aber nicht funktioniert.

Bin für jede Hilfe dankbar.

Gruß,
Jan




Range("A7").Select

Dim Punkt1 As Range
Set Punkt1 = Activecell

Selection.End(xlDown).Select
Activecell.Offset(0, 10).Select

Dim Punkt2 As Range
Set Punkt2 = Activecell

Range(Punkt1, Punkt2).Select

Dim Zielregion As Range
Set Zielregion = Activecell

ActiveSheet.PageSetup.PrintArea = Zielregion
With ActiveSheet.PageSetup
.PrintTitleRows = "$7:$7"
End With

End Sub