OpenOffice.info

Super...Danke das wars :D

hätt ich auch allein drauf kommen können. Ich hatte da auch schon mal Value stehen aber irgendwie hatte Basic mich dann immer angemeckert. Aber mit ein bissl tüffteln ging es jetzt.

Ich danke dir vielmals.

ThisComponent.Sheets().getByName("Tabelle1").getCellByPosition(2,3).String = numField.getValue()

ThisComponent.Sheets().getByName("Tabelle1").getCellByPosition(2,3).Value = numField.getValue()

Dim aLocale As New com.sun.star.lang.Locale
oFormats = oDokument.NumberFormats
nDateTime_Format_DATE = _
 oFormats.queryKey( MYDATEFORMAT, aLocale, True )
' Schluesselwert nicht gefunden: hinzufuegen Format
' format not found - key not returned: add format
If nDateTime_Format_DATE < 0 Then
   nDateTime_Format_DATE  = _
   oFormats.addNew( MYDATEFORMAT, aLocale )
End If

a)
ein NumericField setzt keinen Text, das machst Du mit einer Anweisung
[code]ThisComponent.Sheets().getByName("Tabelle1").getCellByPosition(2,3).String = numField.getValue()[/code]
Setze den Zell[b]wert[/b]
[code]ThisComponent.Sheets().getByName("Tabelle1").getCellByPosition(2,3).Value = numField.getValue()[/code]

b)
eine Zahlenformatierung findet über die Zahlenformate des Dokuments statt; zweistufige Kodierung:

1. Abfrage des gewünschten Formats
2. Anwenden des erfragten oder neu eingetragenen Codes

aus meiner Extension DateTime2:
[code]Dim aLocale As New com.sun.star.lang.Locale
oFormats = oDokument.NumberFormats
nDateTime_Format_DATE = _
oFormats.queryKey( MYDATEFORMAT, aLocale, True )
' Schluesselwert nicht gefunden: hinzufuegen Format
' format not found - key not returned: add format
If nDateTime_Format_DATE < 0 Then
nDateTime_Format_DATE = _
oFormats.addNew( MYDATEFORMAT, aLocale )
End If[/code]

MYDATEFORMAT ist ein Zeichenkette mit einem gültigen Formatcode, in dem Fall "JJJJ-MM-TT"

Die Zuweisung in CALC erfolgt dann über das Attribut [color=#008000]NumberFormat[/color] der Zelle/des Zellbereichs/der Zellvorlage.
Ich empfehle die Erstellung und Verwendung einer Vorlage ggü. einer direkten Zuweisung (welche einer manuellen Formatierung entspricht). Vorteile sind Wiederverwendbarkeit, leichteres Auffinden und/oder Ändern und Vererbbarkeit innerhalb der Vorlagenfamilie.

Hilft das weiter?

...If ThisComponent.Sheets().GetByName("Datenblatt 2015_FS2015").getCellByPosition(10,i).String = Txt_NumFieldGesamt then
	    oCell = ThisComponent.Sheets().GetByName("Datenblatt 2015_FS2015").getCellByPosition(10,i)
	   oCell.XXX....

Hallo Liebe Forums-Gemeinschaft

Warum gibt ein Numerisches Feld, was sich in einem selbsterstelltem Dialog befindet, die Zahl, die da eingetragen wird als Text in die Zelle wieder? Die Zellen sind eigentlich in ein Zahlenformat formiertiert aber so bald das NumFeld da was reinschreibt ist es ein Text und ich kann damit nicht mehr rechnen! Warum macht LO das mit mir??? Das ist doch auch total unlogisch, dass ein NumFeld die Zelle zum Text formatiert. Wozu gibt es diese Numfelder denn sonst? :oops: :oops: :oops:

Jetzt möchte ich das über mein Makro formatieren...nur finde ich nirgends den Code für Zahlenformatierungen. Mein Code sieht so aus.
[code]...If ThisComponent.Sheets().GetByName("Datenblatt 2015_FS2015").getCellByPosition(10,i).String = Txt_NumFieldGesamt then
oCell = ThisComponent.Sheets().GetByName("Datenblatt 2015_FS2015").getCellByPosition(10,i)
oCell.XXX....[/code]

für das "XXX" benötige ich den Ausdruck für Zahlenformatierungen.

Vielen Dank schon mal