datentypen unverträglich

Sub datentransfer()
Dim tb1 As Worksheet
Dim tb2 As Worksheet
Dim array_bereich As Variant
Dim material_spool As Variant
.
.
lr_av = tb1.Cells(Rows.Count, 1).End(xlUp).Row
array_bereich = Worksheets("AV-Auswertung").Range(Cells(2, 1), Cells(lr_av, 1))
blattschutz_ein
tb2.Select
lr_spool = Cells(Rows.Count, 2).End(xlUp).Row

For Each zelle_spool In Range(Cells(2, 2), Cells(lr_spool, 2))
zeile_gefunden_av = 0
zeile_spool = zelle_spool.Row
material_spool = zelle_spool.Value
zeile_gefunden_av = Application.Match(material_spool, array_bereich, 0) + 1

bei application.match bekomme ich den Fehler 'Typen unverträglivch'

Habt ihr eine Idee
Danke
Rainer