Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für aufsteigend sortieren

Forumthread: Makro für aufsteigend sortieren

Makro für aufsteigend sortieren
27.04.2009 09:32:45
Jeron
Hallo zusammen,
ich würde gerne die Spalte B, nach Lagerartikelnummer = Überschrift in B2 absteigend sortieren.
Das Makro soll generell immer die gesamte Spalte B bearbeiten.
Ich habe es mit dem Makro-Recorder ausprobiert. Aber mir zerschießt es die Tabelle bei erneutem Versuch.
Kann mir bitte jemand helfen?
Vielen Dank.

Sub Sortieren ()
Range("B2").Select
Range("A1:N266").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Viele Grüße aus München
Jeron Bitto

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für aufsteigend sortieren
27.04.2009 09:39:21
Tino
Hallo,
versuche es mal so.
Wenn in Zeile 2 die Überschrift ist so
Range("A2:N266").Sort Range("B2"), xlAscending, , , , , , xlYes
Wenn in Zeile 2 nicht die Überschrift ist
Range("A2:N266").Sort Range("B2"), xlAscending, , , , , , xlNo
Gruß Tino
AW: Makro für aufsteigend sortieren
27.04.2009 10:31:19
Jeron
Hallo Tino,
aus deinen Angaben kann ich leider nicht alles umsetzen. Das Problem ist auch, dass unterschiedliche Längen der Spalten mit berücksichtigt weren müssen. Ich also nicht immer von A1:N266 ausgehen kann.
Ich habe es mit nachfolgenden Makro probiert und es zerschießt mir wieder die Tabelle. hast du einen weiteren Tip für mich?

Sub Sortieren()
' Makro1 Makro
' Makro am 27.04.2009 von Jeron Bitto aufgezeichnet
If Worksheets(1).Cells(2, 2).Value = "Lagerartikelnummer" Then
Range("B2").Select
Range("A1:N258").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Else: Worksheets(1).Cells(1, 2).Value = "nichtmöglich"
End If
End Sub


Anzeige
AW: Makro für aufsteigend sortieren
27.04.2009 10:55:14
Tino
Hallo,
versuche es mal so.
Im Beispiel gehe ich davon aus, dass die Überschrift sich in Zeile 2 befindet.
Sub Sortieren()
Dim SortSpalte As Range

With Worksheets(1)
    'in Zeile 2 befindet sich die Überschrift !!!!! 
    'Suche nach Lagerartikelnummer in Zeile 2, Groß u. Kleinschreibung wird beachtet 
    Set SortSpalte = .Rows(2).Find("Lagerartikelnummer", , xlValues, 1, 1, 1, True, False)
    
    If Not SortSpalte Is Nothing Then
     .Range("A2:N" & .Rows.Count).Sort SortSpalte, xlAscending, , , , , , xlYes
    Else
     MsgBox "Spalte ""Lagerartikelnummer"" wurde nicht gefunden!", vbCritical
    End If

End With
End Sub


Gruß Tino

Anzeige
Spalten auch unbekannt...
27.04.2009 11:13:11
Tino
Hallo,
ist auch die Anzahl der Spalten unbekannt, kannst Du es auch so machen.
Sub Sortieren()
Dim SortSpalte As Range

With Worksheets(1)
    'in Zeile 2 befindet sich die Überschrift !!!!! 
    'Suche nach Lagerartikelnummer in Zeile 2, Groß u. Kleinschreibung wird beachtet 
    Set SortSpalte = .Rows(2).Find("Lagerartikelnummer", , xlValues, 1, 1, 1, True, False)
        
    If Not SortSpalte Is Nothing Then
     .Range("A2", .Cells(.Rows.Count, .Columns.Count)).Sort SortSpalte, xlAscending, , , , , , xlYes
    Else
     MsgBox "Spalte ""Lagerartikelnummer"" wurde nicht gefunden!", vbCritical
    End If

End With

End Sub


Gruß Tino

Anzeige
AW: Makro für aufsteigend sortieren
27.04.2009 11:15:12
Jeron
Hallo Tino,
es funktioniert glaub ich so richtig gut. Ich danke dir erstmal für dein Know How und deine Mühe.
Ich habe nur noch ein kleines Problem,
.Range("A2:N" & .Rows.Count).Sort SortSpalte, xlAscending, , , , , , xlYes
in dieser Zeile tritt ein Bug auf auf " Für diese Aktion müssen alle verbundenen Zellen die selbe Größe haben"
Hast du eine Ahnung wie ich dieses Problem in den Griff bekomme?
Viele Grüße
Jeron
Anzeige
AW: Makro für aufsteigend sortieren
27.04.2009 11:23:48
Tino
Hallo,
"Hast du eine Ahnung wie ich dieses Problem in den Griff bekomme?"
Ja habe ich, keine verbundenen Zellen verwenden. ;-)
Gruß Tino
verbundene Zellen aufheben...
27.04.2009 11:32:06
Tino
Hallo,
verbundene Zellen kannst Du im Bereich z. Bsp. so aufheben.
Sub Sortieren()
Dim SortSpalte As Range

With Worksheets(1)
    'in Zeile 2 befindet sich die Überschrift !!!!! 
    'Suche nach Lagerartikelnummer in Zeile 2, Groß u. Kleinschreibung wird beachtet 
    Set SortSpalte = .Rows(2).Find("Lagerartikelnummer", , xlValues, 1, 1, 1, True, False)
    
    If Not SortSpalte Is Nothing Then
     .Range("A2", .Cells(.Rows.Count, .Columns.Count)).MergeCells = False
     .Range("A2", .Cells(.Rows.Count, .Columns.Count)).Sort SortSpalte, xlAscending, , , , , , xlYes
    Else
     MsgBox "Spalte ""Lagerartikelnummer"" wurde nicht gefunden!", vbCritical
    End If

End With
End Sub


Gruß Tino

Anzeige
AW: Makro für aufsteigend sortieren
27.04.2009 10:56:35
zu
hi,
sollte nicht bei A2 begonnen werden?
statt
Range("A1:N258")
Range("A2:N258") usw..
gruß
robert
AW: Makro für aufsteigend sortieren
27.04.2009 11:23:50
Jeron
Hallo zusammen,
ich habe das Problem selbst gefunden.
Ich frage mich gerade ob es ein Makro gibt, dass das Tabellenblatt auf verbundene Zellen überprüft und dann auflöst ?
Einen schönen Tag.
@ Thorsten das Problem ist gelöst.
@ Tino: Danke Dir noch mal!!
Viele Grüße
Jeron
Anzeige
AW: Makro für aufsteigend sortieren
27.04.2009 11:49:40
robert
hi,
vermeide einfach verbundene zellen, diesen tipp findest du hier im forum immer wieder-
statt dessen-
format-zellen-ausrichtung-horizontal-über auswahl zentrieren-
probier es einmal
gruß
robert
;

Forumthreads zu verwandten Themen

In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 Beiträge
Spalte nach Datum sortieren per Makro
Larissa

Hallo,
ich möchte mit einem Makro eine Tabelle nach Datum in Spalte G sortieren.
Wenn ich das Makro aufzeichne, fragt er mich nach: Alles was wie eine Zahl aussieht....
Dann funktioniert die Sortierung, aber nicht, wenn ich die Aufzeichnung abspiele.
Weiß jemand, woran das liege...
15.10.2009 11:09:27
Thread-ID: 1109788
5 Beiträge
Spalte nach Nummer sortieren
Micha*
Bereich markieren (alle Spalten)
Daten
Sortieren
Spalte wählen
fertig
16.04.2002 09:34:17
Thread-ID: 113611
4 Beiträge
Anzeige
Sortieren nach Spalten
chris

Hallo VBA experten,
ich brauche mal wieder einen Tipp.
Ich habe ab Zelle X1 bis Zelle IV1 einen Bereichs Namen vergeben.
Dieser heißt z.b Vornamen
Darunter in Zeile 2 bis z.b 500 stehen vornamen.
Jezt will ich aber nicht nach Zeile sondern nach der Spalte sortieren.
Also...
17.06.2010 08:40:19
Thread-ID: 1162370
2 Beiträge
Spalten sortieren mit VBA
wolfgang

Hallo zusammen,
ich möchte gerne mit VBA eine Spalte sortieren.
Inhalt der Spalte A:
P1
P2
P10
P3
P11
die Spalte sortiere ich mit der Anweißung:
Range.Sort Key1 .....
nun ist das Ergebnis allerdings:
P1
P10
P11
P2
P3
dies ist a...
10.09.2010 13:21:50
Thread-ID: 1176857
5 Beiträge
Datums-Spalte nach TAG sortieren
Bruno

Hallo Leute,
ich versuche, leider ohne Erfolg eine Liste zu sortieren :
Datumszeile nach Geburtstag !!!! nicht nach dem Geburtsjahr sondern vorrangig eben nach dem Geburts-TAG. 01. , 02. , 03. ,
Wer kann mir helfen ?
gruss
Bruno
19.11.2010 19:18:47
Thread-ID: 1187861
3 Beiträge
Anzeige
Zeilen sortieren nach einer Spalte ausserhalb des
Wenger

Hi all!
Ist denn mein Problem so schwierig? Immer ernte ich nur Kopfschütteln.
Erklärung:
Die Rennleitung hat eine Veranstaltersoftware. Diese exportiert mir ein Excel-Sheet mit den Spalten A, B und C. Diese Spalten dürfen keinesfalls verändert werden!!
In meinem Beispiel start...
07.07.2011 20:28:17
Thread-ID: 1221296
3 Beiträge
Tabellen Spalte aufsteigend sortieren mit VBA
Malcolmp

Hallo Forum,
mit folgendem Code Schreibe ich einen Datensatz in die erste freie Zelle einer Spalte in Tabelle2:
Tabelle2.Cells(Tabelle2.Cells(Rows.Count, FzgSP.Column).End(xlUp).Row + 1, FzgSP.Column) = _
CLng(DATE1) & " " & Left(CDate(TIME1), 2) & " " & CLng(DATE2)...
27.07.2011 13:22:31
Thread-ID: 1223854
5 Beiträge
Anzeige
VBA Formel ändern nach einfügen einer Spalte
Timonski

Servus...
ich hab in meiner Tabelle viele VBA Formeln, z.b. VLookup... oder mit Cells(r, 5)...
wenn ich jetzt eine Spalte einfüg... nehmen wir mal an zwischen 3 und 4... dann heißt ja die Spalte 5 nun 6...
d.h. die Formel mit cells(r, 5) stimmt ja nicht mehr.. die sollte ja Cells(r,...
23.03.2012 15:25:44
Thread-ID: 1256320
3 Beiträge
VBA - Excel Spalte sortieren
philg

Hallo liebe Herber-Gemeinde,
ich habe einen VBA-Code, der mir eine Access-Tabelle in eine Excel-Datei kopiert. Soweit sogut, das funktioniert auch gut, nur möchte ich gerne, dass er mir die erste Spalte (A - laufende Nummern) gleich absteigend sortiert.
Kann mir jemand mit dem passenden...
26.03.2012 14:49:24
Thread-ID: 1256515
3 Beiträge
Anzeige
Spalte nach ABC automatisch sortieren
Phalax

Hallo
Ich habe da ein wenig komplizierte Sache und hoffe, kann man mir helfen.
1. Eine Tabelle3 und jede Spalte beinhaltet eine Thema bzw. sind dort Einträge
vorhanden.
2. In der Tabelle1 ist der Programm dahinter, die dann bei anklicken eine bestimmte
Zelle dann das Fo...
23.05.2013 21:50:15
Thread-ID: 1314658
3 Beiträge
Spalte nach bestimmten Schema sortieren
Holm
Hallo zusammen,
ich habe in Spalte A die Zahlen 1001- 1500 in rot, die Zahlen 2001- 2500 in gelb und die Zahlen 3001- 3500 in grün.
Ich möchte nach Möglichkeit folgendermaßen sortieren:
1001 rot
2001 gelb
3001 grün
1002 rot
2002 gelb
3002 grün
1003 rot
2003 g...
19.07.2014 20:37:27
Thread-ID: 1371217
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Makro zum aufsteigenden Sortieren in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Tabelle, die Du sortieren möchtest.

  2. Öffne den VBA-Editor: Drücke ALT + F11.

  3. Füge ein neues Modul hinzu: Rechtsklicke im Projekt-Explorer und wähle Einfügen > Modul.

  4. Kopiere und füge den folgenden Code ein:

    Sub Sortieren()
   Dim SortSpalte As Range

   With Worksheets(1)
       ' Suche nach Lagerartikelnummer in Zeile 2
       Set SortSpalte = .Rows(2).Find("Lagerartikelnummer", , xlValues, xlWhole, xlByColumns, xlNext, False)

       If Not SortSpalte Is Nothing Then
           .Range("A2", .Cells(.Rows.Count, .Columns.Count)).Sort SortSpalte, xlAscending, , , , , , xlYes
       Else
           MsgBox "Spalte 'Lagerartikelnummer' wurde nicht gefunden!", vbCritical
       End If
   End With
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus: Drücke ALT + F8, wähle Sortieren und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Problem: "Für diese Aktion müssen alle verbundenen Zellen die selbe Größe haben."

    • Lösung: Überprüfe, ob verbundene Zellen im Bereich vorhanden sind. Du kannst alle verbundenen Zellen aufheben mit:
    .Range("A2", .Cells(.Rows.Count, .Columns.Count)).MergeCells = False

  • Problem: Das Makro sortiert nicht wie gewünscht.

    • Lösung: Stelle sicher, dass die Überschrift "Lagerartikelnummer" in Zeile 2 vorhanden ist und korrekt geschrieben ist.

Alternative Methoden

  • Du kannst auch die Excel-Funktion "Sortieren" nutzen:

    1. Markiere den Bereich, den Du sortieren möchtest.
    2. Gehe zu Daten > Sortieren.
    3. Wähle die Spalte aus und die Sortierreihenfolge (aufsteigend oder absteigend).

  • Für horizontal sortierte Daten verwende die Funktion TRANSPOSE() zusammen mit SORT().

Praktische Beispiele

  1. Makro für unterschiedliche Spaltenlängen:

    Sub Sortieren()
   Dim SortSpalte As Range
   With Worksheets(1)
       Set SortSpalte = .Rows(2).Find("Lagerartikelnummer", , xlValues, xlWhole, xlByColumns, xlNext, False)

       If Not SortSpalte Is Nothing Then
           .Range("A2", .Cells(.Rows.Count, .Columns.Count)).Sort SortSpalte, xlAscending, , , , , , xlYes
       End If
   End With
End Sub

  2. Daten aufsteigend sortieren: Verwende den Code oben, um die Daten in einer Tabelle aufsteigend zu sortieren.

Tipps für Profis

  • Verwende Fehlerbehandlungsroutinen in Deinem Makro, um unerwartete Fehler abzufangen.
  • Dokumentiere Deinen Code mit Kommentaren, um die Wartung zu erleichtern.
  • Experimentiere mit xlDescending für absteigende Sortierungen, indem Du die Parameter im Sort-Befehl änderst.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Spalten gleichzeitig sortieren?
Du kannst mehrere Sortierschlüssel im Sort-Befehl hinzufügen, indem Du weitere Key1, Key2 usw. angibst.

2. Was tun, wenn die Sortierung nicht funktioniert?
Überprüfe, ob alle Zellen im Sortierbereich die gleiche Datenart haben (z.B. alle Zahlen oder Text).

3. Kann ich ein Makro erstellen, das verbundene Zellen überprüft und auflöst?
Ja, Du kannst ein Makro schreiben, das mit der Methode UnMerge die verbundenen Zellen auflöst, bevor die Sortierung erfolgt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige