10585 (3), 10587 (15), 10589 (58)
[/code]
Ich möchte nun alle Zahlen zusammen addieren die in Klammern stehen in einer Zelle
Wie geh ich da vor?
Mfg
A | B | |
9 | 10585 (3) | 76 |
10 | 10587 (15) | |
11 | 10589 (58) |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
B9 | {=SUMME(WECHSELN(TEIL(A9:A11;SUCHEN("(";A9:A11)+1;LÄNGE(A9:A11));")";"")*1)} | $B$9 |
Excel-Inn.de |
Hajo-Excel.de |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 23.01 einschl. 64 Bit |
bei mir funct das irgend wie nicht, wenn ich die tabelle so aufbaue wie du und in B9 die Formel _
kopiere bekomme ich die Zahl 3 und nicht 76 wie du.
A | B | C | D | E | F | G | |
---|---|---|---|---|---|---|---|
35 | 76 | 76 | |||||
36 | 135 | 135 | |||||
37 | 77 | 77 | |||||
38 | 65 | 65 | |||||
39 | |||||||
40 |
Public Function sum(rngBereich As Range) As Long
Dim Zelle As Range
Dim SPL
Dim lngX As Long
For Each Zelle In rngBereich
SPL = Split(Zelle, "(")
For lngX = 0 To UBound(SPL)
sum = sum + Val(SPL(lngX))
Next
Next
End Function
aber wie gesagt nur fast...
Public Function sum(rngBereich As Range) As Long
Dim Zelle As Range
Dim SPL
Dim lngX As Long
For Each Zelle In rngBereich
SPL = Split(Zelle, "(")
For lngX = 1 To UBound(SPL)
sum = sum + Val(SPL(lngX))
Next
Next
End Function