Open Office Anzahl Summanden

[Katharina_Weise]

Hallo ihr Helfenden

Ich habe folgende Formel gefunden, die mir schon sehr weiterhilft, aber noch nicht alles löst:

=LÄNGE(B4)-LÄNGE(WECHSELN(B4;",";""))+1

Ich möchte die Anzahl der Zahlen zählen, die in einer Zelle stehen. Durch die Formel erreiche ich das, aber durch das +1 am Ende steht natürlich auch in der Ergebniszelle von der Zelle in der nichts steht eine 1, das darf nicht sein. Nun könnte ich natürlich als einfachste Lösung das +1 am Ende der Formel weglassen und dann auch hinter meine jeweils letzte Zahl ein + schreiben, aber vielleicht gäbe es ja auch eine eleganter Lösung?

Außerdem möchte ich in noch einer anderen Ergebniszelle die Summanden aus dieser einen Zelle addieren, wie mache ich das?

Um es zu verdeutlichen: In Zelle B4 steht z.B. 120+100+80+65.
In Zelle C4 steht o.g. Formel, also in diesem Fall 4.
In Zelle D4 soll die Summe aus den Zahlen stehen.

In großer Hoffnung auf einfache Lösungen,

Katharina

[Reinhard_fb8cb7]

=LÄNGE(B4)-LÄNGE(WECHSELN(B4;",";""))+1

Ich möchte die Anzahl der Zahlen zählen, die in einer Zelle
stehen. Durch die Formel erreiche ich das, aber durch das +1
am Ende steht natürlich auch in der Ergebniszelle von der
Zelle in der nichts steht eine 1, das darf nicht sein. Nun
könnte ich natürlich als einfachste Lösung das +1 am Ende der
Formel weglassen und dann auch hinter meine jeweils letzte
Zahl ein + schreiben, aber vielleicht gäbe es ja auch eine
eleganter Lösung?

Hallo Katharina,

meinst du das so:

Tabellenblatt: [Mappe2]!Tabelle1
 │ B │ C │
──┼────────────────┼───┤
4 │ 120,100,80,65. │ 4 │
──┼────────────────┼───┤
5 │ 120,100,80 │ 3 │
──┼────────────────┼───┤
6 │ 120,1 │ 2 │
──┼────────────────┼───┤
7 │ 120 │ 1 │
──┼────────────────┼───┤
8 │ │ 0 │
──┴────────────────┴───┘
Benutzte Formeln:
C4: =WENN(B4="";0;LÄNGE(B4)-LÄNGE(WECHSELN(B4;",";""))+1)
C5: =WENN(B5="";0;LÄNGE(B5)-LÄNGE(WECHSELN(B5;",";""))+1)
C6: =WENN(B6="";0;LÄNGE(B6)-LÄNGE(WECHSELN(B6;",";""))+1)
C7: =WENN(B7="";0;LÄNGE(B7)-LÄNGE(WECHSELN(B7;",";""))+1)
C8: =WENN(B8="";0;LÄNGE(B8)-LÄNGE(WECHSELN(B8;",";""))+1)

B4:C8
haben das Zahlenformat: Standard

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard

[Katharina_Weise]

Hallo Katharina,

meinst du das so:

Tabellenblatt: [Mappe2]!Tabelle1
│ B │ C │
──┼────────────────┼───┤
4 │ 120,100,80,65. │ 4 │
──┼────────────────┼───┤
5 │ 120,100,80 │ 3 │
──┼────────────────┼───┤
6 │ 120,1 │ 2 │
──┼────────────────┼───┤
7 │ 120 │ 1 │
──┼────────────────┼───┤
8 │ │ 0 │
──┴────────────────┴───┘
Benutzte Formeln:
C4: =WENN(B4="";0;LÄNGE(B4)-LÄNGE(WECHSELN(B4;",";""))+1)
C5: =WENN(B5="";0;LÄNGE(B5)-LÄNGE(WECHSELN(B5;",";""))+1)
C6: =WENN(B6="";0;LÄNGE(B6)-LÄNGE(WECHSELN(B6;",";""))+1)
C7: =WENN(B7="";0;LÄNGE(B7)-LÄNGE(WECHSELN(B7;",";""))+1)
C8: =WENN(B8="";0;LÄNGE(B8)-LÄNGE(WECHSELN(B8;",";""))+1)

Hallo Reinhard, genau so! Vielen Dank dafür (und ich spare mir heute das obligatorische hätt ich auch selbst drauf kommen können… ) Schöne, einfache, auch für mich verständliche Lösung!

Will ja nicht maßlos erscheinen, aber kannst du vielleicht auch noch den zweiten Teil meiner Frage beantworten? (Hab sie jetzt nur etwas abgewandelt):

Außerdem möchte ich in noch einer anderen Ergebniszelle die Zahlen aus dieser einen Zelle addieren, wie mache ich das, geht das?

Um es zu verdeutlichen: In Zelle B4 steht z.B. 120,100,80,65.

In Zelle D4 soll die Summe aus den Zahlen stehen.

Herzliche Grüße, Katharina

[Katharina_Weise]

Oh Reinhard,
gerade taucht ein kleines Problem auf: Wie bei dir auch in B6 ist es nicht möglich, wenn Zahlenformat Standard eingestellt ist, die beiden Zahlen ganz zu schreiben, immer wieder lässt er nur eine „Stelle hinterm Komma“ zu!
Gruß Katrin

[abgemeldet5]

Hallo Katharina
ich muss hier mal etwas zur Arbeitsweise von Excel zum besten geben, weil ich denke, das du dich hier etwas verrennst und das dir dadurch immer mehr Probleme entstehen:

120+100+80+65.
120,100,80,65.
Wenn so etwas in einer Zelle steht kann Excel das nicht als Zahl erkennen.
Für Excel ist das wie Text.
Hier kannst man nur versuchen mit ganz speziellen Textfunktionen diesen „Salat“ zu zerlegen und dann etwas daraus zu berechnen.
Beispiel: Auswerten
Das geht aber sofort schief wenn irgendetwas anders ist, und man kommt von einem Problem zum nächsten. ZB. stehen in der zweiten Zahlenreihe zwei verschiedene Trennzeichen und es ist insgesamt nicht ein mal eine mathematische Formel.

Du solltest dir Gedanken machen, ob es zwingend notwendig ist, das alles in einer Zelle steht. Wirklich viel besser wäre es, jede Zahl hätte ihre eigene Zelle nebeneinander.
Excel erkennt das es Zahlen sind, die Zellenformatierung funktioniert und auch =summe(A1:A10) ist dann kein Problem.
Jede der Spalten kann ja schmaler werden, so das das Layout gleich bleibt.

Das ist einfach und recht schnell auch nachträglich hin zu bekommen in dem du die Funktion „Text in Spalten“ anwendest:

Siehe Excel2007:
Zellen markieren >Daten >Text in Spalten > getrennt >weiter
alle Trennzeichen markieren >andere: +
weiter Return

Um den Punkt am ende weg zu bekommen kannst du das mit der Letzten Spalte noch ein mal wiederholen [Punkt als anderes Trennzeichen]
Das sollte alles sein

Gruß Holger

[M_x_44dd21]

Hi Katharina,
zum Addieren:
nimm diese Ungetüme (siehe holger)
kopier sie dir vielleicht woanders hin,
markieren dann „Daten“
„Text in Spalten“
nimm als trenn zeichen das verwendete komma und schon hast du die zahlen in einzelne Zellen aufgeteilt und kannst si mit eienr Standardformel summieren =SUMME(A1:A4)

Gruss

M@x

[Reinhard_fb8cb7]

Hallo Holger,

deine Ausführungen sind völlig korrekt.
Manches davon ist auch für Katharina hilfreich.
Es gibt da nur ein kleines winziges Problemchen ,
OO-Calc kennt kein „Auswerten“ denn das ist ein alter Excel Makro4 Ausdruck/Funktion.
Nichtmal OO-StarBasic kennt Evaluate
VBA und VB kennen das (kann sein als Eval).

Gruß
Reinhard

[Reinhard_fb8cb7]

gerade taucht ein kleines Problem auf: Wie bei dir auch in B6
ist es nicht möglich, wenn Zahlenformat Standard eingestellt
ist, die beiden Zahlen ganz zu schreiben, immer wieder lässt
er nur eine „Stelle hinterm Komma“ zu!

Hallo Katrin,

ja das ist korrekt. Das tritt dann auf wenn nur ein Komma in
der Eingabe ist. Dann entfernt Excel nachstehende „unnütze“ Nuller.
Abhilfe wäre halt ein anderes Zellformat oder ein Hochkomma davorsetzen.

Bevor ich jetzt anfange mich um deine zweite Frage zu kümmern,
beschreib mal bitte was bei dir an Daten vorliegt, vorliegen kann in absehbarer Zukunft.

In deiner Anfrage hattest du sowohl das Plus als auch das Komma
als Trennzeichen.
Was gilt nun? Welche Trennzeichen kommen da noch?

Und, wieviele Trennzeichen pro Eingabe werden es maximal, Drei?
Immer die gleichen in einer Zelle oder kommt auch sowas
120,234+80.312
und du willst dann die Summe aus 120+234+80+312?

Leider kennt OO-Calc nicht das im Link von Holger benutzte „Auswerten“.
Denn sonst könnte man das höchstwahrscheinlich elegant so lösen:
=Auswerten(Wechseln(Wechslen(Wechseln(wechseln(…))))

Ungetestet gehe ich davon aus daß ich/man dann eine Formel basteln muß die mit vielen WENNs dann das Ergebnis zusammenrechnet.
Je mehr Trennzeichen es in der Zelle gibt, desto länger wird die Formel. Deshalb meine Nachfrage nach der max. Anzahl.
Eine reine Formellösung mit vielen Hilfsspalten, ggfs. auf einem ausgeblendeten Blatt ist auch denkbar.
Das entspricht dann TextinSpalten aber funktioniert automatisch hne daß du TextinSpalten durchführen mußt.

Alternativen sind die die dir von Holger und Max empfohlene TextinSpalten Variante oder aber die Nachbildung einer Evaluate
(Ausawerten) Funktion durch Starbasic.

Gruß
Reinhard

[Katharina_Weise]

Hallo Katharina
ich muss hier mal etwas zur Arbeitsweise von Excel zum besten
geben, weil ich denke, das du dich hier etwas verrennst und
das dir dadurch immer mehr Probleme entstehen:

120+100+80+65.
120,100,80,65.
Wenn so etwas in einer Zelle steht kann Excel das nicht als
Zahl erkennen.

Hallo Holger, vielen Dank für deine ausführliche Antwort. Ich weiß ja selbst, dass das, was ich da gerade zusammenbaue, nicht im Sinn von Excel (wobei ich hier ja auch noch mit Open Office arbeite, aber dazu gleich) ist und eine ziemlich bescheuerte Art es zu gebrauchen, aber diese Tabelle wird für einen Freund sein, der absolut gar nichts mit Tabellen am Hut hat und sich da tatsächlich auch ziemlich ungeschickt anstellt. Ich versuche nun eine Lösung zu bauen, bei der er sein jetziges Verhalten so minimal wie möglich verändern muss, um überhaupt eine Chance zu sehen, dass er klarkommt. Deshalb der Ansatz, ihn weiterhin alle Daten in eine Zelle schreiben zu lassen (ich hatte sie ja schon auf einzelne Zellen verteilt, doch dadurch wurde die Tabelle zu breit, so dass er den Überblick verlor, weil er scrollen musste und … ach ach…, außerdem hatte ich alles ganz anders in der Tabelle gegliedert, so dass er wunderbar mit Filter arbeiten konnte, um seine nötigen Infos zu bekommen, doch das ging schon mal gar nicht) und nun hat mich der Ehrgeiz gepackt und ich will einfach wissen, ob es geht!

Für Excel ist das wie Text.

Ha! Das war mein Stichwort, wenn ich die Zelle einfach als Text formatiere, zeigt sie mir auch die fehlenden Stellen hinter dem Komma an, und die Formel funktioniert trotzdem noch! Danke!

Hier kannst man nur versuchen mit ganz speziellen
Textfunktionen diesen „Salat“ zu zerlegen und dann etwas
daraus zu berechnen.
Beispiel: Auswerten

Leider scheint das bei OO nicht zu funktionieren?

Das geht aber sofort schief wenn irgendetwas anders ist, und
man kommt von einem Problem zum nächsten. ZB. stehen in der
zweiten Zahlenreihe zwei verschiedene Trennzeichen und es ist
insgesamt nicht ein mal eine mathematische Formel.

Nein, das sind eigentlich nicht zwei verschiedene Trennzeichen, das ist da jetzt irgendwie so reingerutscht, es ist entweder immer das +, oder immer das Komma, das ist egal.

Du solltest dir Gedanken machen, ob es zwingend notwendig ist,
das alles in einer Zelle steht. Wirklich viel besser wäre es,
jede Zahl hätte ihre eigene Zelle nebeneinander.
Excel erkennt das es Zahlen sind, die Zellenformatierung
funktioniert und auch =summe(A1:A10) ist dann kein Problem.
Jede der Spalten kann ja schmaler werden, so das das Layout
gleich bleibt.

s.o.

Ich hatte heute überhaupt keine Zeit, mich mit der Tabelle zu beschäftigen, deshalb die späte Antwort, wahrscheinlich wird es die ganze Woche schwer, aber ich bleibe trotzdem erstmal dran, wer weiß, für was es gut ist, man lernt nie aus.

Danke jedenfalls, Katharina

[Katharina_Weise]

gerade taucht ein kleines Problem auf: Wie bei dir auch in B6
ist es nicht möglich, wenn Zahlenformat Standard eingestellt
ist, die beiden Zahlen ganz zu schreiben, immer wieder lässt
er nur eine „Stelle hinterm Komma“ zu!

Hallo Katrin,

ja das ist korrekt. Das tritt dann auf wenn nur ein Komma in
der Eingabe ist. Dann entfernt Excel nachstehende „unnütze“
Nuller.
Abhilfe wäre halt ein anderes Zellformat oder ein Hochkomma
davorsetzen.

Yepp, Format Text geht!

Bevor ich jetzt anfange mich um deine zweite Frage zu kümmern,
beschreib mal bitte was bei dir an Daten vorliegt, vorliegen
kann in absehbarer Zukunft.

In deiner Anfrage hattest du sowohl das Plus als auch das
Komma
als Trennzeichen.
Was gilt nun? Welche Trennzeichen kommen da noch?

Komisch, ich hab eigentlich immer nur das Plus benutzt, ich dachte, das Komma käme von dir?! (Und der Punkt am Ende gehört da auch nicht hin, das war nur der Punkt von meinem Satzende )

Und, wieviele Trennzeichen pro Eingabe werden es maximal,
Drei?

Nein, das können auch mehr sein, aber die Formel fürs Zählen funktioniert dann trotzdem!

Immer die gleichen in einer Zelle oder kommt auch sowas
120,234+80.312

Nein, nein, immer nur das gleiche! Ich benutze ein einziges Trennzeichen, welches ist egal, Plus oder Komma oder was anderes, aber immer nur das eine!

und du willst dann die Summe aus 120+234+80+312?

Genau.

Leider kennt OO-Calc nicht das im Link von Holger benutzte
„Auswerten“.

Das habe ich befürchtet, ich habs nämlich nicht gefunden.

Ungetestet gehe ich davon aus daß ich/man dann eine Formel
basteln muß die mit vielen WENNs dann das Ergebnis
zusammenrechnet.
Je mehr Trennzeichen es in der Zelle gibt, desto länger wird
die Formel. Deshalb meine Nachfrage nach der max. Anzahl.

Ach so… das heißt, du müsstest tatsächlich wissen, wieviele von diesem einen Trennzeichen max. in der Zelle vorkommen, wieviele Daten dort also max. eingetragen werden? Puh, schwer zu sagen, könnten schon mal bis zu 15 sein…

Eine reine Formellösung mit vielen Hilfsspalten, ggfs. auf
einem ausgeblendeten Blatt ist auch denkbar.
Das entspricht dann TextinSpalten aber funktioniert
automatisch hne daß du TextinSpalten durchführen mußt.

Das hört sich auch spannend an, aber wie wäre das genau?

Alternativen sind die die dir von Holger und Max empfohlene
TextinSpalten Variante

Lieber nicht, siehe Antwort auf Holger…

oder aber die Nachbildung einer
Evaluate
(Ausawerten) Funktion durch Starbasic.

Scheint mir sehr kompliziert, am liebsten wäre mir wirklich, wir könnten diese Nuss mit allem in einer Zelle knacken, auch wenn das sehr unelegant ist!

Herzlichen Dank auf jeden Fall für deine Mühe, ich habe leider sehr wenig Zeit diese Woche, aber ich bleibe unbedingt dran, auch wenn meine Erfolgsmeldungen manchmal etwas auf sich warten lassen!

Herzliche Grüße, Katharina

[Reinhard_fb8cb7]

Hallo Katrin,

In deiner Anfrage hattest du sowohl das Plus als auch das
Komma als Trennzeichen.

Komisch, ich hab eigentlich immer nur das Plus benutzt, ich
dachte, das Komma käme von dir?! (Und der Punkt am Ende gehört
da auch nicht hin, das war nur der Punkt von meinem Satzende
)

ja, das mit dem Punkt ist okay, der rutschte da so mit rein
Also das Plus gilt (erstemal)

Und, wieviele Trennzeichen pro Eingabe werden es maximal,
Drei?

Nein, das können auch mehr sein, aber die Formel fürs Zählen
funktioniert dann trotzdem!

Ja, die schon.

Je mehr Trennzeichen es in der Zelle gibt, desto länger wird
die Formel. Deshalb meine Nachfrage nach der max. Anzahl.

Ach so… das heißt, du müsstest tatsächlich wissen, wieviele
von diesem einen Trennzeichen max. in der Zelle vorkommen,
wieviele Daten dort also max. eingetragen werden? Puh, schwer
zu sagen, könnten schon mal bis zu 15 sein…

Aargs.

oder aber die Nachbildung einer
Evaluate
(Ausawerten) Funktion durch Starbasic.

Scheint mir sehr kompliziert, am liebsten wäre mir wirklich,
wir könnten diese Nuss mit allem in einer Zelle knacken, auch
wenn das sehr unelegant ist!

Probier mal die Funktionen von mir.
Drücke Alt+F11. Jetzt siehst du ein Fensterchen. Links müßtest du
den Namen deiner Mappe lesen können, da ist eine baumstruktur wie im Explorer, klicke also doppelt auf den namen oder auf das Pluszeichen davor.
Bis "Standard unter dem Namen erscheint, klicke auf Standard.
Dann rechts auf „Neu“. Der Editor bietet dir Module1 als neuen
Modulnamen an, bestätige das mit OK.

Jetzt geht ein größeres Fenster auf, das ist das Modul1.
Da steht schon Sub Main und End Sub, lösche das und auch die Zeile oben die mit Rem beginnt.
Kopiere dann meine beiden nachstehend Codes da rein.
Schließe den Editor.

Die beiden Funktionen von mir kannst du jetzt benutzen wie sonstige OO-Calc Funktionen auch.
In der folgenden Tabelle schreibst du in
B2: =Anza(A2)
und in
C2: =SumA(A2)
und kopierst die Formeln nach unten.
Dann sieht das so aus:

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │ C │
──┼───────────────┼────────┼───────┤
1 │ Text │ Anzahl │ Summe │
──┼───────────────┼────────┼───────┤
2 │ 120+100+80+65 │ 4 │ 365 │
──┼───────────────┼────────┼───────┤
3 │ 120+100+80 │ 3 │ 300 │
──┼───────────────┼────────┼───────┤
4 │ 120+100 │ 2 │ 220 │
──┼───────────────┼────────┼───────┤
5 │ 120 │ 1 │ 120 │
──┼───────────────┼────────┼───────┤
6 │ │ 0 │ 0 │
──┴───────────────┴────────┴───────┘

PS: Grundsätzlich sollte sich dein Bruder OO anpassen und nicht umgedreht, langfristig bringt das doch nix für ihn

Gruß
Reinhard

Function Anza(Zelle)
Anza=ubound(split(zelle,"+"))+1
if zelle=0 then Anza=0
End Function

Function SumA(Zelle)
SumA=0
S=split(Zelle,"+")
for N= lbound(S) to ubound(S)
 suma=suma+val(S(N))
next N
End Function

[Katharina_Weise]

Hallo Reinhard!

oder aber die Nachbildung einer
Evaluate
(Ausawerten) Funktion durch Starbasic.

Scheint mir sehr kompliziert, am liebsten wäre mir wirklich,
wir könnten diese Nuss mit allem in einer Zelle knacken, auch
wenn das sehr unelegant ist!

Probier mal die Funktionen von mir.
Drücke Alt+F11. Jetzt siehst du ein Fensterchen. Links müßtest
du
den Namen deiner Mappe lesen können, da ist eine baumstruktur
wie im Explorer, klicke also doppelt auf den namen oder auf
das Pluszeichen davor.
Bis "Standard unter dem Namen erscheint, klicke auf Standard.
Dann rechts auf „Neu“. Der Editor bietet dir Module1 als neuen
Modulnamen an, bestätige das mit OK.

Jetzt geht ein größeres Fenster auf, das ist das Modul1.
Da steht schon Sub Main und End Sub, lösche das und auch die
Zeile oben die mit Rem beginnt.
Kopiere dann meine beiden nachstehend Codes da rein.
Schließe den Editor.

Ok, gemacht. Danke für die ausführliche Anleitung!

Die beiden Funktionen von mir kannst du jetzt benutzen wie
sonstige OO-Calc Funktionen auch.
In der folgenden Tabelle schreibst du in
B2: =Anza(A2)
und in
C2: =SumA(A2)
und kopierst die Formeln nach unten.
Dann sieht das so aus:

Tabellenblatt: [Mappe1]!Tabelle1
│ A │ B │ C │
──┼───────────────┼────────┼───────┤
1 │ Text │ Anzahl │ Summe │
──┼───────────────┼────────┼───────┤
2 │ 120+100+80+65 │ 4 │ 365 │
──┼───────────────┼────────┼───────┤
3 │ 120+100+80 │ 3 │ 300 │
──┼───────────────┼────────┼───────┤
4 │ 120+100 │ 2 │ 220 │
──┼───────────────┼────────┼───────┤
5 │ 120 │ 1 │ 120 │
──┼───────────────┼────────┼───────┤
6 │ │ 0 │ 0 │
──┴───────────────┴────────┴───────┘

Fast, leider nicht ganz, denn =Anza(B2) funktioniert irgendwie nicht. Da steht dann nur weiterhin, also nach Enter drücken, =Anza(B2).
Hab dann nochmal Editor aufgemacht, um zu schauen, ob vielleicht beim Kopieren was verrutscht ist, dann wird die 2. Zeile markiert Anza=ubound(split(zelle,"+"))+1 und es heißt BASIC Laufzeitfehler
Argument ist nicht optional (Ich hab dich doch richtig verstanden, dass ich einfach deine beiden Codes so wie sie unten stehen als Block in das Modul1 kopieren sollte?)

PS: Grundsätzlich sollte sich dein Bruder OO anpassen und
nicht umgedreht, langfristig bringt das doch nix für ihn

Ich arbeite dran…

Function Anza(Zelle)
Anza=ubound(split(zelle,"+"))+1
if zelle=0 then Anza=0
End Function

Function SumA(Zelle)
SumA=0
S=split(Zelle,"+")
for N= lbound(S) to ubound(S)
suma=suma+val(S(N))
next N
End Function

Gruß Katrin

[Katharina_Weise]

Hallo Reinhard,

ich hatte letzte Woche wirklich nicht viel Zeit, nichtsdestotrotz habe ich aber wirklich täglich geschaut, ob nicht vielleicht doch diese eine , allerletzte Antwort von dir kommt, da war aber nichts, dann dachte ich, ob ich mir vielleicht endgültig deinen Unmut zugezogen habe, weil ich mich so blöd anstelle, dagegen spricht, dass deine Geduld ja bekanntermaßen grenzenlos ist, und deswegen wage ich jetzt nochmal einen Versuch.
Du hast mir ja diesen Code geschrieben, s.u., ich denke ich habe alles so gemacht, wie du es beschrieben hast, aber trotzdem funktioniert der erste Teil nicht, also wenn ich in B2: =Anza(A2) schreibe, rechnet es nicht, sondern zeigt weiterhin =Anza(A2) an, in C2 mit =SumA(A2) funktioniert es. (Und bei dir hat es ja auch funktioniert, s.u.)
Herzliche Grüße, Katharina

Hier jetzt nochmal das Zitat meiner letzten Antwort mit deiner Beschreibung

Die beiden Funktionen von mir kannst du jetzt benutzen wie
sonstige OO-Calc Funktionen auch.
In der folgenden Tabelle schreibst du in
B2: =Anza(A2)
und in
C2: =SumA(A2)
und kopierst die Formeln nach unten.
Dann sieht das so aus:

Tabellenblatt: [Mappe1]!Tabelle1
│ A │ B │ C │
──┼───────────────┼────────┼───────┤
1 │ Text │ Anzahl │ Summe │
──┼───────────────┼────────┼───────┤
2 │ 120+100+80+65 │ 4 │ 365 │
──┼───────────────┼────────┼───────┤
3 │ 120+100+80 │ 3 │ 300 │
──┼───────────────┼────────┼───────┤
4 │ 120+100 │ 2 │ 220 │
──┼───────────────┼────────┼───────┤
5 │ 120 │ 1 │ 120 │
──┼───────────────┼────────┼───────┤
6 │ │ 0 │ 0 │
──┴───────────────┴────────┴───────┘

Fast, leider nicht ganz, denn =Anza(A2) funktioniert irgendwie
nicht. Da steht dann nur weiterhin, also nach Enter drücken,
=Anza(A2).
Hab dann nochmal Editor aufgemacht, um zu schauen, ob
vielleicht beim Kopieren was verrutscht ist, dann wird die 2.
Zeile markiert Anza=ubound(split(zelle,"+"))+1 und es heißt
BASIC Laufzeitfehler
Argument ist nicht optional (Ich hab dich doch richtig
verstanden, dass ich einfach deine beiden Codes so wie sie
unten stehen als Block in das Modul1 kopieren sollte?)

PS: Grundsätzlich sollte sich dein Bruder OO anpassen und
nicht umgedreht, langfristig bringt das doch nix für ihn

Ich arbeite dran…

Function Anza(Zelle)
Anza=ubound(split(zelle,"+"))+1
if zelle=0 then Anza=0
End Function

Function SumA(Zelle)
SumA=0
S=split(Zelle,"+")
for N= lbound(S) to ubound(S)
suma=suma+val(S(N))
next N
End Function

Gruß Katrin

[Reinhard_fb8cb7]

Hallo Katrin,

und deswegen wage ich jetzt
nochmal einen Versuch.

ist sehr in Ordnung, manchmal vergesse ich noch „offene“
Beitragfslogen. Natürlich hast du dir nicht meinen Unmut zugezogen, kein Gedanke.

Du hast mir ja diesen Code geschrieben, s.u., ich denke ich
habe alles so gemacht, wie du es beschrieben hast, aber
trotzdem funktioniert der erste Teil nicht, also wenn ich in
B2: =Anza(A2) schreibe, rechnet es nicht, sondern zeigt
weiterhin =Anza(A2) an, in C2 mit =SumA(A2) funktioniert es.
(Und bei dir hat es ja auch funktioniert, s.u.)

Hier ist die Mappe so wie sie bei mir funktioniert:
http://www.file-upload.net/download-4181761/Katharin…
Da steht nur das drin was ich hier schon zeigte.

Wenn dir die Mappe nicht weiterhilft so lade du mal deine Mappe mit fileupload hoch, Adresse ist in FAQ:2606

Tipp beim Herunterladen von Dateien bei fileupload, bißchen
größer als eine Zelle in OO bzw. Excel erscheint wenn du den Link
im Browser öffnen läßt so ca, rechts unterhalb der Seitenmitte
ein Button mit der Aufshrift „Download“.
Versuche sehr schnell auf den zu klicken.

Ansonsten mußte halt 2-3 mal lästige Werbefensterchen wegklicken.
Naja, so schlimm auch nicht, mich nerven die halt immer
und ich sehe das als sportliche Übung an da schneller zu sein *gg*

Gruß
Reinhard

[Katharina_Weise]

Hallo Reinhard,

und siehe da, es geht!! Sah vorher bei mir zwar eigentlich genauso aus, aber es wollte offensichtlich, dass man sich kümmert! Nun ist alles wie es sein soll, ganz, ganz herzlichen Dank!

Bis zum nächsten Mal, Katrin

(Ich habs geschafft, war schneller !)

[Reinhard_fb8cb7]

Hallo Katrin,

und siehe da, es geht!! Sah vorher bei mir zwar eigentlich
genauso aus, aber es wollte offensichtlich, dass man sich
kümmert! Nun ist alles wie es sein soll,

schön daß es jetzt funktioniert.
Falls es wieder geschieht, also Formeln werden nur angezeigt
aber nicht berechnet so versuche/checke folgendes:

Auch in Excel, das ist da ähnlich wie Calc, scheint gelegentlich
ein schelmischer „Geist“ sein Unwesen zu treiben.
Dann ist ohne dein Zutun in den Optionen die Blattberechnung
auf „manuell“ gestellt. Überprüfe das und stelle das ggfs.
wieder auf „automatisch“.

Möglich ist auch daß da die Formelzellen als „Text“ formatiert worden sind. Checken.

Manchmal hilft es auch in eine Zelle zu gehen, F2, ein Zeichen der Formel zu löschen, wieder hinzuschreiben und dann Enter.

Manchmal versagt auch das, dann hilft nur noch der dicke Hammer.
Die Formelspalte als Spalte löschen, nicht nur die Zellinhalte.
Dann eine neue Spalte an gleicher Stelle einfügen.
Dort dann die Zellformate checken, dann die Formeln neu reinschreiben (lassen)

Während meiner Tests mußte ich die beiden letzten Punkte durchführen.
Aber das hatte bei mir andere Gründe *glaub*
Denn ich hattte die Formeln schon in den Zellen dann habe
ich die Namen der Beiden Funktionen im Code abgeändert.
Dann in den Formeln die neuen Namen benutzen und schon erlebte
ich das was du beschrieben hast.

Wäre es notwendig gewesen daß du mir deine Mappe zeigst so hätte
ich genau die eben beschriebenen Punkte überprüft, getan.
Hätten die alle nicht gefruchtet so hätte ich sicher bald
viele Holzsplitter unter den Fingernägeln gehabt vom
AmKopfKratzen

(Ich habs geschafft, war schneller !)

*lächel* Ja, das hat seinen Reiz, grad ich mit meiner uralten Maus
die schon ihre Alterszickereien hat. Sicher, ich hab’ schon nagelneue Mäuschen hier rumliegen, aber bleib erstmal bei der alten, die
neuen sind ja reizlos, da klappt ja alles …

Gruß
Reinhard