Sieg oder Niederlage auslesen

Hallo zusammen

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

Da ich gar nichts mit VBA am Hut habe, benötige ich nochmals Hilfe
eines Profis
Mir wurde hier im Forum geholfen mit GegnerErmitteln
nun möchte ich zusätzlich in der Spalte V,X,Z usw. die
dazugehörige Punktzahl auflisten,
Für Team Spalte H = Punktzahl M
und für Team Spalte K = Punktzahl O
Das sollte ja ähnlich gehen wie
das Gegner ermitteln, Aber ich krieg das nicht hin
Kann mir jemand helfen ?
Option Explicit


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

Merci Rene

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Public Function PunkteErmitteln(Mannschaft As Variant, HeimListe As Range, GastListe As Range, _ HeimPunkte As Range, GastPunkte As Range, GegnerNr As Integer) As Variant Dim arrH Dim arrG Dim arrHP Dim arrGP Dim i As Long, TrefferNr As Long arrH = HeimListe arrG = GastListe arrHP = HeimPunkte arrGP = GastPunkte 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 PunkteErmitteln = arrHP(i, 1) If arrG(i, 1) = Mannschaft Then PunkteErmitteln = arrGP(i, 1) Else PunkteErmitteln = "" End If Else PunkteErmitteln = "" End If End Function

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread