HERBERS Excel-Forum - die Beispiele

Thema: Teilungszahlen und Sitzfolge nach dem Höchstzahlverfahren

Home

Gruppe

Funktion

Problem

Stimmauszählungen bei Kommunalwahlen sollen nach dem Modus "Teilungszahlen und Sitzfolge nach dem Höchstzahlverfahren" ausgewertet werden.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
StandardModule: Modul1

Sub Vergleich()

a = 1

Do While 1

zahl1 = Cells(a, 1)

zahl1pos2bis5 = Mid(zahl1, 2, 4)     ' bei 123456789100000  ...  2345
zahl1pos7bis10 = Mid(zahl1, 7, 4)   '                        ... 7891

b = 1
fehler = 0

Do While 1

zahl2 = Cells(b, 2)

zahl2pos2bis5 = Mid(zahl2, 2, 4)     ' bei 123456789100000  ...  2345
zahl2pos7bis10 = Mid(zahl2, 7, 4)   '                        ... 7891

If zahl2pos2bis5 <> zahl1pos2bis5 Or zahl1pos2bis5 <> zahl2pos7bis10 Then

fehler = 1

End If

b = b + 1
If Cells(b, 2) = "" Then Exit Do      ' Leere Zelle = Ende Spalte 1

Loop

If fehler <> 0 Then

MsgBox "Error! Spalte A Reihe " & a & " nicht in Spalte B gefunden!"

End If

a = a + 1
If Cells(a, 1) = "" Then Exit Do      ' Leere Zelle = Ende Spalte 1

Loop

End Sub
StandardModule: basMain

Sub Vergleichen()
   Dim iRowA As Integer, iCounter As Integer, iFirst As Integer, iSecond As Integer
   Dim iRowB As Integer
   Dim sTxtA As String, sTxtB As String
   Dim bln As Boolean
   iRowA = 1
   iFirst = 1
   iSecond = 2
   For iCounter = 1 To 2
      Do Until IsEmpty(Cells(iRowA, iFirst))
         bln = False
         iRowB = 1
         sTxtA = Cells(iRowA, iFirst).Value
         Do Until IsEmpty(Cells(iRowB, iSecond))
            sTxtB = Cells(iRowB, iSecond).Value
            If Mid(sTxtA, 2, 4) = Mid(sTxtB, 2, 4) And _
               Mid(sTxtA, 7, 4) = Mid(sTxtB, 7, 4) Then
               bln = True
               Exit Do
            End If
            iRowB = iRowB + 1
         Loop
         If bln = False Then Cells(iRowA, iFirst).Interior.ColorIndex = 6
         iRowA = iRowA + 1
      Loop
      iFirst = 2
      iSecond = 1
      iRowA = 1
   Next iCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und ZÄHLENWENN

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
VBA - Wochentage, zählenwenn Split-Funktion beim Einlesen TXT-Datei
Match Funktion spinnt (?) SVerweis funktioniert nicht
PasteSpecial funktioniert nicht. Zählenwenn
VBA-Code funktioniert nicht mit anderem Office Hilfe bei der INDEX Funktion
SVERWEIS mit Zählenwenn Zelladressen von FunktionsParametern ermitteln
Matrixformel mit Summenfunktion Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht VLOOKUP auf Links funktioniert offline
@DAVID Zwei SUMMEWENN funktionen verknüpfen Zwei SUMMEWENN funktionen verknüpfen
Polynomfunktion Mit vba Funktionen in Excel Zellen
Rang-Funktion für Strings? Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung Benutzerdefinierte Funktion
Userform mit Löschfunktion Frage zu Wenn Dann Funktion
Wenn-Funktion Frage zur Funktion DISAGIO
Funktion um Chart zu kreieren Wenn-Funktion verschachtelt
VBA Suchfunktion erweitern Makro funktioniert nicht richtig
zählenwenn-funktion mit mehreren kriterien Funktion SVERWEIS
Benutzerdefinierte Funktion in Open Office Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile") Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht WENN-Funktion
Hide-Funktion in einem Frame Suchfunktion
Date Funktion Filter funktioniert nicht
Funktionsname austauschen Datum in der Funktion VERWEIS