Function SumKlWerte(zelle)
Dim qufin%
quelle = zelle
lqu = Len(quelle)
For i = 1 To lqu
If Mid(quelle, i, 1) = ")" Then anz = anz + 1
' Anzahl der Klammerwerte
Next
qu2 = quelle
For j = 1 To anz
lqu2 = Len(qu2)
x2 = InStr(qu2, "(") + 1
x3 = InStr(qu2, ")")
qunn = Mid(qu2, x2, x3 - x2)
' MsgBox qunn
qu2 = Right(qu2, lqu2 - x2 - 2)
qufin = qufin + qunn
Next
SumKlWerte = qufin
End Function
falsch ist:
qu2 = Right(qu2, lqu2 - x2 - 2)
richtig ist:
qu2 = Right(qu2, lqu2 - x3)
Sub t()
Dim regAusdr As Object
Dim Uebereinstimmung As Variant
Dim Uebereinstimmungen As Variant
Dim lngSumme As Long
Set regAusdr = CreateObject("Vbscript.regexp")
regAusdr.Pattern = "\(\d*"
regAusdr.IgnoreCase = True
regAusdr.Global = True
Set Uebereinstimmungen = regAusdr.Execute(Range("E4"))
For Each Uebereinstimmung In Uebereinstimmungen
lngSumme = lngSumme + CLng(Replace(Uebereinstimmung, "(", ""))
Next Uebereinstimmung
MsgBox lngSumme
End Sub