Excel 2003: Ausrichtung in einer Zelle

[Diana82]

Hallo,
ich habe ein kleines Problem. Bei mir funktioniert die Ausrichtung nach dem Export nach Excel nicht. Ich habe schon überall rumgesucht und dabei folgendes gefunden:

   xlapp.range("C7:D100").select
   xlapp.selection.horizontalAlignment = xlCenter

Wenn ich das so ausführe kommt allerdings folgende Fehlermeldung:
"Microsoft Office Excel: Die HorizontalAlignment-Eigenschaft des Range-Objektes kann nicht festgelegt werden."

Alle anderen Formatierungen davor funktionieren. Hat vielleicht jemand ne Idee? Ich will den Text dann auch rechtsbündig ausrichten!
Danke schon mal

[ascabg]

Hi,

Versuch mal Folgendes.

Code

xlApp.Range("C7:D100").HorizontalAlignment = xlCenter

Andreas

[Diana82]

Geht leider auch nicht! Kommt die selbe Meldung. 

[Glombi]

Es liegt am xlCenter
Diese Excel-Konstante kennt LotusScript nicht. Du musst stattdessen den entsprechenen Zahlwert für xlCenter verwenden.

gegoogelt ergibt:

xlapp.range("C7:D100").select
xlapp.selection.horizontalAlignment = -4108


Falls die Zahl nicht stimmt, kannst Du das in Excel nachsehen.

Andreas

[Glombi]

siehe dazu auch
http://atnotes.de/index.php?topic=27785.0

[Diana82]

Vielen dank, es funktioniert!

[Diana82]

XlSheet.Range("1:1").HorizontalAlignment = 3 or -4108 (Center)
XlSheet.Range("1:1").HorizontalAlignment = 2 or -4131 (Left)
XlSheet.Range("1:1").HorizontalAlignment = 4 or -4152 (Right)


Das hab ich grad noch gefunden!