Schleife zum sortiern
09.05.2019 10:08:17
Schmidt
habe mal ein kleines Problem zur Wiederholung einer Schleife zur Sortierung von Spalten.
Im Genauen sollen in der Schleife immer Zwei Spalten aufgegriffen werden,Bsp. A und B und nach B aufsteigend sortiert werden. Dies betrifft nun mehr als 50 Paare von Spalten, die immer eine Spalte als Platzhalter dazwischen haben und daher würde ich gern alles in einer Schleife durchlaufen lassen, habe aber das Problem, das meine Deklaration anscheinend nich hinhaut.
Hier der code für die reine Sortierung (funktioniert super)
lletzteZeile_g = IIf([A60] > "", 60, [A60].End(xlUp).Row)
ThisWorkbook.Worksheets("Vergleichsliste").Range("A3:B" & lletzteZeile_g).Sort _
Key1:=Range("B3"), _
Order1:=xlDescending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
Begonnen wird dies Sortierung in Zeile 3.
Hier die von mir entworfene Schleife, die nicht funktioniert.
For j = 1 To 49
x = 4 + j * 3
lletzteZeile(j) = IIf(ThisWorkbook.Worksheets("Vergleichsliste").Cells(60, x) > "", 60, _
ThisWorkbook.Worksheets("Vergleichsliste").Cells(60, x).End(xlUp).Row)
ThisWorkbook.Worksheets("Vergleichsliste").Range((.Range("G3").Cells(60, x + 1)) & _
lletzteZeile(j)).Sort _
Key1:=Range(.Range("G3").Cells(3, x)), _
Order1:=xlDescending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
Next
Gruß
Marc