Sortieren + leere Zellen ignorieren
26.08.2004 16:53:26
Niels
ich habe wiedermal ein kleines Problem beim Makro schreiben und komme nicht wirklich weiter...
Kurz zur Erklärung:
Ich habe zwei Tabellenblätter. (Tabelle "AAA" + Tabelle "BBB")
In AAA sind die Zellen A2:A101 für Text vorgesehen
Ich ziehe mir in BBB - A2:A101 den Text aus AAA über eine Wenn-Dann-Formel
(=if(istext('AAA'!A1);'AAA'!A1;"")
Jetzt möchte ich per Makro in BBB die Zeilen 2-101 alphabetisch sortieren.
Sub Sortalpha()
Rows("2:101").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Problem:
Bei aufsteigender Sortierung legt er mir die Zeilen, die aufgrund der Wenn-Dann-Bedingung leer sind, aber nach oben.
Ich möchte erreichen, dass leere Zellen ignoriert werden und der Makro zwar den gesamten Bereich (2:101) aufsteigend sortiert, aber die leeren Zeilen hinten anstellt.
Wie kann ich das lösen?
Vielen Dank im Voraus für die Hilfe
Gruß
Niels