von Stephan » Mo, 23.11.2015 18:45
habe das umgesetzt leider ohne Wirkung
das Format das Du verwenden willst ist kein Format das in den innerhalb von OO schon vorhandenen Formaten existiert, es muss also erst zu diesen Formaten hinzugefügt werden bevor es angewendet werden kann
Code: Alles auswählen
Sub BenutzerFormat
calcDoc=thisComponent
KEY = "#,# ""x"""
numformats = calcDoc.NumberFormats
locale = calcDoc.CharLocale
oRange = calcDoc.Sheets.getByIndex(0).getCellRangeByName("B2:B2000")
myFormat = numformats.queryKey( KEY ,locale, True)
If myFormat = -1 Then
myFormat = numformats.addNew(KEY, locale)
End If
oRange.NumberFormat = myFormat
end Sub
Gruß
Stephan
[quote]habe das umgesetzt leider ohne Wirkung
[/quote]
das Format das Du verwenden willst ist kein Format das in den innerhalb von OO schon vorhandenen Formaten existiert, es muss also erst zu diesen Formaten hinzugefügt werden bevor es angewendet werden kann
[code]Sub BenutzerFormat
calcDoc=thisComponent
KEY = "#,# ""x"""
numformats = calcDoc.NumberFormats
locale = calcDoc.CharLocale
oRange = calcDoc.Sheets.getByIndex(0).getCellRangeByName("B2:B2000")
myFormat = numformats.queryKey( KEY ,locale, True)
If myFormat = -1 Then
myFormat = numformats.addNew(KEY, locale)
End If
oRange.NumberFormat = myFormat
end Sub
[/code]
Gruß
Stephan