ich möchte im Excel VBA auslesen, in welches das aktuell eingestellte Standard-Währungsformat ist.
oder $.
Geht das mit dem Application object, oder über eine System API ?
Wer kann mir helfen.
Danke schon mal für alle Antworten
Stephan
Private Sub Command1_Click()
List1.Clear
GLI LOCALE_SLIST, "Listentrennzeichen"
GLI LOCALE_IMEASURE, "0=metrisch, 1=US"
GLI LOCALE_SDECIMAL, "Dezimaltrennzeichen"
GLI LOCALE_STHOUSAND, "Tausendertrennzeichen"
GLI LOCALE_SGROUPING, "Gruppierung links vom Komma"
GLI LOCALE_IDIGITS, "Zahlen hinter dem Komma"
GLI LOCALE_ILZERO, "führende Nullen"
GLI LOCALE_SCURRENCY, "Währungsymbol"
GLI LOCALE_SINTLSYMBOL, "Währung nach ISO 4217"
GLI LOCALE_SMONDECIMALSEP, "Währungstrennzeichen"
GLI LOCALE_SMONTHOUSANDSEP, "Währungstausendertrennzeichen"
GLI LOCALE_SMONGROUPING, "Währungsgruppierung"
GLI LOCALE_ICURRDIGITS, "Zahlen hinter dem Komma (Pf)"
GLI LOCALE_ICURRENCY, "Anzeige des Währungssymbols"
GLI LOCALE_INEGCURR, "Negatives Währungsvorzeichen"
GLI LOCALE_SDATE, "Datumstrennzeichen"
GLI LOCALE_STIME, "Zeittrennzeichen"
GLI LOCALE_SSHORTDATE, "Kurzes Datumsformat"
GLI LOCALE_SLONGDATE, "Langes Datumsformat"
GLI LOCALE_STIMEFORMAT, "Zeitformat"
GLI LOCALE_ITIME, "12/24 Stunden"
GLI LOCALE_S1159, "AM-Zeichen"
GLI LOCALE_S2359, "PM-Zeichen"
GLI LOCALE_SPOSITIVESIGN, "Positives Vorz."
GLI LOCALE_SNEGATIVESIGN, "Negatives Vorz."
GLI LOCALE_ILANGUAGE, "Sprach ID"
GLI LOCALE_SLANGUAGE, "Lokalisierter Sprachname"
GLI LOCALE_SENGLANGUAGE, "Engl. Äquivalent"
GLI LOCALE_SABBREVLANGNAME, "Abgekürzt"
GLI LOCALE_SNATIVELANGNAME, "Sprache in Landessprache"
GLI LOCALE_ICOUNTRY, "Ländercode"
GLI LOCALE_SCOUNTRY, "Ländername"
GLI LOCALE_SENGCOUNTRY, "Ländername in Engl."
GLI LOCALE_SABBREVCTRYNAME, "Abgekürzt"
GLI LOCALE_SNATIVECTRYNAME, "Land in Landessprache"
GLI LOCALE_IDEFAULTLANGUAGE, "Standard Sprach-ID"
GLI LOCALE_IDEFAULTCOUNTRY, "Standard Landes-ID"
GLI LOCALE_IDEFAULTCODEPAGE, "Standard Codeseite"
GLI LOCALE_SNATIVEDIGITS, "gebräuchliche Zahlen"
GLI LOCALE_IINTLCURRDIGITS, "Zahlen hinter Komma nach ISO"
GLI LOCALE_IDATE, "Datums Gruppierung"
GLI LOCALE_ILDATE, "Reihenfolge langes Datumsformat"
GLI LOCALE_ICENTURY, "Jahr in 2/4 Ziffern"
GLI LOCALE_ITLZERO, "führende Null für Zeiten"
GLI LOCALE_IDAYLZERO, "führende Null für Tage"
GLI LOCALE_IMONLZERO, "führende Null für Monate"
GLI LOCALE_SDAYNAME1, "Langer Name für Mo"
GLI LOCALE_SDAYNAME2, "Langer Name für Di"
GLI LOCALE_SDAYNAME3, "Langer Name für Mi"
GLI LOCALE_SDAYNAME4, "Langer Name für Do"
GLI LOCALE_SDAYNAME5, "Langer Name für Fr"
GLI LOCALE_SDAYNAME6, "Langer Name für Sa"
GLI LOCALE_SDAYNAME7, "Langer Name für So"
GLI LOCALE_SABBREVDAYNAME1, "Abgk. Name für Mo"
GLI LOCALE_SABBREVDAYNAME2, "Abgk. Name für Di"
GLI LOCALE_SABBREVDAYNAME3, "Abgk. Name für Mi"
GLI LOCALE_SABBREVDAYNAME4, "Abgk. Name für Do"
GLI LOCALE_SABBREVDAYNAME5, "Abgk. Name für Fr"
GLI LOCALE_SABBREVDAYNAME6, "Abgk. Name für Sa"
GLI LOCALE_SABBREVDAYNAME7, "Abgk. Name für So"
GLI LOCALE_SMONTHNAME1, "Langer Name für Jan"
GLI LOCALE_SMONTHNAME2, "Langer Name für Feb"
GLI LOCALE_SMONTHNAME3, "Langer Name für Mae"
GLI LOCALE_SMONTHNAME4, "Langer Name für Mai"
GLI LOCALE_SMONTHNAME5, "Langer Name für Apr"
GLI LOCALE_SMONTHNAME6, "Langer Name für Jun"
GLI LOCALE_SMONTHNAME7, "Langer Name für Jul"
GLI LOCALE_SMONTHNAME8, "Langer Name für Aug"
GLI LOCALE_SMONTHNAME9, "Langer Name für Sep"
GLI LOCALE_SMONTHNAME10, "Langer Name für Okt"
GLI LOCALE_SMONTHNAME11, "Langer Name für Nov"
GLI LOCALE_SMONTHNAME12, "Langer Name für Dez"
GLI LOCALE_SABBREVMONTHNAME1, "Abgk. Name für Jan"
GLI LOCALE_SABBREVMONTHNAME2, "Abgk. Name für Feb"
GLI LOCALE_SABBREVMONTHNAME3, "Abgk. Name für Mae"
GLI LOCALE_SABBREVMONTHNAME4, "Abgk. Name für Apr"
GLI LOCALE_SABBREVMONTHNAME5, "Abgk. Name für Mai"
GLI LOCALE_SABBREVMONTHNAME6, "Abgk. Name für Jun"
GLI LOCALE_SABBREVMONTHNAME7, "Abgk. Name für Jul"
GLI LOCALE_SABBREVMONTHNAME8, "Abgk. Name für Aug"
GLI LOCALE_SABBREVMONTHNAME9, "Abgk. Name für Sep"
GLI LOCALE_SABBREVMONTHNAME10, "Abgk. Name für Okt"
GLI LOCALE_SABBREVMONTHNAME11, "Abgk. Name für Nov"
GLI LOCALE_SABBREVMONTHNAME12, "Abgk. Name für Dez"
GLI LOCALE_IPOSSIGNPOSN, "Format. für pos. Währung"
GLI LOCALE_INEGSIGNPOSN, "Format. für neg. Währung"
GLI LOCALE_IPOSSYMPRECEDES, "Präfix für pos. Währungsvorzeichen"
GLI LOCALE_IPOSSEPBYSPACE, "Trennz. bei pos. Währungsbetrag"
GLI LOCALE_INEGSYMPRECEDES, "Präfix für neg. Währungsvorzeichen"
GLI LOCALE_INEGSEPBYSPACE, "Trennz. bei neg. Währungsbetrag"
End Sub
Private Function GetEntry(ID&) As String
Dim LCID&, Result&, Buffer$, Length&
LCID = GetSystemDefaultLCID()
Length = GetLocaleInfo(LCID, ID, Buffer, 0) - 1
Buffer = Space(Length + 1)
Result = GetLocaleInfo(LCID, ID, Buffer, Length)
GetEntry = Left$(Buffer, Length)
End Function
'---------- Ende Formular "Form1" alias Form1.frm ----------
'-------------- Ende Projektdatei Project1.vbp --------------
Sub Test()
Debug.Print GetEntry(LOCALE_SCURRENCY)
End Sub
Schönen Gruß, Tobias
http://www.tobiasschmid.de/
Function GetCurrencyFormat Lib "kernel32" Alias "GetCurrencyFormatA" (ByVal Locale As Long, _
ByVal dwFlags As Long, ByVal lpValue As String, lpFormat As Any, ByVal lpCurrencyStr As String, ByVal cchCurrency As Long) As Long
Sub Waehrung()
Dim Buffer As String
Buffer = String(255, 0)
GetCurrencyFormat ByVal 0&, 0, "1234.32", ByVal 0&, Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
MsgBox Buffer
End Sub
Gruß Ralf