Clever-Excel-Forum

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

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

Gruß Ralf

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

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

Hallo Ralf,

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

Beste Grüße
Denz

Denz

RPP63

RPP63

RPP63

Denz