und den gegenüberliegenden Wert in einer neuen Spalte U ausgeben
wird ein weiterer Eintrag gefunden soltte dieser in Spalte V ausgegeben usw.
Ambesten schaut ihr mal die Tabelle an .
https://www.herber.de/bbs/user/50760.xls
Gruss Rene
Die Datei https://www.herber.de/bbs/user/50762.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
Gruß, Daniel
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
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