Dim betroffeneZahl As Long
Dim Spalte1array
Dim Datenmenge As Worksheet
Dim GesuchteZahlen
Dim ZahlSuch As Long
Dim Spalte2array
Spalte1array = Range("E2:E16530")
Spalte2array = Range("D2:D16530")
Set Datenmenge = Worksheets("Datenmenge")
Set GesuchteZahlen = Worksheets("GesuchteZahlen")
For i = 2 To 25
ZahlSuch = GesuchteZahlen.Cells(i, 1).Value
For Spalte1array = 1 To UBound(Spalte1array)
If Spalte1array(Spalte1array).Value = ZahlSuch Then
Datenmenge.Cells(2, 12).Value = "Ja"
End If
Next Spalte1array
Next i
End Sub