Domino 9 und frühere Versionen > Entwicklung

Excel Sortierung per Lotusscript

<< < (2/2)

Axel:
Hi,

hier liegt der Fehler:

Dim srange As String
range = "A6:E"+Cstr(row1)
xlSheet.Range(srange).Select


Das müsste wohl

srange = "A6:E"+Cstr(row1)

heißen.

Alerdings bin ich mir nicht ganz sicher, ob es als String-Variable funktioniert. Bei musste ich es als Variant-Wert übergeben.


Axel

Blackraven:
das war im Endeffekt nur ein schreibfehler mit srange und range.

Die Fehlermeldung war die gleiche.

jetzt hab ich einfach mal den oberen Beschriftungsteil entfernt, damit ich in der 1.Zeile den Header habe, und ab Zeile 2 dann die Daten.

Witzigerweise habe ich 2 Sheets mit der gleichen Formel sortieren wollen.
1.Sheet, Kopfzeile wird mit in die Sortierung eingebunden.
2.Sheet, Kopfzeile fest, rest wird korrekt sortiert.

Das macht doch keinen Spass :-(

Axel:
Hi,

hast du das auch mal versucht als Variant-Wert zu übergeben?


Axel

Blackraven:
xlApp.WorkBooks(1).Sheets(1).Select
Set xlSheet = xlApp.WorkBooks(1).ActiveSheet
xlSheet.Range("A6:E12").Select
xlApp.Selection.Sort  xlSheet.Columns("A"), xlAscending , "", xlSheet.Columns("B"),xlAscending ,xlGuess,1, False, xlTopToBottom


gleicher Fehler :-(

liegt also nicht am variant, muss irgendwie in der Sortierformel liegen.

genauso warum läuft der Code unterschiedlich bei 2 versch. Sheets ??

xlApp.WorkBooks(1).Sheets(2).Select
Set xlSheet = xlApp.WorkBooks(1).ActiveSheet

xlSheet.Cells.Select  'Gesamtes Arbeitsblatt markieren
xlApp.Selection.Sort  xlSheet.Columns("A"), xlAscending , "", xlSheet.Columns("B"), xlAscending , xlSheet.Columns("C"), xlAscending, xlGuess,1, False, xlTopToBottom
   

Axel:
Hi,

mal 'ne ganz andere Frage. Ich gehe zwar davon aus, dass du es gemacht hast, aber nur um sicher zu gehen.

Die Konstanten xlAscending, xlGuess usw. hast du entsprechend initialisiert, oder ?


Axel
 

Navigation

[0] Themen-Index

[*] Vorherige Sete