Ich habe eine Excel-Tabelle mit 7895 Zeilen, 6 Spalten in Spalte BI haben Werte wie:
Classification 124: Item 1 (€2345,70) item 2 (€123) item 3 (€1456,75)
Ich versuche, eine Formel oder Funktion zu erstellen, die 2345,70 + 123 + 1456,75 summiert.
Ich habe so etwas gefunden:
Function SumNums(rngS As Range, Optional strDelim As String = " ") As Double
Dim vNums As Variant, lngNum As Long
vNums = Split(rngS, strDelim)
For lngNum = LBound(vNums) To UBound(vNums) Step 1
SumNums = SumNums + Val(vNums(lngNum))
Next lngNum
End Function
Ich habe versucht, diese Routine zu verwenden, aber sie funktioniert in meinem speziellen Fall nicht. Ich muss einen Weg finden, wie die hinzugefügten Zahlen (€ 2345,70) mit der Klammer und dem Euro-Zeichen sind. Aber auch hier haben die Zahlen ein Euro-Zeichen, aber sie sind nicht als Währung formatiert.
microsoft-excel
worksheet-function
Emanuel
quelle
quelle
Antworten:
Probieren Sie die folgende Formel aus (Fügen Sie diese zu einem Modul im VBA-Editor hinzu - Alt+ F11)
Dann rufen Sie einfach mit an
=SumAllCurrencies(A1)
Dies funktioniert, indem Sie nach einem € -Zeichen alle Ziffern und nach einem Komma alle optionalen Ziffern neu ausgeben. Es addiert dann alle Zahlen direkt nach dem € -Zeichen und die Zahlen nach dem Komma, geteilt durch 100 (um sie als Cent anstelle von Euro zu behandeln).
Hoffe das hilft!
quelle