Function Sumtext(Zellen As Range, zaehler1 As Integer) As String
Application.Volatile
Dim zeich1 As Integer
Dim schalter As Boolean
Dim zaehler3 As Integer
ReDim zaehler2(Len([Zellen])) As String
zaehler3 = 1
If zaehler1 > Len([Zellen]) Then zaehler1 = Len([Zellen])
For zeich1 = Len([Zellen]) To 1 Step -1
If Mid([Zellen], zeich1, 1) Like "[0-9]" = True Then
If a = 0 Then a = zeich1
zaehler2(zaehler3) = Mid([Zellen], zeich1, 1) & zaehler2(zaehler3)
schalter = True
End If
If schalter = True And Mid([Zellen], zeich1, 1) Like "[0-9]" = False Then
zaehler3 = zaehler3 + 1
schalter = False
End If
Next zeich1
Sumtext = zaehler2(zaehler1) & Mid([Zellen], a + 1, Len([Zellen]) - Len(zaehler2(zaehler1)))
End Function

Function StrNr(Zellen As Range) As String
Application.Volatile
Dim Schalter As Boolean
Dim MidPos As Integer
Dim IndPos As Integer
Dim StaPos As Integer
ReDim Feld(Len([Zellen])) As String
IndPos = 1
For MidPos = Len([Zellen]) To 1 Step -1
If Mid([Zellen], MidPos, 1) Like "[0-9-]" = True Then
If StaPos = 0 Then StaPos = MidPos
Feld(IndPos) = Mid([Zellen], MidPos, 1) & Feld(IndPos)
Schalter = True
End If
If Schalter = True And Mid([Zellen], MidPos, 1) Like "[0-9-]" = False Then
IndPos = IndPos + 1
Schalter = False
End If
Next MidPos
StrNr = Feld(1) & Mid([Zellen], StaPos + 1, Len([Zellen]) - Len(Feld(1)))
End Function