|
Hallo nochmal,
geht natürlich auch in VBA ...
=EXTRAHIEREN(A1;"ES:";10) ' Zelle mit dem Text; zu findende Zeichenfolge; Länge der auszugebenden Zeichenfolge
Code in ein Modul ...
Function EXTRAHIEREN(RNG As Variant, aStr As String, StrLen As Integer) As Variant
Dim a As Integer
Dim i As Integer
Dim bStr As String
Dim arr As Variant
With WorksheetFunction
a = (Len(RNG) - Len(.Substitute(RNG, aStr, ""))) / Len(aStr)
ReDim arr(0 To a - 1)
For i = 1 To a
bStr = .Substitute(RNG, aStr, "$%&", i)
bStr = .Substitute(Mid(bStr, .Find("$%&", bStr), StrLen), "$%&", aStr)
arr(i - 1) = bStr
Next i
End With
EXTRAHIEREN = arr
End Function
LG Sabina
|