VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wahlauswertung nach Hare-Niemeyer

Gruppe

Funktion

Bereich

GANZZAHL

Thema

Wahlauswertung nach Hare-Niemeyer

Problem

Wie kann ich die Stimmenzählung nach Hare-Niemeyer in eine Excel-Tabelle integrieren

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




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 Funktion und GANZZAHL