Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren

Sortieren
07.12.2019 20:38:51
Max
Schönen guten Abend ersmal.
Nun zu meinem Problem.
Ich möchte in der Datei:
https://www.herber.de/bbs/user/133669.xlsx
die Spalten nach den Flurabstandsklassen (A,B,C,D) sortiert haben.
In den Foren finde ich leider immer nur Aussagen dazu wie ich ein Spalte oder eine Zeile sortieren kann.
MfG
Max

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren
07.12.2019 21:00:31
EtoPHG
Hallo Max,
Gesamten Bereich ohne Spalte A selektieren.
Benutzerdefiniertes Sortieren - [Optionen...] - [x] Spalten sortieren
Sortieren nach: Zeile 2.
Ohne Relevanz / Excel gut?
Gruess Hansueli
AW: Sortieren
07.12.2019 21:33:29
Max
Danke erst mal, aber ich suche nach einer VBA-Lösung
Sub Sortieren()
Dim i As Integer
Dim A, B, C, D As Integer 'Flurabstandsklassenanzahl
Dim P As Worksheet
For Each P In Sheets
P.Activate
i = Application.WorksheetFunction.CountA(Rows("3:3"))
'Sortieren nach A,B,C,D
Range(Columns(2), Columns(i)).Select
Application.DeleteCustomList ListNum:=9
Application.AddCustomList ListArray:=Array("A", "B", "C", "D")
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add2 Key:=Range( _
Columns(2), Columns(i)), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"A,B,C,D", DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range(Columns(2), Columns(i))
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Next P
End Sub

Etwas in der Richtung nur bekomme ich hier immer inen Laufzeitfehler.
Anzeige
Kennst du den Makrorekorder? (owT)
07.12.2019 22:01:58
EtoPHG

AW: Kennst du den Makrorekorder? (owT)
07.12.2019 22:18:28
Max
Natürlich und ich habe den fehler jetzt auch gefunden.
Ist jetzt wohl schon etwas zu spät.
Key:=Range(Cells(3,2),Cells(3,i) ....
Trotzdem Danke
also raus aus (offene Fragen) owT
07.12.2019 22:58:52
Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige