wie kann ich effiziennt eine liste
A4 bis A20000 als Beispiel gegen ein Array abgleichen ob der Wert der Liste in dem Array vorhanden ist.
danke
Array hat als Beispiel 10 Inhalte (0-9)
Sub tt()
Dim i As Integer, MeinArray
MeinArray = Array("test1", "test2")
For i = 0 To UBound(MeinArray)
If WorksheetFunction.CountIf(Range("A:A"), MeinArray(i)) > 0 Then
MsgBox MeinArray(i) & " gefunden"
Else
MsgBox MeinArray(i) & " nicht gefunden"
End If
Next
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe