VB-Skript

Function Gewinn(Zahlen As Range, Datenbank As Range, byGewinn As Byte)
Dim i As Long, Zähler As Long, A As Long, lZ As Long, j As Long
Dim meAr(), meZahl()
meZahl = Zahlen
meAr = Datenbank
For i = 1 To UBound(meAr, 1)
For j = 1 To 6
For A = 1 To UBound(meZahl, 2)
If meZahl(1, A) = meAr(i, j) Then lZ = lZ + 1
Next A
Next j
If lZ = byGewinn Then Zähler = Zähler + 1
lZ = 0
Next i
Gewinn = Zähler
End Function