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

VBA: Spalte sortieren - ein einfaches Problem

Forumthread: VBA: Spalte sortieren - ein einfaches Problem

VBA: Spalte sortieren - ein einfaches Problem
04.04.2017 10:53:48
Tim
Hallo,
ich bin noch ziemlich neu bei VBA und habe ein vermutlich sehr einfaches Problem:
Ich möchte eine Spalte mit einer variablen Anzahl an Werten nach diesen absteigend sortieren.
Die Spalte enthält keine Überschrift und die Werte beginnen in Zeile 1, ohne Leerzellen zwischen den einzelnen Werten.
Der Makro-Recorder liefert mir dafür ein sehr langes Makro und ich dachte mir, das geht bestimmt auch einfacher.
Ich habe folgendes probiert, was mir jedoch einen Run-time error 1004 liefert.
Eine andere Idee war den letzten Wert in der Spalte dynamisch für die Range zu berechnen, aber auch das hat nicht geklappt und über die Suche habe ich nur Lösungen für komplexere Szenarien gefunden.
Kann mir jemand weiterhelfen ?
Mein Code: 
Worksheets(12).Columns("K:K").Sort , Key1:=Range("K1"), Order1:=xlDescending, Header:=xlNo
Vielen Dank im Voraus für Eure Hilfe,
Tim
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Spalte sortieren - ein einfaches Problem
04.04.2017 11:01:54
Werner
Hallo Tim,
kann es sein, dass du die Reihenfolge der Blätter verändert hast?
Sprich das Blatt im Code mal direkt mit seinem Namen an. Im Code mußt du halt
Worksheets("Tabelle1") = -Name der im Tabellenblattreiter steht- an deine Bedürfnisse anpassen.
Public Sub Sortieren()
Worksheets("Tabelle1").Columns("K:K").Sort , Key1:=Range("K1"), _
Order1:=xlDescending, Header:=xlNo
End Sub
Gruß Werner
Anzeige
AW: VBA: Spalte sortieren - ein einfaches Problem
04.04.2017 11:04:07
Tim
Hallo Werner,
genau das - habs auch grad gemerkt. :)
Vielen Dank trotzdem ! ;)
VG,
Tim
AW: Danke für die Rückmeldung. o.w.T.
04.04.2017 11:06:09
Werner
AW: VBA: Spalte sortieren - ein einfaches Problem
04.04.2017 11:24:25
Tim
Hallo Werner,
genau das - habs auch grad gemerkt. :)
Vielen Dank trotzdem ! ;)
VG,
Tim
Anzeige
AW: VBA: Spalte sortieren - ein einfaches Problem
04.04.2017 12:13:49
Werner
Hallo Tim,
meinst du das? 
Sub zht()
Dim WS2 As Worksheet
Dim letzteZeile As Long
Set WS2 = Worksheets("Tabelle2")
Application.DisplayAlerts = False
Range("G1").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
)), TrailingMinusNumbers:=True
Application.DisplayAlerts = True
letzteZeile = WS2.Cells(Rows.Count, 3).End(xlUp).Row + 1
WS2.Range(WS2.Cells(letzteZeile, 3), WS2.Cells(letzteZeile, 6)) = WS2.Range("AC1:AF1").Value
'### Neu ###
WS2.Range(WS2.Cells(letzteZeile, 3), WS2.Cells(letzteZeile, 6)).PrintOut
WS2.Range("G1:S1").ClearContents
End Sub
Das Makro zum Drucken kannst du dann weg lassen.
Gruß Werner
Anzeige
Im falschen Beitrag gepostet. o.w.T.
04.04.2017 14:06:40
Werner
;

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
Anzeige
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
Tabelle sortieren mit VBA
Kati

Hallo liebe Leute,
ich habe in einem Beitrag vom 09.03.2006 von Peter Feustel einen sehr guten Lösungsansatz für mein Problem gefunden.
In dem Beispiel https://www.herber.de/bbs/user/31765.xls kann man in jeder Tabelle der Arbeitsmappe über den Menüpunkt sortiern.
Für meine Aufgabe...
23.02.2010 08:31:55
Thread-ID: 1140308
3 Beiträge
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
VBA: PivotItems sortieren in PivotTabelle
Holger

Guten Morgen liebes Forum,
erstmal möchte ich allen ein frohes, erfolgreiches und gesundes neues Jahr wünschen.
Ich erstelle per VBA eine PivotTabelle und habe mich in das Thema auch ganz gut eingelesen.
Nun habe ich als xlColumnField Perioden definiert, die Quartale beinhalten in d...
03.01.2011 10:16:04
Thread-ID: 1193673
4 Beiträge
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
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
Anzeige

Infobox / Tutorial

VBA: Spalte sortieren leicht gemacht

Schritt-für-Schritt-Anleitung

Um eine Spalte in Excel mit VBA absteigend zu sortieren, kannst Du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11 in Excel.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)" und wähle Einfügen > Modul.

  3. Gib den folgenden Code ein:

    Sub SpalteSortieren()
   Dim ws As Worksheet
   Set ws = ThisWorkbook.Worksheets("Tabelle1") ' Ändere den Namen entsprechend
   ws.Columns("K:K").Sort Key1:=ws.Range("K1"), Order1:=xlDescending, Header:=xlNo
End Sub

  4. Starte das Makro: Schließe den VBA-Editor und drücke ALT + F8, wähle SpalteSortieren und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Run-time error 1004: Dieser Fehler tritt häufig auf, wenn das Arbeitsblatt nicht korrekt referenziert wird. Stelle sicher, dass Du den Namen des Arbeitsblatts im Code richtig angegeben hast.

  • Sortierung funktioniert nicht: Wenn die Sortierung nicht wie erwartet funktioniert, überprüfe, ob die Zellen in der Spalte tatsächlich Daten enthalten und ob es keine Leerzellen gibt.

Alternative Methoden

Wenn Du eine Excel-Tabelle sortieren möchtest, kannst Du auch die ListObject-Methode verwenden, die einfacher zu handhaben ist:

Sub TabelleSortieren()
    Dim tbl As ListObject
    Set tbl = ThisWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle1") ' Tabellenname anpassen
    tbl.Sort.SortFields.Clear
    tbl.Sort.SortFields.Add Key:=Range("K:K"), SortOn:=xlSortOnValues, Order:=xlDescending
    tbl.Sort.Apply
End Sub

Praktische Beispiele

Hier sind einige Beispiele, wie Du mit VBA Spalten sortieren kannst:

  1. Aufsteigend sortieren:

    ws.Columns("K:K").Sort Key1:=ws.Range("K1"), Order1:=xlAscending, Header:=xlNo

  2. Sortieren nach mehreren Spalten:

    ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:=ws.Range("K:K"), Order:=xlDescending
ws.Sort.SortFields.Add Key:=ws.Range("J:J"), Order:=xlAscending
ws.Sort.Apply

Tipps für Profis

  • Verwende Variablen für das Arbeitsblatt: Um den Code flexibler zu gestalten, setze das Arbeitsblatt in eine Variable, wie im Beispiel gezeigt.
  • Vermeide die Auswahl von Zellen: Direkte Referenzen sind effizienter und verhindern Fehler.

  • Nutze Application.ScreenUpdating: Setze dies auf False, bevor Du das Makro ausführst, um die Leistung zu verbessern und Flackern zu vermeiden:

    Application.ScreenUpdating = False
' Dein Sortiercode hier
Application.ScreenUpdating = True

FAQ: Häufige Fragen

1. Wie kann ich eine Spalte aufsteigend sortieren?
Ändere einfach Order1:=xlDescending zu Order1:=xlAscending in Deinem VBA-Code.

2. Kann ich die Sortierung auf mehrere Spalten anwenden?
Ja, Du kannst mehrere SortFields hinzufügen, um nach verschiedenen Spalten zu sortieren. Beispiel siehe oben.

3. Was ist der Unterschied zwischen Sort und SortFields?
Sort wird verwendet, um die Sortierung anzuwenden, während SortFields verwendet wird, um die spezifischen Kriterien für die Sortierung festzulegen.

Beliebteste Forumthreads (12 Monate)

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