Tabelle nur einträge sortieren

Forumthread: Tabelle nur einträge sortieren

13.10.2019 16:54:15

Udo

Hallo
Habe eine Tabelle die ich über ein Makro sortiere.
Mein Makro:


Sub Sortiere_Tabelle()
' Sortiere_Tabelle Makro
Range("A4:I54").Select
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Add Key:=Range( _
"A5:A54"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Add Key:=Range( _
"E5:E54"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Add Key:=Range( _
"B5:B54"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle Einzel").Sort
.SetRange Range("A4:I54")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Mein Problem, das nicht immer gleich viel einträge in der Tabelle stehen, es sollte immer alles abhängig der Spalte B sortieren.
Jetzt ist es so das bis B54 sortiert wird, wenn ich jetzt aber nur einträge bis B 33 z.b habe dann sollte es nur bis B33 sortieren, oder eben wenn ich bis B65 Einträge habe dann eben soweit.
Ich hoffe mich verständlich ausgedrückt zu haben
Vielen Dank im Vorraus

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabelle nur einträge sortieren

13.10.2019 17:16:15

Hajo_Zi
AW: Tabelle nur einträge sortieren

13.10.2019 17:34:44

Udo

AW: Tabelle nur einträge sortieren

13.10.2019 17:16:15

Hajo_Zi


Option Explicit
Sub Sortiere_Tabelle()
' Sortiere_Tabelle Makro
Dim Loletzte As Long
With Worksheets("Tabelle Einzel")
Loletzte = IIf(IsEmpty(.Cells(Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, . _
Rows.Count)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range( _
"A5:A" & Loletzte), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
.Sort.SortFields.Add Key:=Range( _
"E5:E" & Loletzte), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
.Sort.SortFields.Add Key:=Range( _
"B5:B" & Loletzte), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With .Sort
.SetRange Range("A4:I" & Loletzte)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub

AW: Tabelle nur einträge sortieren

13.10.2019 17:34:44

Udo

Dankeschön

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabelle nur einträge sortieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread