Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige