OpenOffice.info

84

Hi Roland,
[code]84[/code]

Jürgen

Hallo,
wenn ich die richtigen Einstellungen für das Nummernformat ermitteln will, formatiere ich eine Beispielzelle wie gewünscht und frage dann die Eigenschaften mit XRAY ab. Xray kannst Du Dir als OO- Erweiterung herunterladen.
Moritz

sub Eigenschaften
BasicLibraries.LoadLibrary("XrayTool")
If thisComponent.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then
xray thisComponent.getCurrentSelection()
end if
end sub

ja: eine [color=#008000]PUBLIC[/color] Deklaration muss ausserhalb einer [color=#008000]SUB[/color] stehen...

Brauchst Du nicht, wenn die Variable nicht durch andere Codeteile genutzt wird... (s. F1 Onlinehilfe; über die Gültigkeit von Variablen)

[quote="Rooland"]Da kam die Meldung: Basic-Syntax Fehler, erwartet Sub.

Was mache ich da falsch ??[/quote]

Du hast nur ein [i]snippet [/i]erhalten: da fehlt
[color=#008000]Sub anzeigen_NummerFormat[/color]
oben und
[color=#008000]End Sub[/color] unten

http://www.ooowiki.de/StarBasic

Diese "Zahl" (=[i]numberformat[/i]) erhälst Du nach Ablauf des geposteten Codes, also ein:
[color=#008000]
msgbox nDateTime_Format_DATE[/color]
als letzte Anweisung.

public Const  MYDATEFORMAT = "JJJJ-MM-TT"
[...]
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

In diesem Fall beschreibst Du Dein gewünschtes Format - und fragst das NumberFormat ab.
[code]public Const MYDATEFORMAT = "JJJJ-MM-TT"
[...]
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]
[size=85]aus meiner Extension: [url=http://extensions.services.openoffice.org/project/DateTime2]DateTime2[/url][/size]

Hilft das weiter?