wie kann ich den Druckbereich per VBA so anpassen, dass der Durckbereich immer bis einschließlich zur letzten beschriebenen Zelle in Spalte A gezogen wird?
Gruß
Dim Zeile As Long
Zeile = Sheets("DeinTabellenblatt").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("DeinTabellenblatt").PageSetup.PrintArea = ""
Sheets("DeinTabellenblatt").PageSetup.PrintArea = "$A$8:$R$" & Zeile 'Spalten anpassen
Gruß Werner