Gruppe
Extern
Bereich
System
Thema
Währung in der Systemsteuerung/Ländereinstellungen umstellen
Problem
Wie kann ich in der Systemsteuerung bei den Ländereinstellungen die Währung über VBA umstellen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub DialogAufrufen()
frmWaehrung.Show
End Sub
Sub WaehrungsAufruf(strWaehrung As String)
Dim strEuro As String
Application.ScreenUpdating = False
strWaehrung = strWaehrung & "%b{enter}"
Shell "RunDll32.exe Shell32.dll,Control_RunDLL intl.cpl,,2"
SendKeys strWaehrung, True
End Sub
ClassModule: frmWaehrung
Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub cmdEinstellen_Click()
Dim strWaehrung As String
If optDM.Value = True Then
strWaehrung = "DM"
ElseIf optEuro.Value = True Then
strWaehrung = ChrW(8364)
Else
strWaehrung = "$"
End If
Unload Me
Call WaehrungsAufruf(strWaehrung)
End Sub