Sortierung in Excel

[Jörg Lorenz]

Hi Gant,

Set myWorksheet = oExcel.Workbooks.Item(1).Sheets.Item(1)

myWorksheet.Range("A1").Sort Range("A1"),xlDescending
ActiveWorkbook.SaveAs("temp.xls")

ungetestet, weil es schnell gehen muß: Probiere mal

Set myWorksheet = oExcel.Workbooks.Item(1).Sheets.Item(1)
myWorksheet.Range("A1").Sort myWorksheet.Range("A1"),xlDescending
oExcel.ActiveWorkbook.SaveAs("temp.xls")

Eine Gefahr sehe ich aber noch, nämlich daß Excel den ausgefüllten Bereich nicht erkennt, wenn da Leerzeilen enthalten sind. Hier bestände die Möglichkeit, mit cells(rows.count,1).end(xlup).row die letzte ausgefüllte Zelle in Spalte A abzufragen und dann genau den Bereich bis zu dieser Zeile sortieren zu lassen.

Viele Grüße

Jörg