richtig sortieren und filtern

Private Sub CommandButton1_Click() With ActiveSheet If .AutoFilterMode Then If .FilterMode Then .ShowAllData End If End With ActiveSheet.Range("$A$5:$BH$5000").AutoFilter Field:=12, Criteria1:="" Range("A6:BH5000").Sort Key1:=Range("AB5"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
du sortierst ja auch nicht die Leerzellen nach unten sondern filterst diese aus.
des weiteren ist es nicht sinnvoll, in gefilterten Tabellen zu sortieren.
außerdem ist dein Kriterium AB5 außerhalb des Sortierbereichs, der beginnt erst ab Zeile 6
dh du musst den Autofilter weglassen und gleichzeig nach Spalte AB und L sortieren:

Range("A6:BH5000").Sort Key1:=Range("L6"), order1:=xlascending, Key2:=Range("AB6"), order2:=xldescending, header:=xlno

oder du sortierst erst die Leerzellen in Spalte L nach unten und sortierst dann den Rest ohne diese Zeilen nach Spalte AB:

Range("A6:BH5000").Sort key1:=Range("L6"), order1:=xlascending, header:=xlno
Range("A6:BH" & Range("L5").End(xldown).Row).Sort Key1:=Range("AB6"), order1:=xldescending, header:=xlno

Gruß Daniel

Hi
wenn du fertig sortiert hast, kannst du immer noch den Filter drauf setzen.
aber immer erst sortieren, dann filtern.
Da Excel im normalfall in gefilterten Tabellen nur die sichtbaren Zeilen bearbeitet, kann es zu problemen kommen, wenn du in gefilterten Tabellen sortierst.
ansonsten, fehlerwerte kommen in der Sortierhierachie ganz am schluß, dh wenn du absteigend sortierst, eben ganz oben.
oder du musst halt noch einen weiteren sortierschritt einlegen, dh erst nach Spalte AB aufsteigend sortiern, dann sind die Fehler in AB alle unten.
dann musst du ermitteln, in welcher Zeile der erste Fehlerwert steht und dann dann die Zeilen oberhalb der Fehlerwerte wieder absteigend sortieren.
also etwa so, der genaue Code hängt noch davon ab, ob in Spalte AB festwerte oder formeln stehen (beides in Mischung wäre schlecht)

Range("A6:BH5000").Sort key1:=Range("L6"), order1:=xlascending, header:=xlno
Range("A6:BH" & Range("L5").End(xldown).Row).Sort Key1:=Range("AB6"), order1:=xlascending,  _
header:=xlno
Range("AB6:AB" & Range("L5").End(xldown).Row).SpecialCells(xlcelltypeformulas, 7).EntireRow.Sort Key1:=Range("AB6"), order1:=xldescending, header:=xlno

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

243 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

richtig sortieren und filtern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

243 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread