Verkettete Zahlen summieren

[shift-del]

Ich bleibe dabei: Es gibt keinen Grund für eine solche Vorgehensweise.
Es ist wie mit Spatzen auf Kanonen schießen.

[Kuwer]

Hallo Detlef,

Es ist wie mit Spatzen auf Kanonen schießen.

aber eine interessante Variante.

Gruß Uwe

[RPP63]

:19:
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Von hier:
http://www.wiesenwerk.net/site/?p=716

[schauan]

Hallo Luc,

Also, ich habe jetzt in meinem Beitrag keinen Hinweis darauf gefunden, welche Excel-Version Du Dir zulegen sollst oder nicht oder welche Funktionen Du anwenden sollst oder auch nicht
Als Nutzer von Excel 2016 bin ich der Auffassung, dass ich eine der 3-4 oder 6 neuesten Versionen von Excel nutze und der Fragesteller vermutlich auch. Diese hat die Funktion nicht.

[snb]

Macht A16 bis I27 100% überflüssig:

Code:

Private Sub CommandButton1_Click()
    Cells(28, 3).Resize(, 7) = Array([sum(C7:C11)], [sum(D7:D11)], [sum(E7:E11)], [sum(F7:F11)], [sum(G7:G11)], [sum(H7:H11)], [sum(I7:I11)])
End Sub

[GMG-CC]

Auf der Basis deines letzten Uploads ...
Frage: Was ist flüssiger als flüssig? *) Richtig, deine Vorgehensweise, die nicht nur ich nicht nachvollziehen kann. Aber des Menschen Wille ist sein Himmelreich. 
In meinem Anhang:  
  Günthers_Loesung_ohne_VBA_aber_mit_PQ___20170611_LB1972_Summe_aus_Verketteten_Zahlen - Kopie.xlsm (Größe: 37,21 KB / Downloads: 4) = Antike meets Moderne/Zukunft (Excel-4 Funktion meets Power Query) aber dafür ohne VBA.


Ach ja: -> *) = überflüssig!

[atilla]

Den VBA-Schritt wegzubringen wäre noch eine schöne Optimierung

Hallo,

in der eingestellten Mappe mit den Beispielen ist das möglich.
Du brauchst auch die Funktion Wechseln() in Zeile 23 nicht.

-Kopier die Zeile 21.
-eine Zelle außerhalb Deiner Daten auswählen und dort als Werte transponiert einfügen
-Markierung belassen und Daten Text in Spalten aufrufen mit fertig stellen abschließen
-Markierung belassen und kopiereren und Zelle C28 auswählen und dort einfügen transponieren
-den hilfsweise genutzen Bereich kannst Du jetzt löschen.

[snb]

@CMG

Wieso Kanonen ?
UDF:

Code:

Function F_snb(c00)
  F_snb = Evaluate(Replace(c00, ",", "."))
End Function

In A11:

PHP-Code:

=F_snb(MID(A8;2;LEN(A8))) 


[GMG-CC]

@ snb: Das kann ich jetzt nicht so richtig einordnen ...

Bei den "Kanonen" habe ich mich bedankt, weil ich die Karikatur einfach witzig und passend fand (und finde).
Falls du auf die PQ-Lösung anspielst, das sei mit Kanonen ... : Das ist immer noch etwas "schlanker" als die Lösung darüber (ich hatte versehentlich nicht als *.xlsx gespeichert).
Und im Prinzip ist eine reine VBA-Lösung erheblich optimaler bei dieser eigenartigen Forderung (ohne Ironie). Aber der TE hat ja ausdrücklich darum gebeten, auch noch den kleinen Rest von VBA zu eliminieren: "Den VBA-Schritt wegzubringen wäre noch eine schöne Optimierung".

Na ja, und die nun vollkommen VBA-freie Datei mit der Punkt-Darstellung (die ich in der ersten Lösung nicht eingebaut hatte)  habe ich auch als Korrektur angehängt.

[Castor]

Was wäre denn die Lösung für dich, LB?
Deine bisherige ist mit oder ohne VBA ohnehin nicht optimal! Optimal wäre meine, von dir offensichtlich verworfene, gewesen, falls es dir nur um eine transparente Darstellung des Lösungswegs ginge, aus welchen (ggf vorsinflutlichem Denken verhafteten) Gründen auch immer. Ich kenne so etwas nur von Aufmaßrechnungen in Bauanträgen, die bei noch derartigem Denken verhafteten Bauämtern eingereicht werden müssen. Rein mathematisch betrachtet, könnte man so etwas bei einer Funtionsschreibweise für sinnvoll erachten, ökonomisch-statistisch ist das sinnlos, denn jeder sollte wissen, wie eine Summe gebildet wird, und für die Grundschule wird das ja wohl nicht sein!
Nichtsdestotrotz habe ich dir das noch mal in 2 Varianten eingestellt, deren 1. du wie geschrieben oder mit der Abo-Xl-Funktion (in neuesten Xl-Versionen → 365) TEXTVERKETTEN verwenden könntest. Du könntest dir natürlich auch eine f(x)=Σx_i-Darstellung zusammenbasteln, wie es Variante 2 andeutet (Links in Formel in Blau → maussensitiv!):

	N	O	P	Q	R	S	T	U
7	10+20+30+100+200 ∑{10,20,30,100,200} 15+10+42,1534747945094+20+220 ∑{15,10,42.1534747945094,20,220} 22,5+5+61,2797123755723+4+242 ∑{22.5,5,61.2797123755723,4,242} 33,75+2,5+92,4801211551923+0,8+266,2 ∑{33.75,2.5,92.4801211551923,0.8,266.2} 50,625+1,25+145,429740451593+0,16+292,82 ∑{50.625,1.25,145.429740451593,0.16,292.82} 75,9375+0,625+239,286695344047+0,032+322,102 ∑{75.9375,0.625,239.286695344047,0.032,322.102} 113,90625+0,3125+413,818981169602+0,0064+354,3122 ∑{113.90625,0.3125,413.818981169602,0.0064,354.3122} 360 360 307,1534748 307,1534748 334,7797124 Variante1   334,7797124 Variante2   395,7301212 (VJoin, Vs1.4) 395,7301212 (VJoin, Vs1.5) 490,2847405 (publiziert) 490,2847405 (unpubliziert) 637,9831953 637,9831953 882,3563312 882,3563312 N7[:N13]:=VJoin(INDEX($C$7:$I$11;;ZEILE(A1));"+") R7[:R13]:="∑"&VJoin(INDEX($C$7:$I$11;;ZEILE(A1));",";2) N14[:N20]:=TxEval(WECHSELN(N7;",";".")) R14[:R20]:=TxEval(WECHSELN(R7;"∑";"sum(")&")")
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Habe hier zusätzlich INDEX angewendet, um das Ganze rationell in dieser Form ausgeben zu können. Sind die einzelnen Werte-Kombinationen nicht vollständig sichtbar, wie in deiner BspDatei, wäre das ja nun gerade kein Beitrag zu besserer Rechnungstransparenz! Diesen Teil kannst du aber durch die Einzelspalten ersetzen und die Formeln dann nach rechts statt nach unten ziehen.
Merke: Wenn man derartiges machen will, ist oftmals VBA unverzichtbar, um rational zu arbeiten und eine optimale Lösung zu erhalten! Die hier verwendeten VBA-basierten UDFs haben den Vorteil, auch anderweitig eingesetzt werden zu können, halt wie normale Xl-Funktionen auch.

@André: Du hättest nicht suchen müssen, denn das war rein rhetorisch gemeint, wie man eigentlich unschwer erkennen sollte… :-]

Castor