aufsteigend sortieren, aber Leerzellen ans Ende
27.10.2003 14:36:46
Jürgen
ich habe eine Tabelle mit verknüpften Werten aus einer anderen Tabelle.
Einen speziellen Bereich dieser Tabelle möchte ich per VBA automatisch beim öffnen aufsteigend sortieren, wobei aber die Leerzellen ans Ende des Sortierbereichs gestellt werden sollen.
Habs mit folgendem Code versucht:
Sub SortierenAufsteigend()
Worksheets("kurz").Range("A7:K47").Sort Key1:=Range("A7"), _
Order1:=xlAscending, Header:=xlYes, MatchCase:=False, OrderCustom:=1,
Orientation:=xlTopToBottom
End Sub
so stellt er mir die Leerzeilen an den Anfang
Weiß jemand Rat??
Vielen Dank im voraus.
Gruß Jürgen