Hallo,
ich habe einen Exportagenten geschrieben, der am Ende noch das Excel Sheet sortieren soll. Der Code:
xlApp.Rows("21:531").Select
Set r1=xlApp.range("B21")
Set r2=xlApp.range("C21")
Set r3=xlApp.range("E21")
xlapp.Selection.Sort r1, xlAscending, r2, xlAscending, r3,xlAscending, xlGuess,_ OrderCustom, MatchCase, xlTopToBottom , xlSortNormal, xlSortNormal, xlSortNormal
xlApp ist logischerweise das Excel Objekt,
xlAscending, xlGuess, OrderCustom, MatchCase, xlTopToBottom, xlsortNormal sind Konstanten.
Den Fehler erhalte ich in der letzten Zeile, wobei gesagt wird, dass 'Sort method of range class failed'
Kann mir irgendjemand weiterhelfen?
Ach ja, die Funktion selbst müsste eigentlich stimmen. Habe die aus dem Macro-Editor rauskopiert, ein xlApp. davorgesetzt und das Format derKonstanten entsprechend angepasst.
Hi,
ich hab das vor einiger Zeit mal gemacht. Ich weiß noch, dass ich damals ewig rumgedoktert habe, bis es gelaufen ist. Allerding sortiere ich das gesamte Tabellenblatt.
Mein Code sieht so aus:
objSheet.Cells.Select 'Gesamtes Arbeitsblatt markieren
objExcel.Selection.Sort objSheet.Columns("A"), xlAscending , "", objSheet.Columns("B"), xlAscending , objSheet.Columns("C"), xlAscending, xlGuess,1, False, xlTopToBottom
Ist der Unterstrich nach dem xlGuess auch in deinem Code vorhanden? Die Konstanten xlSortNormal am Ende kannst du weglassen. Glaube ich jedenfalls. Es funktioniert bei mir auch ohne.
Axel