wenn du die Sortierung eh per VBA durchf?hrst, dann schneide nach der Sortierung die Zeilen aus, in denen kein Eintrag steht und h?ng sie unten wieder dran. Ich bin bestimmt kein Excel-Profi, aber offensichtlich l?sst sich dies ?ber die Sortier-Optionen nicht erschlagen.
Bsp:
Option Explicit
Sub LeereNachUnten()
Dim i As Integer, Zmax As Integer, Spalte As Byte
Spalte = 5 'Spaltennr. hier E=5 (entsprechend anpassen)
Zmax = 500 'deine letzte Zeile
For i = 2 To Zmax '(Annahme: Zeile1=?berschrift)
If Cells(i, Spalte) <> "" Then Exit For
Next i
Rows("2:" & i - 1).Cut
Rows(Zmax + 1).Insert Shift:=xlDown
End Sub
Gru?
Christoph
('ne R?ckmelung w?re nett)