Hi zusammen, 

ich habe durch folgenden Code die ergebnisse "vorhanden" und "nicht vorhanden".

Wie kann ich jetzt fur alle ergenisse die vorhanden sind ein Array erstellen ?

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
Dim typ as Boolean
i = 1

 For Each item In arr1

    If IsError(Application.Match(item, arr2, 0)) Then
        Debug.Print "Nicht gefunden"
        Typ = false
    Else
        Debug.Print "gefunden"
        Typ = true
    End If

Next item