Hallo,
ich habe folgendes probiert:
Dim as long
a = Sheets("Temp").Cells(2, Columns.Count).End(xlToLeft).Column
Range("A1:N21").Select
Selection.Sort Key1:=Range(Cells(2, a)), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
bei mir läuft das in nen Fehler, wie mache ich es, dass ich die Spalte nach der sortiert werden soll flexibel halten kann....habe sie ja mit obigen Code schon ausfindig gemacht...
Danke + Gruß
Markus