Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren

Forumthread: 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
Anzeige

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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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