Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabelle nach Spalte Sortieren

Tabelle nach Spalte Sortieren
25.01.2020 20:45:07
Frank
Hallo miteinender,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle nach Spalte Sortieren
25.01.2020 20:47:11
Hajo_Zi
ersetze
ActiveWorkbook.Worksheets("TD (3)")
durch
ActiveSheet

AW: Tabelle nach Spalte Sortieren
25.01.2020 21:09:48
Frank
Hallo Hajo,
klingt gut. Doch in .listobjects> habe immer noch den Datei-Namen stehen?
Danke & Gruß
Frank
AW: Tabelle nach Spalte Sortieren
25.01.2020 21:29:29
Hajo_Zi
ActiveSheet.name
Gruß Hajo
Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige