Jeweils zwei Spalten unabhängig voneinander sortieren

[Denz]

Hallo zusammen,

ich habe leider in der Suchfunktion nichts passendes gefunden, daher poste ich hier nun mein Anliegen.

In meiner Excel Tabelle will ich jeweils zwei Spalten unabhängig von den anderen Spalten sortieren.

Beispiel:

Spalte C und D --> nach D
Spalte E und F --> nach F
Spalte G und H --> nach H
usw.

Angefangen ab Spalte C bis HF, was sich in Zukunft aber noch erweitern kann. Ich habe versucht ein Makro aufzuzeichnen und auszuführen, hat jedoch nicht funktioniert.

Kann mir jemand behilflich sein? Ich kann mir vorstellen das der Prozess automatisiert werden kann, nur weiß ich nicht wie.

Viele Grüße
Denz

[RPP63]

Moin!
Du musst vorher die jeweiligen Spalten markieren (Spaltenköpfe).
Sortieren dann über die Schaltfläche Sortieren, NICHT die A->Z nehmen!

Gruß Ralf

[RPP63]

Sehe gerade, dass Du aufgrund des Umfangs der Tabelle das Ganze automatisiert möchtest, ich schaue gleich mal …

[RPP63]

Soderle:

Code:

Sub RPP()
Dim i&
For i = 3 To 213 Step 2
   Range(Columns(i), Columns(i + 1)).Sort Cells(2, i + 1), Header:=xlYes
Next
End Sub

Edit:
Die zweite Spalte von rechts kann man auch durch VBA ermitteln:

Code:

Sub RPP()
Dim i&
For i = 3 To Cells(1, Columns.Count).End(xlToLeft).Column - 1 Step 2
   Range(Columns(i), Columns(i + 1)).Sort Cells(2, i + 1), Header:=xlYes
Next
End Sub

Gruß Ralf

[Denz]

Hallo Ralf,

danke Dir vielmals, funktioniert perfekt und erspart mir eine Menge Arbeit.

Beste Grüße
Denz