Hallo zusammen
Ich sortiere mit folgendem Code aus dem Forum:
lRow = Cells(Rows.Count, 1).End(xlUp).Row
lColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(lRow, lColumn + 4)).Sort _
Key1:=Range(Chr(64 + lColumn + 4) & 3), Order1:=xlAscending
In diesem Fall stehen die Sortierkriterien 3 Spalten nach der beschriebenen Spalte Zeile 1. Das geht bis + 6. Wenn die Sortierkriterien zB in lColumn plus 20 Spalten stehen, erhalte ich eine Fehlermeldung, dh. Key1:=Range(Chr(64 + lColumn + 20) & 3) funktioniert nicht. Es hat mit Chr(64 zu tun, dessen Funktion ich leider nicht verstehe. Wie muss ich da vorgehen.
Vielen Dank und Gruss
Gregor