Hallo Zusammen,
beim Ausführen erscheint ein Fehler in der match funktion, weiß jemand woran es liegen könnte?:
Die Funktion soll zwei Tabellenblätter anhand einer Matchfunktion durchgehen und falls keine Übereinstimmung vorliegt in Tabelle A die entsprechende Zeile löschen.
'Code
Dim LZ2 As Integer
Dim infotext As String
Dim matchResult As Integer
infotext = " "
For LZ2 = FRow To 2 Step -1
matchResult = WorksheetFunction.IfError(WorksheetFunction.Match(Sheets("TabelleB").Cells(LZ2, 2), TabelleA.Range("B2:B" & FRow), 0), 0)
If matchResult = 0 Then
Worksheets("TabelleA").Rows(LZ2).EntireRow.Delete
End If
Next
Danke Vorab für Hilfestellungen.
Viele Grüße
Basti