Excel VBA sortieren

Sub Sortieren() ' Sortieren Makro Range("A2:D51").Select ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Add2 Key:=Range( _ "A2:A51"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Tabelle2").Sort .SetRange Range("A1:D51") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wie man mit zwei- oder mehr Sortierkriterien sortiert, sollte dir der Recorder zeigen, einfach mal zwei Sortierkriterien auswählen und aufzeichnen.
sollte das nicht funktionieren, kann man auch einfach nacheinander nach jedem Kriterium einzeln sortieren.
Man muss dabei mit dem niederwertigsten Sortierkriterium beginnen und mit dem höchstwertigen aufhören (also zuerst nach B und danach nach A)
Aufgezeichneter Code muss immer überarbeitet werden.
Beim Sortieren musst du an zwei Stellen noch das Tabellenblatt bzw Workbook und Tabellenblatt einfügen, da hier der Recorder nur die Range alleine aufzeichnet und sich dann immer auf das aktive Tabellenblatt bezieht. die zwei Stellen wären:
- Key:
- SetRange


Sub Sortieren()
' Sortieren Makro
Range("A2:D51").Select
ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Add2 Key:=ActiveWorkbook.Worksheets("Tabelle2").Range( _
"A2:A51"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle2").Sort
.SetRange ActiveWorkbook.Worksheets("Tabelle2").Range("A1:D51")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

oder man schreibt sich die das ganze gleich vernünftig um, so dass man die WITH-Klammer auch sinnvoll nutzen kann:


With ActiveWorkbook.Worksheets("Tabelle2")
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=.Range("A2:A51"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange .Range("A1:D51")
.Sort.Header = xlYes
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With

Gruß Daniel

Sub Sortieren() ActiveSheet.Sort .SortFields.Clear .SortFields.Add2 Key:=Range("A1"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add2 Key:=Range("B1"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SetRange Range("A:D") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread