Excel VBA Laufzeitfehler 1004 - nicht klar warum - Excel, VBA, Laufzeit

Ich bekomme den Laufzeitfehler durch Ausführen dieses Codes:

    For Each cell In Range("B1").EntireColumn.Cells
If cell.Value = ListBox1.Value Then
FIng(i) = cell.Row
i = i + 1
End If
Next cell

For i = 0 To UBound(FIng)
If Cells(FIng(i), 1).Value > 0 Then "error: application defined 1004
MsgBox (Cells(FIng(i), 1).Value)
End If
Next i

Der Fehler tritt in der Zeile mit dem Kommentar auf. Ich überprüfe, ob ein bestimmter Wert in einer Spalte ist, und speichere dann die Spaltenzeile in einem Array. Die nächste Schleife verwendet dieses Array, um auf einen Wert in der ersten Spalte zuzugreifen und diesen anzuzeigen. Es funktioniert, aber ich bekomme diese Fehlermeldung und ich weiß nicht warum.

Antworten:

Dies ist die richtige Sekunde für die Schleife:

For i = 0 To UBound(FIng)
If FIng(i) > 0 Then "error: application defined 1004
MsgBox (Cells(FIng(i), 1).Value)
End If
Next i