Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Benutzerdefiniertes Sortieren per VBA

Forumthread: Benutzerdefiniertes Sortieren per VBA

Benutzerdefiniertes Sortieren per VBA
26.10.2004 12:41:43
Lars
Der Anwender der Arbeitsmappe legt durch mehrere Angaben letztlich fest, welche Spalten in welcher Ordnung von welcher Tabelle per VBA sortiert werden sollen. Das Blatt bekommt er aber nicht zu sehen (soll er auch nicht).
Was ich letztlich bräuchte wäre sowas wie ein variables Selection.Sort.
Geht das irgendwie?
Vielen Dank.
Lars
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Benutzerdefiniertes Sortieren per VBA
Beni
Hallo Lars,
dieser Code sortiert von A2 bis letzte Zeile/Spalte ohne Titel.
Gruss Beni

Sub variables_sortieren()
lz = Cells(Rows.Count, 1).End(xlUp).Row
ls = Cells(1, 256).End(xlToLeft).Column
sp = InputBox("Sortierung")
Range(Cells(2, 1), Cells(lz, ls)).Sort Key1:=Cells(2, sp), Header:=xlNo
End Sub

Anzeige
AW: Benutzerdefiniertes Sortieren per VBA
26.10.2004 20:00:37
Lars
Hallo Beni,
vielen Dank für Deine Antwort.
Insgesamt erstellt das Programm ein "Sortier-Array":
sortArray(nmbrSrtSls, 2) as Integer
sortArray(i, 1): Spalten-Nummer, grundsätzlich beliebig
sortArray(i, 2): 1, 2 (xlAscending, xlDescending)
nmbrSrtSls: Anzahl der Spalten, nach denen sortiert werden soll (1 bis 3)
Ich hatte als ersten naiven Versuch folgendes gemacht:
If nmbrSrtSls = 1 Then
Range(Cells(2, 1), Cells(lstRw, lstClmn)).Sort Key1:=Cells(2, sortArray(1, 1)), Order1:=sortArray(1, 2), _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ElseIf nmbrSrtSls = 2 Then
Range(Cells(2, 1), Cells(lstRw, lstClmn)).Sort Key1:=Cells(2, sortArray(1, 1)), Order1:=sortArray(1, 2), _
key2:=Cells(2, sortArray(2, 1)), order2:=sortArray(2, 2), _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ElseIf nmbrSrtSls = 3 Then
Range(Cells(2, 1), Cells(lstRw, lstClmn)).Sort Key1:=Cells(2, sortArray(1, 1)), Order1:=sortArray(1, 2), _
key2:=Cells(2, sortArray(2, 1)), order2:=sortArray(2, 2), _
key3:=Cells(2, sortArray(3, 1)), order3:=sortArray(3, 2), _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Der Code läuft auch, sortiert bloss nichts.
Etwas ratlos bin ich momentan schon...
Vielen Dank.
Gruß
Lars
Anzeige
Fehler GEFUNDEN Benutzerdefiniertes Sortieren
27.10.2004 09:28:57
Lars
Hallo Beni,
jetzt ist mir doch noch mein Fehler aufgefallen...es lag in der Test-Mappe an der Option Header:=xlYes.
Vielen Dank für die Hilfe.
Gruß
Lars
;

Forumthreads zu verwandten Themen

Sortieren funktioniert nicht mehr
Thorsten

In einer Excel-Mappe befinden sich mehrere Worksheets. Bei einem Sheet funktioniert das Sortieren nicht mehr. An was kann das liegen?

04.07.2002 14:16:39
Thread-ID: 133842
2 Beiträge
Sortieren funktioniert nicht mehr
Thorsten

In einer Excel-Mappe befinden sich mehrere Worksheets. Bei einem Sheet funktioniert das Sortieren nicht mehr. An was kann das liegen?

04.07.2002 14:18:15
Thread-ID: 133845
4 Beiträge
Daten sortieren funktioniert nicht
Herbert

Hallo Experten,
aus einer Datenbank erhalte ich in Spalte A folgende Informationen: z.B.
Mo 18.11.2013 09:20
Es sind ca. 2000 Zeilen mit unterschiedlichen Tagen und Uhrzeiten vorhanden. Leider funktioniert die Sortierung nicht. Ich habe es bisher nicht hinbekommen. Es wäre kein Prob...
18.11.2013 09:51:59
Thread-ID: 1338939
13 Beiträge
Sortieren-Makro funktioniert nicht
mike49

Hallo Leute,
ich habe eine Gema-Liste erstellt und Titel eingetragen. Wenn ich nun auf den Button "Sortieren" klicke, werden alle Einträge gelöscht.
Richtig sollte es so sein:
Wenn beliebige Titel rausgelöscht oder neue Titel in die leeren Zeilen eingetragen werden, sollen nach Drüc...
03.07.2016 22:45:47
Thread-ID: 1502362
10 Beiträge
Anzeige
Sortieren nach Datum funktioniert nicht
Pascal
Hallo zusammen
Ich habe folgendes Problem:

Wenn ich meine Liste mit einem Datum eines anderen Blattes sortieren möchte, erscheint nach der Übernahme des Datums in den Filter (Benutzerdefiniert) nur die entsprechende 5-Stellige Zahl des Datums. Wer kann mir helfen???

Im weiteren...
30.10.2003 13:51:51
Thread-ID: 331073
3 Beiträge
Sortieren funktioniert nicht mit aktivem Schutz
Thomas

Ich schon wieder...
wenn ich versuche das folgende Makro mit aktivem Blattschutz laufen zu lassen, bekomme ich eine Fehlermeldung (Laufzeitfehler 1004) und ich bekomme es nicht hin.
Sub NAMEN_SORTIEREN() Range("B4:AI41").Select Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Hea...
14.07.2004 15:20:38
Thread-ID: 455302
4 Beiträge
sortieren funktioniert nicht in zeile 1
henrik

hallo,
kann mir jemand verraten, warum meine datei nicht richtig sortiert ?
https://www.herber.de/bbs/user/23508.xls
BIG tHX
01.06.2005 22:17:23
Thread-ID: 618803
3 Beiträge
Anzeige
Sortieren funktioniert nicht
matthias@marxreiter.com

Hallo,
ich habe eine Exceltabelle, in der in der ersten Zeile Überschriften stehen. Darunter folgen dann Zahlenwerte. Das Fenster wurde unterhalb der Zellen-Überschriften fixiert, damit diese für alle darunter folgenden Zahlenwerte sichtbar bleiben.
Wenn ich nun die Spalte "D" auswähle...
02.01.2006 12:58:11
Thread-ID: 714122
2 Beiträge
Sortieren via VBA funktioniert nicht
Phoeni

Hallo,
ich lasse per VBA eine Datei öffnen, diese soll durch folgenden Code nach der Spalte F aufsteigend sortiert werden... Aaaber Excel machts nicht, ich bekomme noch nicht mal ne Fehlermeldung... Was mache ich falsch?
Private Sub Sortieren() Sheets("Tabelle1").Activate Zeilen = Acti...
02.06.2006 16:02:53
Thread-ID: 769854
4 Beiträge
Sortieren funktioniert nicht...
Jan
Ich möchte alle Zeilen von A4 bis zu einer Leerzeile anhand der A-Spalte sortiert haben.
Bisher habe ich dort stehen:
.ActiveSheet.Range("A4").CurrentRegion.Sort Key1:=Range("A4"), Order1:=1, _
Header:=0, OrderCustom:=1, MatchCase:=False, Orientation:=1, DataOption1:=0
Dann kommt:
20.06.2006 11:46:53
Thread-ID: 774734
3 Beiträge
Anzeige
860to864: Sortieren mit Benutzerdefinierter Liste
Wolfgang


Hallo Excelfreunde,
Folgendes Problem:
Ich habe eine Benutzerdefinierter Liste erstellt nach der mit Hilfe eines Makros eine Liste sortiert wird - was auch bei mir funktioniert.
Nur wenn die Datei auf einem anderen PC aufgespielt wird, funktioniert es leider nicht.
Fehler i...
11.04.2007 07:20:00
Thread-ID: 861482
3 Beiträge
Anzeige
Sortieren funktioniert nicht richtig???
Mathias

Hallo Excelfreunde,
ein kleines Problem bedarf einer Lösung.
Ich möchte mein Tabellenblatt sortieren lassen und zwar den Bereich A4:I10000
Sortierungskriterium ist Spalte A.
nur leider funktioniert das ganze nicht richtig, bei mir wird nur ein Teil der Daten sortiert.
Ich ha...
16.01.2008 19:13:00
Thread-ID: 942465
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Benutzerdefiniertes Sortieren per VBA in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle ein neues VBA-Modul:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle "Einfügen" > "Modul".

  2. Füge den folgenden Code ein:

    Sub variables_sortieren()
   lz = Cells(Rows.Count, 1).End(xlUp).Row
   ls = Cells(1, 256).End(xlToLeft).Column
   sp = InputBox("Sortierung")
   Range(Cells(2, 1), Cells(lz, ls)).Sort Key1:=Cells(2, sp), Header:=xlNo
End Sub
    • Dieser Code sortiert die Daten von A2 bis zur letzten Zeile und Spalte.

  3. Führe das Makro aus:

    • Gehe zurück zu Excel und drücke ALT + F8, um das Makro auszuführen.
    • Wähle variables_sortieren aus und klicke auf "Ausführen".

  4. Gib die Spaltennummer zur Sortierung ein, wenn du dazu aufgefordert wirst.

Häufige Fehler und Lösungen

  • Problem: excel benutzerdefiniertes sortieren funktioniert nicht.

    • Lösung: Stelle sicher, dass die Option Header korrekt gesetzt ist. Wenn deine Tabelle Titel hat, setze Header:=xlYes. Andernfalls verwende Header:=xlNo.

  • Problem: Der Code sortiert die Daten nicht.

    • Lösung: Überprüfe die Spaltennummer, die du im InputBox eingibst, und stelle sicher, dass sie gültig ist.

Alternative Methoden

  • Verwendung von vba .sort: Eine Alternative zur Verwendung von Selection.Sort ist die direkte Verwendung von Range.Sort für mehr Kontrolle über die Sortierung.

    Range("A2:C10").Sort Key1:=Range("B2:B10"), Order1:=xlAscending, Header:=xlYes

  • Benutzerdefinierte Listen: Du kannst auch benutzerdefinierte Listen in Excel erstellen, die dir bei der Sortierung helfen, insbesondere wenn du nach spezifischen Kriterien sortieren möchtest.

Praktische Beispiele

  1. Einfaches Sortieren mit zwei Kriterien:

    Sub sortieren_mit_zwei_kriterien()
   Range("A2:C100").Sort Key1:=Range("A2:A100"), Order1:=xlAscending, Key2:=Range("B2:B100"), Order2:=xlDescending, Header:=xlYes
End Sub

  2. Sortieren nach benutzerdefinierten Werten:

    Sub benutzerdefinierte_sortierung()
   Range("A2:A100").Sort Key1:=Range("A2:A100"), OrderCustom:=1, Header:=xlYes
End Sub

Hierbei wird die Sortierung anhand einer benutzerdefinierten Liste durchgeführt, die in den Excel-Optionen definiert ist.

Tipps für Profis

  • Nutze Application.ScreenUpdating = False am Anfang deines Makros und setze es am Ende wieder auf True, um die Performance zu verbessern.
  • Überlege, ob du die MatchCase-Option verwenden möchtest, um die Sortierung case-sensitiv zu gestalten.

  • Verwende With-Anweisungen, um deinen Code lesbarer zu machen:

    With Range("A2:C100")
  .Sort Key1:=.Columns(1), Order1:=xlAscending, Header:=xlYes
End With

FAQ: Häufige Fragen

1. Wie kann ich eine benutzerdefinierte Liste zum Sortieren in Excel erstellen?
Gehe zu "Datei" > "Optionen" > "Erweitert" > "Allgemein" und klicke auf "Benutzerdefinierte Listen bearbeiten". Dort kannst du deine eigene Liste erstellen.

2. Welche Excel-Version benötige ich für VBA?
VBA ist in den meisten Versionen von Excel verfügbar, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

Beliebteste Forumthreads (12 Monate)

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