Direkt zum Inhalt

Wie summiere oder addiere ich Zahlen in einer einzelnen Zelle in Excel?

In vielen Fällen müssen Sie möglicherweise alle Zahlen in einer einzigen Zelle summieren. Beispielsweise befindet sich in Zelle A1 eine Textzeichenfolge der Klasse 2, Klasse 1, und das Ergebnis des Hinzufügens dieser Zahlen ist 1 + 2 = 3. Dieser Artikel zeigt Ihnen Methoden zum Hinzufügen von Zahlen in einer einzelnen Zelle mit Details.

Summenzahlen in einer einzelnen Zelle mit benutzerdefinierter Funktion
Summieren Sie einfach Zahlen in einer einzelnen Zelle mit nur wenigen Klicks

Summenzahlen in einer einzelnen Zelle mit benutzerdefinierter Funktion

Mit der folgenden benutzerdefinierten Funktion können Sie Zahlen in einer einzelnen Zelle summieren.

1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic-Anwendung Fenster.

2. In dem Microsoft Visual Basic-Anwendung Klicken Sie im Fenster Insert > Modul. Und dann kopieren Sie die folgende VBA in die Modul Fenster.

VBA: Summenzahlen in einer einzelnen Zelle

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
	Dim arr As Variant
	Dim xIndex As Long
	arr = Split(pWorkRng, xDelim)
	For xIndex = LBound(arr) To UBound(arr) Step 1
		SumNums = SumNums + VBA.Val(arr(xIndex))
	Next
End Function

3.Drücken Sie die Andere + Q Tasten zum Schließen der Microsoft Visual Basic-Anwendung Fenster.

4. Wählen Sie eine leere Zelle aus, um das Ergebnis auszugeben. Geben Sie die folgende Formel ein und drücken Sie die Taste Enter Taste (A2 ist die Zelle, in der Sie einzelne Zahlen summieren).

=SUMNUMS(A2)

5. Ziehen Sie dann den Füllgriff der Ergebniszelle, um die Formel auf andere benötigte Zellen anzuwenden.

Note: Diese benutzerdefinierte Funktion gilt nicht für Zellen im Zahlenformat.

Summieren Sie einfach Zahlen in einer einzelnen Zelle mit nur wenigen Klicks

Kutools for Excel Summenzahlen in einer Zelle Formel kann helfen, Zahlen in einer einzelnen Zelle (einschließlich Textformatzelle und Zahlenformatzelle) mit nur mehreren Klicks einfach zu summieren.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Wählen Sie eine leere Zelle aus, um den Resut auszugeben. Und dann klicken Kutoolen > Formel-Helfer > Formel-Helfer.

2. In dem Formel-Helfer Dialogfeld, bitte wie folgt konfigurieren.

2.1) Suchen und auswählen Summenzahlen in einer Zelle der Wählen Sie eine Formel Box;
Tips: Sie können die überprüfen Filter Geben Sie in das Feld ein Schlüsselwort ein, um die benötigte Formel zu filtern.
2.2) In der Zelle Geben Sie im Feld eine Zelle an, die die zu summierenden Zahlen enthält.
2.3) Klicken Sie auf OK Taste. Siehe Screenshot:

3. Anschließend wird das Ergebnis in die ausgewählte Zelle eingetragen. Wählen Sie die Ergebniszelle aus und ziehen Sie den Füllgriff nach unten, um die anderen Ergebnisse zu erhalten.

  Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.

Mit Kutools for Excel können Sie Zahlen in einer einzigen Zelle einfach summieren

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien  |   VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste   |  Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln   |  Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets:  12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (8)
No ratings yet. Be the first to rate!
Eric Hammond
Eric Hammond
This comment was minimized by the moderator on the site
The VBA function code works really well. Thank you. 
Reply
0
0
Migle
Migle
This comment was minimized by the moderator on the site
How do I add +1 digit to numbers in one cell (word or excell or notepad, doesn't matter). But at My work I often have: 14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303 something like that.

And I need to make them like: 15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304. I do it manually, but maybe there is a fast way to do it?
Reply
0
0
Louanne Zettler
Louanne Zettler
This comment was minimized by the moderator on the site
I have a list of numbers that I want to automatically add 30 to each number in each single cell. Is that possible?
Reply
0
0
Em
Em
This comment was minimized by the moderator on the site
You can also very easily just type "=" in the cell. So if you had a cell that was 3 but wanted to add 1+2 it would be "=1+2" in the cell
Reply
0
0
Dan
Dan
This comment was minimized by the moderator on the site
The problem with this tool is that it adds all the digits. The problem is 125 + 2 is not 127. The tool would add it as 1 + 2 + 5 + 2. Not sure how this is useful to someone that needs to add all the numbers. Even in the example it does not make sense or seem practical. Did I miss something?
Reply
0
0
Michael
Michael     Dan
This comment was minimized by the moderator on the site
Incorrect if the numbers are entered into the cell separately, for example 125 2 and the formula is entered into the next cell. The cell with the formula will calculate 127.
Reply
0
0
crystal
crystal     Michael
This comment was minimized by the moderator on the site
Hi Michael,
Sorry for the mistake. Please enter the following VBA code into the Module (Code) window, and then apply this formula: =SUMNUMS(A1,"") to sum all digits in a cell.

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
    If pWorkRng.CountLarge > 0 Then Exit Function
    On Error Resume Next
    Application.Volatile
    
    Dim arr As Variant
    Dim xIndex As Long
    If xDelim <> "" Then
        arr = Split(pWorkRng, xDelim)
        For xIndex = LBound(arr) To UBound(arr) Step 1
            SumNums = SumNums + VBA.Val(arr(xIndex))
        Next
    Else
        For xIndex = 1 To Len(pWorkRng) Step 1
            If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
                SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
            End If
        Next
    End If
End Function
Reply
Report
0
0
Omar
Omar
This comment was minimized by the moderator on the site
THANKSSSSSS SOOO MUCH THE MODULE IDEA IS AMAZING ! I NEVER KNEW IT EXISTED
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations