Martin Jenniges schrieb:
Hallo Rainer,
ich habe wohl vergessen, fuer Uneingeweihte hinzuzufuegen, dass
Starbasic gleich OO-Basic ist; also die Programminterne Makrosprache.
Ich will in einem Script viele Zellen bez fuehrende Nullen formatieren
und nicht nur per Menue Format.
viele Gruesse
Dann meinst du sicher so etwas hier:
Du hast ein Stück Code (wie dieses hier) das eine Zelle mit etwas füllt?!
** Codeschnipsel von Andrew *****************
Sub SetValue
Dim oDoc As Object, oSheet As Object, oCell As Object
oDoc=ThisComponent
oSheet=oDoc.Sheets.getByName("Sheet1")
oCell=oSheet.getCellByPosition(0,0) 'A1
oCell.setValue(23658)
'hier kann der unten aufgeführte Code für ein eigenes Zahlenformat rein
'oCell.NumberFormat=2 '23658.00
'oCell.SetString("oops")
'oCell.setFormula("=FUNCTION()")
'oCell.IsCellBackgroundTransparent = TRUE
'oCell.CellBackColor = RGB(255,141,56)
End Sub
*******************
Aber du möchtest, noch ein eigenes Zahlenformat definieren?
Dann machst du das so:
*******************
oCell.NumberFormat = FindCreateNumberFormatStyle("00.000,00", doc)
*******************
Ich hoffe so hilft es dir?
mfg
Volker
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org
