Tabelle nach Spalte Sortieren
25.01.2020 20:45:07
Frank
ich möchte eine Datentabelle nach Spalte B (Zahlenwerte) absteigende sortieren. Das aufgezeichnete Makro funktioniert zwar, aber ich scheitere an folgender Modifikation:
Das Makro soll immer in der geöffneten Datei, unabhängig von deren Namen, im gerade aktiven Arbeitsplatt funktionieren.
Besten Dank im Voraus & schönes Wochenende
Frank
Sub SpaltebSortieren()
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.ActiveWorkWorksheet.ListObjects("mk_statement_2019_1247"). _
Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TD (3)").ListObjects("mk_statement_2019_1247"). _
Sort.SortFields.Add2 Key:=Range("B2"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("TD (3)").ListObjects( _
"mk_statement_2019_1247").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C2").Select
End Sub
Anzeige