Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten sortieren

Spalten sortieren
23.06.2005 12:18:49
VolkerM
Hallo
Ich möchte ein Tabellenblatt spaltenweise sortieren.
Es sollen jeweils 2 Spalten sortiert werden, also Spalte A und Spalte B, dann Spalte C und D usw.
Dies soll bis Spalte DO & DP (119 / 120) durchlaufen.
Diesen Code möchte in eine Schleife packen, um nicht den nachfolgenden Code für jedes Spaltenpaar zu schreiben.

Private Sub Sortieren1()
Dim I As Integer
I = Worksheets("Urlaub").Cells(65536, 1).End(xlUp).Row
Range(Cells(3, 1), Cells(I, 2)).Sort Key1:=Cells(3, 1), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub


Private Sub Sortieren2()
Dim I As Integer
I = Worksheets("Urlaub").Cells(65536, 3).End(xlUp).Row
Range(Cells(3, 3), Cells(I, 4)).Sort Key1:=Cells(3, 3), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

usw.
Hat jemand eine Lösung.
Vielen Dank im Voraus.
Gruß Volker

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten sortieren
23.06.2005 12:54:13
Uduuh
Hallo,

Private Sub Sortieren1()
Dim I As Integer, N as integer
for n=1 to 119 Step 2
I = Worksheets("Urlaub").Cells(65536, n).End(xlUp).Row
Range(Cells(3, n), Cells(I, n+1)).Sort Key1:=Cells(3, n), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next n
End Sub

Gruß aus’m Pott
Udo

AW: Spalten sortieren
23.06.2005 13:10:19
VolkerM
Hallo Udo
Vielen Dank, es funktioniert.
Gruß Volker
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige