Hallo Forum,

ich habe alle Definitionen durchgelesen, aber keine Antwort auf folgende Herausforderung gefunden:

Nach Click durch den Anwender schreibt mein Userform Datenreihen in ein Bestellformular. Dieses Formular (Excelsheet) hat hunderte von Zeilen dafür vorgesehen; den Abschluss des Formulars bilden Zeilen für Zwischensumme und Endsumme (dabei ist Zelle A... nicht besetzt).

Nach dem Einlesen der Datenreihen möchte ich die überflüssigen Zeilen aus dem Formular löschen, indem ich die erste freie Zelle aussuche, bis zum Ende gehe, zwei Reihen nach oben gehe und den Bereich dann lösche. Der Code hier ↓ ergibt leider eine Fehlermeldung. Über ein Lösungsvorschlag würde ich mich freuen!

Cells(OrderForm.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveCell.Range("activecell", Range("activecell").End(xlDown).End(xlToRight)).Offset(-2, 0).Delete