|
Hallo Martin,
Beispiel Formel in Ausgabezelle: =EntfernenMitBedingung(A2;"ES:";":";" ")
UDF:
Function EntfernenMitBedingung(rng As Range, Start As Variant, Ende As Variant, Trenner As String)
Dim i&, arr, tmp$
arr = Split(rng, Trenner)
For i = LBound(arr) To UBound(arr)
If InStr(1, arr(i), Start, vbTextCompare) > 0 Then
arr(i) = Left(arr(i), Len(arr(i)) - (InStrRev(arr(i), Ende, 1, vbTextCompare) + 1))
tmp = tmp & arr(i) & ", "
End If
Next i
EntfernenMitBedingung = Left(tmp, Len(tmp) - 2)
End Function
Gruß Uwe
|