Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Extern und System