Sortieren per Markro
26.01.2021 20:01:02
Roger
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