Wie kann ich den Druckbereich fetslegen? Das makro soll die letzte leere Zeile in Spalte B (Kopf hat 9 Zeilen) suchen und dann bis dahin den Druckbreich festlegen die Breite ist immer 14 Spalten (also bis "N")
Wie kann ich das machen?
Range("B9").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=11).Activate
endreihe = ActiveCell.Row
endzeile = ActiveCell.Column
endpunkt = ActiveCell.Address
MsgBox endreihe
MsgBox endpunkt
MsgBox endzeile
Worksheets("LOP").PageSetup.PrintArea = "$A$1:(cells(endpunkt))"
irgendwie ist in der letzten Zeile der Wurm - ich finde Ihn nicht