Kann der Code ev. angepasst werden das beim Ermittels des
Gegners der Sieger (Punkt =1) rot hinterlegt wird ?
Wie in der Beispieldatei (ich habs von Hand gemacht)
Die Datei https://www.herber.de/bbs/user/51199.xls wurde aus Datenschutzgründen gelöscht
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
Besten Dank in voraus
Rene