Ländereinstellung in Windows

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Ländereinstellung in Windows
von: Fred
Geschrieben am: 18.02.2005 21:32:25
Hallo,
hab von K.Rola den Code zum Auslesen der Ländereinstellung für Zahlen bekommen.
Hat jemand den Code zum Ändern dieser Einstellung?
Ich weiß nicht, wie die API-Funktion heißt, also wonach ich googeln müßte.
Gruß Fred

Bild

Betrifft: AW: Ländereinstellung in Windows
von: Gert Seler
Geschrieben am: 18.02.2005 21:47:21
Hallo Fred,
bei Windows_XP = "Start" -->"Einstellungen" --->"Systemsteuerung" --->"Regions &
Sprachoptionen"
kannst Du die Ländereinstellungen ändern. Ganz ohne VBA.
mfg
Gert
Bild

Betrifft: AW: Ländereinstellung in Windows
von: Fred
Geschrieben am: 18.02.2005 22:04:40
Hi,
danke, es muss schon mit VBA sein.
Gruß Fred
Bild

Betrifft: weiterhin offen! oT
von: Fred
Geschrieben am: 18.02.2005 22:05:09
o
Bild

Betrifft: AW: weiterhin offen! oT
von: K.Rola
Geschrieben am: 18.02.2005 22:29:26
Hallo,
google nach: Declare Function SetLocaleInfo
Du findest Deklarationen ohne Ende, teilweise auch komplette Codebeispiele.
Gruß K.Rola
Bild

Betrifft: Habs gefunden, danke oT
von: Fred
Geschrieben am: 18.02.2005 22:38:06
oT
Bild

Betrifft: setlocaleinfo
von: Reinhard
Geschrieben am: 18.02.2005 22:33:10
Hi Fred,
gebe bitte bei sowas immer den Thread bzw Code an auf den du dich beziehst.
K.Rola hat dir in https://www.herber.de/forum/archiv/568to572/t571439.htm#571482
den nachfolgenden Code gebastelt und da steckt ja schon der Ansatz der Lösung drinnen, SetLocaleInfo.
Gruß
Reinhard

Option Explicit
Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" ( _
ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, _
ByVal cchData As Long) As Long
Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" ( _
ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Const LOCALE_SDECIMAL = &HE
Const LOCALE_STHOUSAND = &HF
Sub Tausender()
Dim lngID As Long, lngCVal As Long, msg As String
lngCVal = GetUserDefaultLCID()
msg = String(255, 0)
Call GetLocaleInfo(lngID, LOCALE_STHOUSAND, msg, 255)
msg = Left(msg, InStr(msg, Chr(0)) - 1)
MsgBox msg
End Sub
Sub Dezimal()
Dim lngID As Long, lngCVal As Long, msg As String
lngCVal = GetUserDefaultLCID()
msg = String(255, 0)
Call GetLocaleInfo(lngID, LOCALE_SDECIMAL, msg, 255)
msg = Left(msg, InStr(msg, Chr(0)) - 1)
MsgBox msg
End Sub

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ländereinstellung in Windows"