Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Währung in der Systemsteuerung/Ländereinstellungen umstellen

Gruppe

System

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