Hi zusammen, 

ich habe 2 Arrays und würde gerne für jeden eintrag in Array1 prüfen, ob dieser in Array2 auftaucht. 

Mein bisheriger Code:
 

rows = ActiveSheet.Cells(ActiveSheet.rows.Count, "A").End(xlUp).row
arr1 = Range("G1:G" & rows).Value
arr2 = Range("C1:C" & rows).Value

Dim i As Integer
i = 1

 For Each item In arr1
    
    If WorksheetFunction.match(item, arr2, 0) = 1 Then
       Debug.Print "Ja"
    Else
       Debug.Print "Nein"
    End If
    
    i = i + 1

 Next item