Sortieren per Markro

Guten Abend, habe eine Tabelle in dieser Tabelle sortiere ich eine Spalte (unten Makro) diese Zeile A ist von 1 bis 100, wenn ich auf Sortieren drücken sortiert es schön 1,2,3 usw. und das von Oben nach unten. Sobald ich aber die einzelnen Zellen 1 bis 100 verknüpfe mit einer Tabelle von deren Zeilen und danach auf Sortieren drücke (vor allem wenn in den Zellen 1 bis 100 nicht alle Zahlen beinhalten).
Wird zwar sortiert aber das PROBLEM die Sortieren Zeilen werden ganz unten an die Tabelle sortiert. Ich brauche diese aber oben. Wie gelingt mir das. Wie gesagt, wenn ich die Zellen nicht verknüpfe mit andern so bleiben die Zellen sortiert oben. Bin um Hilfe froh.

Sub Logistik_Tour_sortieren()
' Makro4 Makro
' Tour Sortieren Logistik
ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"C2:C1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("L").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"C2:C1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("L").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"C2:C1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("L").AutoFilter.Sort
.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

Sub Logistik_Tour_sortieren() ' Makro4 Makro ' Tour Sortieren Logistik ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Add2 Key:=Range( _ "C2:C1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("L").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Add2 Key:=Range( _ "C2:C1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("L").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Add2 Key:=Range( _ "C2:C1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("L").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread