Seitenumbruch löschen in Arbeitsblatt
12.01.2004 18:17:42
volker.R
Bitte um hilfe bin wie vernagelt!!
Ich erstelle in einer Anwendung automatisch Rechnungen in einem Arbeitsblatt.
Die erste Rechnung hatte 2 Seiten. Ich lösche nun das
Arbeitsblatt wenn die nächste Rechnung erstellt wird.Der Seitenumbruch bleibt
aber bestehen, auch wenn die nächste Rechnung nur ein paar Zeilen hat.
Ich lösche mit folgender Anweisung in VBA
Zuerst zählen der letzten Zeile
LastRec = Sheets("RBlatt").Range("K"&Rows.Count).End(xlUp).Row
Range(Cells(1,1),Cells(LastRec,12)).Select
Selection.Delete oder Selection.Clear
auch wenn ich händisch die Zeilen lösche bleibt der Umbruch bestehen
un die Seitenansicht zeigt mir immer ein leeeres Blatt und wird auch gedruckt.Für Hilfe wäre ich sehr dankbar
mfg.volker