Supportnet / Forum / Tabellenkalkulation
Zellen addieren, die unterschiedliche Währungsformate haben
Frage
Hallo,
ich möchte Zellen getrennt nach Währungsformat addieren.
z.B.
A1: 100€
A2: 200$
A3: 150€
A9: 20 GBP
Ax: 200$
Ergebnis:
A20: 250€
A21: 200$
Gibt es eine eleganter Lösung als:
A20=A1+A3
A21=A2+Ax
A22=.....
Danke
Antwort 1 von Viel-leicht-So
Hallo
Versuch mal
Formel in A20: =SUMME(A1;A3) usw.
Gruß
Versuch mal
Formel in A20: =SUMME(A1;A3) usw.
Gruß
Antwort 2 von Saarbauer
Hallo,
das gleiche Problem, Lösung vielleicht auch hier zu nutzen
https://supportnet.de/threads/1234692
Gruß
Helmut
das gleiche Problem, Lösung vielleicht auch hier zu nutzen
https://supportnet.de/threads/1234692
Gruß
Helmut
Antwort 3 von AlFox
Hallo Viel-leicht-So,
danke, aber das ist genauso wie meine "Not"-Lösung.
Hallo Saarbauer,
nein, das bringt mir nichts, weil bei deinem Lösungsvorschlag sind die Zahl und die Währung in unterschiedlichen Zellen, bei mir ist es in einer Zelle und die Zahl hat das WährungsFORMAT.
Gruß
Alfred
danke, aber das ist genauso wie meine "Not"-Lösung.
Hallo Saarbauer,
nein, das bringt mir nichts, weil bei deinem Lösungsvorschlag sind die Zahl und die Währung in unterschiedlichen Zellen, bei mir ist es in einer Zelle und die Zahl hat das WährungsFORMAT.
Gruß
Alfred
Antwort 4 von Saarbauer
Hallo,
hast du die möglichkeit mit zwei Hilfsspalten zu arbeiten (z.B. B und C
Dann in B4
=WENN(ISTKTEXT($A4);$A4;WERT(TEIL($A4;1;SUCHEN(" ";$A4;1)-1)))
Und in C4
=WENN(ISTKTEXT($A4);"€";TEIL($A4;SUCHEN(" ";$A4;1);10))
und dann im anderen Thread weiter
Anmerkung: Formeln funkzionieren nur mit einem Leerzeichen zwischen Betrag und Währung
Gruß
Helmut
hast du die möglichkeit mit zwei Hilfsspalten zu arbeiten (z.B. B und C
Dann in B4
=WENN(ISTKTEXT($A4);$A4;WERT(TEIL($A4;1;SUCHEN(" ";$A4;1)-1)))
Und in C4
=WENN(ISTKTEXT($A4);"€";TEIL($A4;SUCHEN(" ";$A4;1);10))
und dann im anderen Thread weiter
Anmerkung: Formeln funkzionieren nur mit einem Leerzeichen zwischen Betrag und Währung
Gruß
Helmut
Antwort 5 von Event
Hallo
Mit einer kleinen Funktion in vba könnte das gehen:
Nachfolgenden Code in den Codebereich eines Moduls kopieren:
In einer Zelle(z.B. C20 ) =wspalte("#,##0.00 $";C2:C19) eingetragen, gibt die Funktion die Summe der angegebenen gleichartig formatierten Zellen zurück.
Schwierig ist lediglich das Herausfinden des Orginalformatstrings!
Gruß
Mit einer kleinen Funktion in vba könnte das gehen:
Nachfolgenden Code in den Codebereich eines Moduls kopieren:
Option Explicit
Function wspalte(wformat As String, bereich As Range)
Dim ad$, zelle, summe
For Each zelle In bereich
If zelle.NumberFormat = wformat Then
summe = summe + zelle
end if
Next
wspalte = summe
End Function
In einer Zelle(z.B. C20 ) =wspalte("#,##0.00 $";C2:C19) eingetragen, gibt die Funktion die Summe der angegebenen gleichartig formatierten Zellen zurück.
Schwierig ist lediglich das Herausfinden des Orginalformatstrings!
Gruß