kleine Optimierung - Sortierrotine
20.06.2006 17:32:58
elima
Harald E war so freundlich und hat mir diese Sortierroutine geschrieben und sie funktioniert auch super. Doch dummerweise habe ich nicht erwähnt, dass nur solange sortiert werden soll, solange auch was in den Zellen steht. Jetzt werden die leeren Zeilen nach oben sortiert und die in denen was drinnen steht unten angefügt.
Kennt sich jemand so gut aus um das zu optimieren, wäre sehr Dankbar dafür.
Gestartet wird die Routine mit einem Button.
ActiveSheet.Unprotect "deinPasswort"
'für Überschrift in Zeile 11 . Aufsteigend sortiert nach Spalte G (Sort Key1)
Range("A11:Q90").Sort Key1:=Range("G12"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect "deinPasswort"
MfG. elima