beispielhaft kann ich euch sowas sagen: In Tabelle 2 steht in einer Zelle Mann und in Tabelle1 steht in 3 seperaten Zellen Mann1, Mann2, Mann3. Nach einem normalen Vergleich wären die Zellen in Tabelle 1 nicht gelöscht deshalb sollen in diesem Beispiel nur die ersten 4 Zeichen verglichen werden somit dann die Zellen gelöscht werden würden. Es wäre nett wenn Ihr meinen Code dafür modifizieren könntet. In dem Fall wären es die ersten 11 Zeichen.
Hier mal mein Code:
Einspalte = -1
For j = 1 To 999
If ws.Cells(1, j) = KOSTENSTELLE Then
Einspalte = j
Exit For
End If
Next j
If Einspalte > 0 Then
If Not Einspalte = "" Then
For IntZeile = ZeilenanzahlNSD To 2 Step -1
WertGefunden = False
strwert1 = ws.Cells(IntZeile, CInt(Einspalte)).Value
For IntZeileWS2 = 1 To 3
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
Else