SUMME VON ZAHLEN DIE IN KLAMMERN STEHEN

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Michael,
aber eine derartige Fml wäre bei Einsatz nur einer qualifizierten UDF (3×!) mit 124 Zeichen schon deutlich länger und komplizierter als meine anderen UDF-Fmln:
=SUMMENPRODUKT(SplitVx(A35;{" ("."), ".")"})*SplitVx(GLÄTTEN(WIEDERHOLEN(" 0 1";ANZAHL2(SplitVx(A35; {" ("."), ".")"}))/2))))
Da scheint mir dann doch eher eine Umwandlung in einen AUSWERTbarEN FmlText sinnvoller zu sein, auch wenn das insgesamt dann 3 Fmln sind, von denen 2 aber nur 1× als Namen definiert wdn müssen:
=SUMMENPRODUKT(TextVx;TextVxMult)
TextVx =AUSWERTEN("{"&WECHSELN(WECHSELN(WECHSELN($A35;" (";".");"), ";".");")";"}"))
TextVxMult =AUSWERTEN("{"&LINKS(WIEDERHOLEN("0.1.";ANZAHL(TextVx)/2);ANZAHL(TextVx)*2-1)&"}")
Morrn, Luc :-?

Hi Margarete,
mit den englischen Erklärungen muß ich Dir Recht geben: "früher" war das Deutsche auch verständlicher - heutzutage meinen viele Autoren, es möglichst allgemein und abstrakt halten zu müssen - so abstrakt, daß ich mir manchmal schwer tue, mir eine "Vorstellung" eines beschriebenen Sachverhalts zu machen.
Wenn Dir das split a string getaugt hat, lade ich die Datei doch mal hoch:
https://www.herber.de/bbs/user/105469.xlsm
Ich habe die Formel erst mal mittels einer Mini-Sub übersetzt, dann im String aus 2a)(weil's in der Formal schon so drinstand) die | durch # ersetzt und in A1 gesteckt, und siehe da: es kommt in A22 38000nochwas raus.
Daraus braucht man dann noch jedes Zweite. Dazu habe ich zunächst in A12 die Anzahl der "Zahlenteile" ermittelt und in B14 genauso viele 0 und 1 erzeugt; in B14 sieht man nur eine 0, derweil das eine Matrixformel ist: wenn Du die Formel in der Bearbeitungsleiste komplett markierst und F9 drückst, siehst Du die erzeugten Werte: {0;1;0;1;0;1} (bitte mit ESC wieder raus, sonst bleiben die Werte stehen und die Formel ist futsch).
In A14 ist dann alles zusammen mit der split a string verwurschtelt - und wir haben die 76.
Lucs Formeln habe ich in ein weiteres Blatt eingebaut - die sind natürlich viel eleganter, vor allem gefällt mir die Geschichte, wie mit AUSWERTEN (das leider nur in benannten "Namen" läuft) aus einem String, der aussieht wie eine Matrix, eine Matrix wird.
Abgesehen davon: um das Bereich.Verschieben hatte ich bislang irgendwie einen Bogen gemacht; gerade hier hat mir auch die engl. Bezeichnung OFFSET die Augen geöffnet: ist ja echt das Gleiche wie range.offset & resize in Einem.
Kurzum: wieder dicke was gelernt!
Frohes Schaffen & schöne Grüße,
Michael

	A	B	C	D	E	F	G
35	10584 (3), 10587 (15), 10589 (58)	76	76
36	10585 (3), 10587 (15), 10589 (58), 10155 (33), 12055 (1), 13056 (22), 13055 (2), 13051 (1)	135	135
37	10585 (8), 14059 (68), 10587 (1)	77	77
38	14050 (30), 14059 (35)	65	65
39	⇒SUMME(VSplit(MaskOn(MaskOn(A35;"mrk()");"num");;1))
40	⇒TxEval(WECHSELN(MaskOn(A35;"mrk()");" ";"+"))

10584 (3), 10587 (15), 10589 (58)

10585 (3), 10587 (15), 10589 (58), 10155 (33), 12055 (1), 13056 (22), 13055 (2), 13051 (1)

135

10585 (8), 14059 (68), 10587 (1)

14050 (30), 14059 (35)

⇒SUMME(VSplit(MaskOn(MaskOn(A35;"mrk()");"num");;1))

⇒TxEval(WECHSELN(MaskOn(A35;"mrk()");" ";"+"))

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

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

Beliebteste Forumthreads (12 Monate)

verwendete Formeln
Zelle	Formel	Bereich	N/A
B9	{=SUMME(WECHSELN(TEIL(A9:A11;SUCHEN("(";A9:A11)+1;LÄNGE(A9:A11));")";"")*1)}	$B$9

SUMME VON ZAHLEN DIE IN KLAMMERN STEHEN

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SUMME VON ZAHLEN DIE IN KLAMMERN STEHEN

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread