HERBERS Excel-Forum - die Beispiele

Thema: Fußballwette auswerten

Home

Gruppe

Funktion

Problem

Wie kann ich eine Tabelle mit Fußballwetten auswerten. Die Vereinbarung ist wie folgt: Spielergebnis und Tore richtig = 3 Punkte Spielergebnis richtig, Tore falsch = 1 Punkt

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
StandardModule: Modul1

Sub Tabelle()
   Dim iRow As Integer, iRowH As Integer, iRowA As Integer
   iRow = 2
   Do Until IsEmpty(Cells(iRow, 1))
      If Not IsEmpty(Cells(iRow, 10)) And _
         Not IsEmpty(Cells(iRow, 11)) Then
         iRowH = WorksheetFunction.Match(Cells(iRow, 8), Columns(2), 0)
         iRowA = WorksheetFunction.Match(Cells(iRow, 9), Columns(2), 0)
         Cells(iRowH, 3).Value = Cells(iRowH, 3).Value + 1
         Cells(iRowA, 3).Value = Cells(iRowA, 3).Value + 1
         If Cells(iRow, 10).Value > Cells(iRow, 11).Value Then
            Cells(iRowH, 4).Value = Cells(iRowH, 4).Value + 3
         ElseIf Cells(iRow, 10).Value < Cells(iRow, 11).Value Then
            Cells(iRowA, 4).Value = Cells(iRowH, 4).Value + 3
         Else
            Cells(iRowH, 4).Value = Cells(iRowH, 4).Value + 1
            Cells(iRowA, 4).Value = Cells(iRowA, 4).Value + 1
         End If
         Cells(iRowH, 5).Value = Cells(iRowH, 5).Value + Cells(iRow, 10).Value
         Cells(iRowH, 6).Value = Cells(iRowH, 6).Value + Cells(iRow, 11).Value
         Cells(iRowH, 7).Value = Cells(iRowH, 7).Value + Cells(iRow, 10).Value - Cells(iRow, 11).Value
         Cells(iRowA, 5).Value = Cells(iRowA, 5).Value + Cells(iRow, 11).Value
         Cells(iRowA, 6).Value = Cells(iRowA, 6).Value + Cells(iRow, 10).Value
         Cells(iRowA, 7).Value = Cells(iRowA, 7).Value + Cells(iRow, 11).Value - Cells(iRow, 10).Value
      End If
      iRow = iRow + 1
   Loop
   With Range("A1").CurrentRegion.Columns("B:G")
      .Sort _
      key1:=Range("D2"), order1:=xlDescending, _
      key2:=Range("G2"), order2:=xlDescending, _
      key3:=Range("E2"), order3:=xlDescending, _
      header:=True
   End With
End Sub

Sub ResetTab()
   Range("A1").CurrentRegion.Columns("C:G").Value = 0
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und UND

Finden und Kopieren Copy funktioniert nur einmal
Hintergrundfarbe in Tabellen Schreibschutz prüfen funktioniert nicht
Suchen und Löschen Suchen und Löschen
Was bedeutet diese Meldung und warum gibt es sie Zwischenablage in Userform anzeigen und ...
Zeilenteile einfügen und duplizieren Text vergl. und Untersch. farblich markieren
Arrays und benutzerdefinierte Datentypen Vba: Array dynamisch dimensionieren und einfügen
Replace: Quell- und Zielspalte definieren Split-Funktion beim Einlesen TXT-Datei
Match Funktion spinnt (?) Max und min Wert Finden
geöffnete Worddatei und Word aus Excel beenden SVerweis funktioniert nicht
PasteSpecial funktioniert nicht. Platzhalter und Variable verknüpfen
Blattschutz per Userform ein und ausschalten Formel wenn Wert gefunden überschreiben
Inhalte von einer PDF suchen und den Text kopieren Kartendiagramm per VBA erstellen und formatieren
Akt. Datum und Uhrzeit am gedruckten Dokument Sortierung und Vergleich mit "Fallen"
Zeile löschen und Bedingung anpassen MAX und MIN mit Lücke
2 Zellen vergleichen und Werte in Folgen summieren IST LEER und ABS
Vergleichen zweier Dateien und aktualisieren VBA-Code funktioniert nicht mit anderem Office
VBA E-Mail mit Button und Bedingungen Hilfe bei der INDEX Funktion
Datum abfragen und Werte kopieren Bedingte Formatierung mit UND Verknüpfung
Listbox und .rowsource (ActiveSheet) VBA und geschützte Ansicht
Dropdown Menü weitersetzen und als PDF speichern prüfung von Variable auf auf Null und Inhalt=null
Sheets abfragen und zusammenfügen - PDF! Absatzzeichen in Textbox und Listbox verhindern
Zelladressen von FunktionsParametern ermitteln Zufallslosung und Aufteilen
Teilzahlen runden / bestimmte Summe Finden und kopieren
Wert suchen und ab Wert Zahlen addieren Formel aus Zellen erstellen und einfügen als Forme
VBA Autofilter mit Array, und ungleich operator Module und Userform per VBA löschen