Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1548to1552
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
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

98 Forumthreads zu ähnlichen 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
Pivottabelle sortieren VBA
Florian

Guten Morgen Excel-Freunde!
Hätte eine Frage bzgl. Pivottabellen (VBA): wie kann ich Daten sortieren (Befehlszeile)?
Die Tabelle erstell ich wie folgt, ich möchte gern nach Umsatz absteigend sortieren. Wie geht das?
Danke Euch schon mal!
Gruss Florian
Set pt = PTCache.Create...
21.05.2010 11:29:52
Thread-ID: 1158192
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
4
3
2
2
1
4
2
3
2
4
2
2
3
2
7
4
6
7
17
6
1
2
8