|
Hallo.
Mein Ziel ist es eine eine Tabelle in einem bestimmten Sheet zu formatieren.
Ich weiß von der Tabelle das sie im Sheet immer in den beiden letzten Spalten liegt.
Die Zeilenanzahl ist aber ungewiss. Somit nurtze ich folgendes Macro um die letzte Spalte und die dazugehörige letzte Zeile zu finden:
letztespalte = Workbooks(S).Sheets(SHEETNAME).Cells(1, 256).End(xlToLeft).Column
letztezeile = Workbooks(S).Sheets(SHEETNAME).Cells(Rows.Count, letztespalte).End(xlUp).Row
"S" und "SHEETNAME" sind Variablen
Was hervorragent klappt und bis jetzt immer die richtigen Werte gefunden hat.
Nun aber zu meinem Problem das diese Werte in mein Code für die Sortierung rein muss.
With Sheets(SHEETNAME)
.Range(.Cells(2, letztespalte - 1), .Cells(letztezeile, letztespalte)).Sort Key1:=Range(.Cells(letztespalte, 1)), Order1:=xlDescending, Header:=xlGuess, MatchCase:=False, Orientation:=xlTopToBottom
End With
Die Sortierung soll auf das Sheet SHEETNAME angewendet werden.
Dabei soll die "Tabelle" aus den letzten beiden Spalten nach der letzten Spalte (bestehend aus Zahlen) absteigend soriert werden.
Dabei kommt aber bei allen was ich tue oder versuche der Fehler 1004: method range of object _global failed.
Was mache ich also falsch? Danke
|