Diese UDF hilft Ihnen, beide Tabellen / Spalten zu vergleichen, um allgemeinen Text zu finden und überarbeiteten Text zu erstellen.
Function RemoveText(strInput As String, rngFind As Range) As String Dim strTemp As String Dim strFind As String strTemp = strInput For Each cell In rngFind strFind = cell.Value strTemp = Replace(strTemp, strFind, "") Next cell RemoveText = strTemp End Function
Wie es funktioniert:
- Füllen Sie den allgemeinen Text in
Column C
. Schreiben Sie diese Formel in Zelle
D2
und füllen Sie sie aus.=RemoveText(A2,$C$2:$C$3)
Passen Sie die Zellverweise in der Formel nach Bedarf an.