Hallo, ich hab so gesehen ein kleines Problem.

Grob gesagt sortiert mein Code Spalten und löscht Zeilen mit bestimmte Inhalte - es handelt sich hierbei um eine Stückliste. Am Ende werde ich über die MsgBox gefragt,ob ich überflüssige Zeilen löschen möchte, mit "Ja oder nein".
Bei "JA" muß ich die Zeilennummer eingeben ab wo ich löschen möchte.
Bei "Nein" = Programm Ende.
Zu meinem Problemchen - wenn ich eine Stüli mit mehr als 39 Zeilen habe, dann sehe ich die folgende befüllten Zeilen ja nicht und kann daher überflüssige Zeilen nicht löschen - muß ja sehen was in den Zeilen steht und scrollen kann ich ja zu dem Zeitpunkt auch nicht.

Mit

Range("D1").Select
    ActiveCell.SpecialCells(xlLastCell).Select

wird die letzte Zelle in Spalte D markiert, aber die befindet sich dann genau in der mitte des Blattes und die letzte Zeile sollte eben weiter unten zu sehen sein, damit zu erkennen ist, ab wo gelöscht werden kann.

Ich hoffe ich hab nicht zu kompliziert geschrieben und es findet sich jemand, wo eine Idee hat!

Vielen Dank