kleine Optimierung - Sortierrotine

Hallo Excel-Freunde
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo elima,
eine Möglichkeit wäre den Sortiervorgang mit einem Autofilter zu kombinieren, das die Zeilen mit Leereinträgen ("") in Spalte G ausblendet. Schaut dann so aus


Sub sortieren()
With ActiveSheet
.Unprotect "deinPasswort"
'Überprüfung, ob Autofiltermode aktiv und Zeilen ausgeblendet
If .AutoFilterMode = True Then
If .Cells.SpecialCells(xlCellTypeVisible).Count < .Cells.Count Then
.ShowAllData
End If
End If
'für Überschrift in Zeile 11 . Aufsteigend sortiert nach Spalte G (Sort Key1)
.Range("A11:Q90").Sort Key1:=Range("G12"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' Autofilter setzen bzw. Einrichten und Zeilen mit leeren Zellen ("") ausblenden
If .AutoFilterMode = True Then
.Range("G11").AutoFilter Field:=1, Criteria1:="<>"
Else
.Range("G11", .Range("G11").End(xlDown)).AutoFilter
.Range("G11").AutoFilter Field:=1, Criteria1:="<>"
End If
.Protect "deinPasswort"
End With
End Sub

Falls du in der Tabelle die Autofilter-Funktion schon nutzt, dann muß man noch ein wenig anpassen.
mfg
Franz

Sub sortieren() With ActiveSheet .Unprotect "deinPasswort" 'Überprüfung, ob Autifiltermode aktiv und Zeilen ausgeblendet If .AutoFilterMode = True Then If .Cells.SpecialCells(xlCellTypeVisible).Count < .Cells.Count Then .ShowAllData End If End If 'für Überschrift in Zeile 11 . Aufsteigend sortiert nach Spalte G (Sort Key1) .Range("A11:Q90").Sort Key1:=Range("G12"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ' Autofilter setzen bzw. Einrichten und Zeilen mit leeren Zellen ("") ausblenden If .AutoFilterMode = True Then .Range("A11:Q90").AutoFilter Field:=7, Criteria1:="<>" Else .Range("A11:Q90").AutoFilter .Range("A11:Q90").AutoFilter Field:=7, Criteria1:="<>" End If .Protect "deinPasswort" End With End Sub

Beliebteste Forumthreads (12 Monate)

kleine Optimierung - Sortierrotine

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread