OpenOffice.info

Lieber Jürgen,
vielen Dank, auch da muss man erst mal drauf kommen: format(zahl,"### ### ### #00") scheint zu funktionieren.
Grüße
Pit

Sub Number_Format
	Dim Cell As Object
	Dim NumberFormats As Object
	Dim NumberFormatString As String
	Dim NumberFormatId As Long
	Dim LocalSettings As New com.sun.star.lang.Locale
	Dim myDoc as object
	Dim mysheet as object
	mydoc = ThisComponent
	mysheet = mydoc.sheets(0)	
	numberformats = mydoc.numberformats
	numberformatstring = "### ### ### ### ### ### ##0,00 [$€-407];[ROT]-0,00 [$€-407]"  '€ 2 Kommastellen negative in rot
	numberformatid = numberformats.queryKey(numberformatstring, Localsettings, true)
	if numberformatId = -1 then
	numberformatId = numberformats.addNew(numberformatstring,LocalSettings)
	end if
	mysheet.getcellbyposition(1,0).numberformat = numberformatId 
End Sub

Hallo lieber Pit,

zufällig habe ich mich gestern Abend mit diesem Thema auseinandergesetzt und folgendes gefunden:
[code]Sub Number_Format
Dim Cell As Object
Dim NumberFormats As Object
Dim NumberFormatString As String
Dim NumberFormatId As Long
Dim LocalSettings As New com.sun.star.lang.Locale
Dim myDoc as object
Dim mysheet as object
mydoc = ThisComponent
mysheet = mydoc.sheets(0)
numberformats = mydoc.numberformats
numberformatstring = "### ### ### ### ### ### ##0,00 [$€-407];[ROT]-0,00 [$€-407]" '€ 2 Kommastellen negative in rot
numberformatid = numberformats.queryKey(numberformatstring, Localsettings, true)
if numberformatId = -1 then
numberformatId = numberformats.addNew(numberformatstring,LocalSettings)
end if
mysheet.getcellbyposition(1,0).numberformat = numberformatId
End Sub[/code]

Bei mir hat es geholfen, bei Dir auch?

Jürgen

Hallo ihr Lieben,

nachdem ich hier eine Funktion zum Runden gefunden habe an der ich lange gebastelt habe, habt ihr ja vielleich hier auch für ein neues Problem eine fertige Lösung:
Da die Trennung der Tausender mit Punkten nicht mehr erlaubt ist, brauche ich eine Funktion, die bis zu 13 Stellen lange Zahlen durch Leerzeichen an den Tausenderstellen unterteilt, also aus "123456789" "123 456 789" macht. Hat jemand sowas?

Grüße
Pit