Domino 9 und frühere Versionen > ND7: Entwicklung

Excelexport will nicht sortieren

<< < (3/4) > >>

jo@chim:
Ich hatte ein ähnliches Problem. Habe es so gelöst, dass ich das VBA-Makro "sortieren" in Excel gespeichert habe:


--- Code: ---Sub sortieren()
    Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3") _
        , Order2:=xlDescending, Key3:=Range("E3"), Order3:=xlAscending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

--- Ende Code ---

und in Notes per


--- Code: ---ExcelApplicationObject.run "sortieren"
--- Ende Code ---

starte.

Bedingung dafür ist allerdings natürlich, dass Du mit einer festen Vorlage arbeitest.

Demian:
also ich war da vorhin etwas voreilig.

Kann es sein, dass deine Überschriften in Zeile 1 stehen? Wenn ja, liegt es an dem xlyes in Verbindung damit, dass du erst ab Zeile 2 markierst, glaube ich. Wenn du da ein xlguess draus machst, sollte es klappen.

Habs eben mal mit nem Agenten probiert:


--- Code: ---Dim ex As Variant
Const xlAscending = 1
Const  xlGuess = 0
Const xlTopToBottom = 1

Set ex = getobject(,"Excel.Application")
ex.activesheet.Range("A2","D7").Select
Call ex.Selection.Sort(ex.Columns("B"), xlAscending, ex.Columns("A"), , xlAscending, , , xlGuess, 1, False, xlTopToBottom)
--- Ende Code ---

Gruß
Demian

PS: Alternativ halt ab A1 markieren.
   

WildVirus:
Guten Abend,

danke für die Tipps. Anhand der drei von meinem Namensvetter eingefügten Links bin ich nochmal durch die VBAHilfe und habe die Formel überarbeitet.

Jetzt wird richtig sortiert.

Hier das Ergebnis:

--- Code: ---Call xl.Selection.Sort ( xlsheet.Columns("B"), xlAscending, xlsheet.Columns("A"),,xlAscending,,,xlYes,1,False)
--- Ende Code ---

Kaum ist die Tabelle fertig, zeigt sich das nächste Problem:

Ans Ende kommen Summenfunktionen, die die Spalten aufsummieren sollen. Das Eintragen klappt, nur kommt immer #NAME? bei Excel raus. In den Feldern steht es richtig drin.

Gebe es für jetzt auf und gehe ins Bett.

Falls jemand eine Idee hat, hier der Codeteil:

--- Code: --- xlWbk.ActiveSheet.Cells(row, 3)= {=Summe(C2:C} & row-1 & ")"
xlWbk.ActiveSheet.Cells(row, 4)= {=Summe(D2:D} & row-1 & ")"

xl.Columns("C:D").Select
xl.Selection.NumberFormat = "#.0"

--- Ende Code ---

Habe es auch schon mit der Formula-Methode probiert, ohne Ergebnis.

Gute Nacht allerseits,
Axel

Axel:

--- Zitat von: WildVirus am 16.01.10 - 00:16:52 ---...
Das Eintragen klappt, nur kommt immer #NAME? bei Excel raus. In den Feldern steht es richtig drin.
...

--- Ende Zitat ---

In der Regel deutet diese Meldung auf einen fehlerhaften Bezug innerhalb einer Formel hin. Ich würde das Ganze mal daraufhin prüfen.

Axel

WildVirus:
Hallo Axel,

habe ich geprüft. Wenn ich in Excel in das Feld gehe, F2 (=Bearbeiten) und Enter drücke, zeigt Excel sofort das richtige Ergebnis an.

Excel schreibt es als Textwert rein, erkennt, dass es eigentlich eine Formel ist, aktiviert sie aber nicht. So sieht es für mich aus. Denn der Tooltip auf dem kleinen Icon sagt das auch.

Nur wie kann ich es bei der Übergabe anders machen ?

CU,
Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete