Function StrBe(Zellen As Variant, ZahlText As Integer, ParamArray AnzBl() As Variant) As Variant
    Application.Volatile
    Dim schalter As Boolean
    Dim zeich1 As Integer, zaehler3 As Integer, zaehler As Integer
    Dim Modus As String
    Dim Zelle As Range
    If ZahlText = 0 Then Modus = "0-9"
    If ZahlText = 1 Then Modus = "A-Za-zßÄäÖöÜü.-"
    If ZahlText = 2 Then Modus = "0-9,.A-Za-zßÄäÖöÜü"
    For Each bereich In Zellen
        ReDim zaehler2(Len(Cells(bereich.Row, bereich.Column))) As String
        For IndexArr = 0 To UBound(AnzBl())
            zaehler3 = 1
            If AnzBl(IndexArr) > Len(Cells(bereich.Row, bereich.Column)) Then AnzBl(IndexArr) = Len(Cells(bereich.Row, bereich.Column))
            For zeich1 = 1 To Len(Cells(bereich.Row, bereich.Column))
                If Mid(Cells(bereich.Row, bereich.Column), zeich1, 1) Like "[" & Modus & "]" = True Then
                    zaehler2(zaehler3) = zaehler2(zaehler3) & Mid(Cells(bereich.Row, bereich.Column), zeich1, 1)
                    schalter = True
                End If
                If schalter = True And Mid(Cells(bereich.Row, bereich.Column), zeich1, 1) Like "[" & Modus & "]" = False Then
                    zaehler3 = zaehler3 + 1
                    schalter = False
                End If
            Next zeich1
            If ZahlText = 0 And AnzBl(0) = 0 Then
                For zaehler = 1 To UBound(zaehler2())
                    If zaehler2(zaehler) = "" Then Exit For
                    StrBe = Val(StrBe) + Val(zaehler2(zaehler))
                Next zaehler
                Exit For
            End If
            If ZahlText = 0 And AnzBl(0) > 0 Then StrBe = Val(StrBe) + Val(zaehler2(AnzBl(IndexArr)))
            If ZahlText = 1 And AnzBl(0) = 0 Or ZahlText = 2 And AnzBl(0) = 0 Then
                For zaehler = 1 To UBound(zaehler2())
                    If zaehler2(zaehler) = "" Then Exit For
                    StrBe = StrBe + zaehler2(zaehler)
                Next zaehler
                Exit For
            End If
            If ZahlText = 1 And AnzBl(0) > 0 Or ZahlText = 2 And AnzBl(0) > 0 Then StrBe = StrBe + zaehler2(AnzBl(IndexArr))
            For zaehler = 1 To UBound(zaehler2())
                zaehler2(zaehler) = ""
            Next zaehler
            schalter = False
        Next IndexArr
    Next bereich
End Function

If ZahlText = 1 Then Modus = "A-Za-zßÄäÖöÜü.-"