Laufzeitfehler 13 Typen unverträglichkeit
28.03.2017 14:21:30
fabs
ich hoffe ihr könnt mir bei meinem Problem behilflich sein:)
With Tb(1)
For zeile = 1 To Tb(1).Cells(65536, CInt(letzteSpalte)).End(xlUp).Row
If .Cells(zeile, CInt(letzteSpalte)) "" Then
Set zelle = Tb(2).Range(Tb(2).Cells(1, CInt(letzteSpalte2)), _
Tb(2).Cells(Tb(2).Cells(65536, CInt(letzteSpalte2)).End(xlUp).Row, _
CInt(letzteSpalte2))).Find(.Cells(zeile, CInt(letzteSpalte)), Lookat:=xlWhole)
If zelle Is Nothing Then Tb(3).Cells(Tb(3).Cells(65536, 2).End(xlUp).Row + 1, 2) = .Cells(zeile, CInt(letzteSpalte))
Hiermit möchte ich zwei Tabellen vergleichen. In einer MsgBox wähle ich die Dateien die Sheets und die Spalten aus, die verglichen werden sollen. Jetzt bekomme ich aber den oben genannten Fehler sobald das Skript durchläuft und zwar an der markierten Stelle. Habt ihr eine Idee woran das liegen könnte?
VG
Fabs