suchen aber wie ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bernd
sorry habe ich glatt vergessen die Anrede sorry soll nicht mehr vorkommen
Das ganze sollte ein Turnierplan werden (File ist eine abgespeckte version)
Also das Ziel ist es
wenn ich eine Speilpaarung eingebe in Spalte H und K
sollte mir in Spalte U bei jeweiliger Mannschaft der Gegner eingetragen werden
bei einem Einsatz der Mannschaft wird es unter Spalte V eingetragen
Tema Nr. Name Anz- Sp Pt. Gegner1 Gegner 2
1 Team 1 3 3 2 3
2 Team 2 3 2 1 4
siehen File https://www.herber.de/bbs/user/50760.xls
es soll mir bei der Ranglisten erstellung helfen da.
es werden 7 Spiele durchgeührt
nie gleiche Paarungen (abgefangen VBS)
Sieger spielen gegen Sieger (Manuell)
Verlierer gegen Verlierer (Manuell)
nach 7 Spielen kann es vorkommen das einige Maschaften
gleich viele Punkte haben
da muss ich auswerten können
bei Punktegleichstand zählt zuesrt
- die direkte Begegnung (Hat ein Team bei der direkten Begegnung gegen das andere Team gewonnen
so ist es in der Rangliste vor diesem Team (nur bei Punktegleichheit)
- welches Team gegen stärkere Teams gespielt hat (Rang vor Team)
wenn nätürlich das ganze aotomatisch geht wäre sehr toll
ist das verständlich ?
Gruss Rene

Hi
ich hab mal ne eigene Funktion geschrieben, die die gewünschten Werte ermittelt.
diese Funktion kannst du wie eine normale Excel-Formel einsetzen.
1. Parameter: die Manschaft, deren Gegener gesucht werden
2. Parameter: aus der Spielergebnisliste die HEIM-Manschaften
3. Parameter: aus der Spielergebnisliste die GAST-Manschaften
4- Parmeter: die Nummer des Gegners (erster, zweiter, dritter)
ich hoffe mal, mit dem Beispiel wird es klar:

Die Datei https://www.herber.de/bbs/user/50762.xls wurde aus Datenschutzgründen gelöscht

und hier der Code dazu:


Public Function GegnerErmitteln(Mannschaft As Variant, HeimListe As Range, GastListe As Range,  _
GegnerNr As Integer) As Variant
Dim arrH
Dim arrG
Dim HeimOderGast As String
Dim i As Long, TrefferNr As Long
arrH = HeimListe
arrG = GastListe
For i = 1 To WorksheetFunction.Min(UBound(arrH), UBound(arrG))
If arrH(i, 1) = Mannschaft Then TrefferNr = TrefferNr + 1
If arrG(i, 1) = Mannschaft Then TrefferNr = TrefferNr + 1
If TrefferNr = GegnerNr Then Exit For
Next
If i  0 Then
If arrH(i, 1) = Mannschaft Then GegnerErmitteln = arrG(i, 1)
If arrG(i, 1) = Mannschaft Then GegnerErmitteln = arrH(i, 1)
Else
GegnerErmitteln = ""
End If
Else
GegnerErmitteln = ""
End If
End Function

Gruß, Daniel

Public Function GegnerErmitteln(Mannschaft As Variant, HeimListe As Range, GastListe As Range, _ _ GegnerNr As Integer) As Variant Dim arrH Dim arrG Dim HeimOderGast As String Dim i As Long, TrefferNr As Long arrH = HeimListe arrG = GastListe For i = 1 To WorksheetFunction.Min(UBound(arrH), UBound(arrG)) If arrH(i, 1) = Mannschaft Then TrefferNr = TrefferNr + 1 If arrG(i, 1) = Mannschaft Then TrefferNr = TrefferNr + 1 If TrefferNr = GegnerNr Then Exit For Next If i 0 Then If arrH(i, 1) = Mannschaft Then GegnerErmitteln = arrG(i, 1) If arrG(i, 1) = Mannschaft Then GegnerErmitteln = arrH(i, 1) Else GegnerErmitteln = "" End If Else GegnerErmitteln = "" End If End Function

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread