Domino 9 und frühere Versionen > ND7: Entwicklung

Excelexport will nicht sortieren

<< < (2/4) > >>

Johnson:
Du musst für Key1 und Key2 die erste Zelle der jeweiligen zu sortierenden Spalte angeben.

Also:

--- Code: ---Dim xlsheet As Variant
Dim r as Variant
Set xlsheet = xl.Workbooks(1).ActiveSheet
Set r = xl.Range("A2","D" & Cstr(row))

'Sortiere
r.Sort  xlSheet.Cells(1, 2), xlAscending , "", xlSheet.Cells(1, 1), xlAscending , xlYes,1, False, xlTopToBottom
--- Ende Code ---

Johnson:
Sorry! Das wird auch so nicht funktionieren, da dein Bereich von A2 nach Dx geht. ^^

So sollte es funktionieren:

--- Code: ---Dim xlsheet As Variant
Dim r as Variant
Set xlsheet = xl.Workbooks(1).ActiveSheet
Set r = xl.Range("A2","D" & Cstr(row))

'Sortiere
r.Sort  r.Cells(1, 2), xlAscending , "", r.Cells(1, 1), xlAscending , xlYes,1, False, xlTopToBottom
--- Ende Code ---

WildVirus:
Guten Abend,

erstmal vielen Dank für die Tipps. Habe sie alle ausprobiert, aber die Fehlermeldung bleibt immer die selbe.

Überspringe die Sortierzeile momentan mit einem 'On Error Resume Next' und lande dann im Excelsheet.

Habe mit dem Makrorekorder in Excel das Markieren und Sortiern nochmal aufgezeichnet und versucht, den Code umzusetzen, aber irgendwie klappt es nicht. Es kommt immer die o.g. Meldung.

Das liefert Excel:

--- Code: ---    Columns("A:D").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("A2") _
    , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
    :=xlSortNormal

--- Ende Code ---

Das Markieren klappt problemlos, egal ob über Columns oder 'Set r = xl.Range("A2","D" & Cstr(row))' oder über 'xl.Range("A2","D" & Cstr(row)).Select'. Bei der Anzeige in Excel sind genau die Zellen/Spalten markiert.

Nur nicht sortiert, sondern in der Reihenfolge wie sie in Notes halt kommen.

Bin ratlos und höre für heute auf.

Schönen Abend,
Axel

Axel:
Hast du hier im Forum schon mal nach Excel und Sortierung gesucht. Da gibt es einiges an Infos.

z.B. hier:

http://atnotes.de/index.php/topic,40598.0.html
http://atnotes.de/index.php/topic,16507.0.html
http://atnotes.de/index.php/topic,6193.0.html

Und es gibt noch eine ganze Reihe mehr. Vielleicht ist was für dich dabei.

Axel

Demian:
also ich hab die Sort-Zeile jetzt mal in Excel getestet, da gehts genauso wenig. Das Problem ist die Reihenfolge der Parameter.

So gehts in Excel:

Call Selection.Sort(Columns("B"), xlAscending, Columns("A"), , xlAscending, , , xlGuess, 1, False, xlTopToBottom)

Das was der Makrorecorder aufzeichnet kann nicht als Grundlage genommen werden, was die Reihenfolge der Parameter betrifft, weil hier die Bezeichner der Parameter davor stehen. Du kannst die Parameter in Excel beliebieg tauschen wegen dem Bezeichner. Die optionalen Parameter müssen von Notes aus mit übergeben werden.

Korrigiert mich, wenn ich falsch liege.

Gruß
Demian

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete