in einem Vergleich in dem die Zelle einer Tabelle mit der einer anderen verglichen wird und anschließend bei nicht Übereinstimmung die Zeile aus einer der Tabellen gelöscht wird habe ich ein Problem.
Denn die Zellen aus Tabelle1 die verglichen und gelöscht werden sollen, sollen mit 3 Zellen aus Tabelle zwei verglichen werden. Problem ist: Wenn es keine Übereinstimmung mit der ersten Zelle aus Tabelle2 gibt wird die Zeile schon gelöscht und kann nicht mehr mit den anderen beiden Zellen verglichen werden.
D.h. das die Zeile in Tabelle1 erst nach nicht übereinstimmung mit allen drei Zellen in Tabelle2 gelöscht werden soll
Dazu noch zwei weitere Sachen: Bei der Überprüfung sollen nur die ersten 11 Zeichen beachtet werden.
Wenn eine Zeile nach nicht übereinstimmung von den Zellen aus Tabelle 2 gelöscht wird soll die selbe Zeile noch einmal überprüft werden da der Rest der Tabelle sich hoch verschiebt.
If Not Einspalte = "" Then
For IntZeile = 2 To ZeilenAnzahlNSD
WertGefunden = False
strwert1 = ws.Cells(IntZeile, CInt(Einspalte)).Value
For IntZeileWS2 = 1 To ZeilenAnzahlKostenstellen
strwert2 = ws2.Cells(IntZeileWS2, 1).Value
If strwert1 = strwert2 Then
WertGefunden = True
Exit For
End If
Next IntZeileWS2
If WertGefunden = False Then 'Wenn es kein Übereinstimmung gibt dann...
res = ws.Cells.Rows(IntZeile).Delete '... ganze Zeile löschen.
End If
Next IntZeile
End If