Domino 9 und frühere Versionen > ND6: Entwicklung

Excel Export sortieren

(1/2) > >>

Micha8:
Hallo zusammen,

ich weiß, mein Thema wurde hier schon oft gefragt und diskutiert. Habe alle Threads schon gelesen, doch die Lösung für mein Problem habe ich bisher nicht wirklich lesen können.
Also, der Export von Notes nach Excel funktioniert soweit. Nun möchte ich die Exceldaten sortieren. Es gibt eine Überschriftenzeile ! Den Code für die Sortierung ohne Überschrift habe ich schon gesehen und getestet, das funktioniert ja auch. Jedoch wie gesagt mit Überschrift bekomme ich das alleine nicht hin. Habe anstelle alle Zellen zu markieren auch schon probiert nur die reinen Datenzellen zu markieren (also unterhalb der Überschriftszeile) und diese dann zu sortieren. Das markieren funktioniert, aber das sortieren nicht.

Kann jemand helfen ?
Gruß
Michael

ZaLudtske:
Bitte Code posten, ich denke bei der Sortierung wurde eine option nicht richtig gesetzt.

Rainer

Neopi:
Hi Michael,
mach die Sortierung von Hand und zeichne ein Makro auf.
Dann musst Du nur noch den Code in LS einbauen.

Die Bedeutung der Schlüsselwörter gibt Dir die VB-Hilfe.

gruß
martin

Axel:
Guckst du hier: http://atnotes.de/index.php?topic=39862.0


Axel

Micha8:
sorry, da hätte ich auch sofort selbst drauf kommen können, meinen Code hier zu posten.
Info: anzzeil beinhaltet die Anzahl der Zeilen

--- Code: ---...
'Konstanten für die Sortierung
Const xlAscending = 1
Const xlGuess = 0
Const xlTopToBottom = 1

Set xlApp = CreateObject("Excel.Application")
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
....
'zur Sortierung der Daten folgender Code:
xlApp.Range("A2","G" & anzzeil).Select
xlApp.Selection.Sort  xlsheet.Columns("A"), xlAscending , "", xlsheet.Columns("B"), xlAscending, xlsheet.Columns("C"), xlAscending, xlGuess,1, False, xlTopToBottom
....

--- Ende Code ---

Mit diesem Code wird zwar mein Zellenbereich markiert, aber eine Sortierung wird nicht durchgeführt. Und es ist anscheinend egal ob ich nun "xlApp.Selection.Sort ..." schreibe oder "xlsheet.Selection.Sort ...".

Ist hier ein Fehler eingebaut ? Was ist falsch ?

---------------------------------------------------------------------
@Axel
habe auch die Variante aus Deiem Link-Vorschlag getestet. Das funktioniert sogar, und zwar mit diesem Code anstelle der o.g. letzten Anweisung:


--- Code: ---xlApp.Selection.Sort  xlsheet.Range("A2","A" & anzzeil)
--- Ende Code ---

Aber so wird es aufsteigend sortiert. Was ist, wenn ich es absteigend sortieren möchte ?

Navigation

[0] Themen-Index

[#] Nächste Seite