Problem OLE/Excel: Sortieren eines Excel-Sheets aus Notes

[Gandhi]

Hallo,
ich habe einen Exportagenten geschrieben, der am Ende noch das Excel Sheet sortieren soll. Der Code:

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.



   

[Axel]

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:

Code

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

[Gandhi]

Nein, die Unterstriche sind nicht in meinem Code - habe ich nur zur schöneren Darstellung drinnen.

ABER: die Anführungszeichen (3.) Parameter hatte ich nicht drinnen. Jetzt gehts und dafür tausend Dank!

[Gandhi]

Nachtrag:
Der Excel Makrogenerator schreibt die Anführungszeichen bei mir nicht rein? Ein Skandal!