Direkt zum Inhalt

Wie füge ich mehreren Zellen in Excel Werte hinzu?

Wenn Sie mehreren Zellen in Excel einen Wert hinzufügen möchten, können Sie ihn mithilfe der folgenden Methoden einfach und schnell verarbeiten:

Pfeil blau rechte Blase Fügen Sie mit VBA mehreren Zellen einen Wert hinzu

Die Verwendung von Makros kann viele wiederholte Verarbeitungen vereinfachen und unsere Arbeit einfacher und schneller machen. Das folgende Makro auch.

Schritt 1: Wählen Sie die Zellen aus, denen Sie einen Wert hinzufügen möchten.

Schritt 2: Halten Sie die Taste gedrückt ALT + F11 und öffnet das Fenster Microsoft Visual Basic für Applikationen.

Schritt 3: Klicken Sie auf Insert > Modulund fügen Sie den folgenden VBA in das Modulfenster ein.

Sub Add2Formula ()
'300 hinzufügen

Für jedes c In Auswahl
c.Aktivieren
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Weiter c

End Sub

Schritt 4: Drücken Sie die Taste F5 Schlüssel zum Ausführen dieses Makros.

Notizen:

1. Dieses Makro gilt nur für Zellen, die keine Formeln enthalten.

2. Dieses Makro wird hinzugefügt 300 zu allen ausgewählten Zellen. Wenn Sie einen anderen Wert hinzufügen möchten, ersetzen Sie bitte die 300 mit anderem Wert.

Pfeil blau rechte Blase Fügen Sie mit Kutools for Excel mehreren Zellen einen Mehrwert hinzu

Kutools for Excel bietet uns eine alternative, benutzerfreundliche Methode, und mit den Operation Tools können wir auf einfache Weise mehreren Zellen einen Mehrwert verleihen.

Kutools for Excel Enthält mehr als 80 praktische Excel-Tools. Kostenlos ohne Einschränkung in 30 Tagen zu versuchen. Hol es dir jetzt.

Schritt 1: Wählen Sie die Zellen aus, denen Sie denselben Wert hinzufügen möchten.

Schritt 2: Klicken Sie auf Kutoolen > Produktion > Bedienwerkzeuge…. Siehe Screenshot:

Schritt 3: Wählen Sie die Zusatz Geben Sie im Abschnitt Operation den Wert ein, den Sie ausgewählten Zellen hinzufügen möchten. Siehe Screenshot:

Schritt 4: Überprüfen Sie die Formeln erstellen .

Schritt 5: Klicken Sie auf OK.

Unter Betriebstools,
Wählen Sie Addition, geben Sie 300 ein und klicken Sie auf OK.

Kutools für Excel Bedienwerkzeuge unterstützt alle Arten von mathematischen Operationen für alle ausgewählten Zellen zusammen:

  • Addition: Plus einen angegebenen Operanden.
  • Subtraktion: Subtrahieren Sie den angegebenen Operanden.
  • Multiplikation: Jeder Wert von Zellen multipliziert mit dem Operanden.
  • Division: Jeder Wert von Zellen geteilt durch den Operanden.
  • Potenzierung: Jeder Wert der Zelle versorgt den Operanden mit Strom.
  • Rundung: Runden Sie jeden Wert der Zelle auf die Dezimalzahlen (angegebener Operand).
  • Funktion: Wendet eine Funktion auf jeden Wert der Zelle an.
  • Benutzerdefiniert: Erstellen Sie einen formelähnlichen Ausdruck und wenden Sie ihn auf jeden Wert der Zelle an.

Verwandter Artikel

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 (9)
No ratings yet. Be the first to rate!
Taher
Taher
This comment was minimized by the moderator on the site
Thanks a lot. It is working 💖
Reply
0
0
Joe Riter
Joe Riter
This comment was minimized by the moderator on the site
If you want to include cells with formula, you could try, which is only a slight modification from the original. But adding numbers to an established formula could be dangerous so beware:


Sub Add2Formula()
' Add a number
Dim formulae As String
Dim a_number As Double

a_number = InputBox("what number to increment")

For Each cell In Selection
cell.Activate
formulae = ActiveCell.Formula
' gets rid of formula non-essentials that could cause errors
formulae = Replace(formulae, "'", "")
formulae = Replace(formulae, "=", "")

If formulae = "" Then
ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
Else
ActiveCell.Formula = "= " & formulae & "+" & a_number
End If
Next cell

End Sub


This could be easily modified to skip blank cells, and to skip text cells you could probably evaluate the value of the cell, and when it errors you could go to the next cell. Hope this helps.
Reply
0
0
Hum3
Hum3
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
Reply
0
0
sharfudheen
sharfudheen
This comment was minimized by the moderator on the site
sir.iam doing survey list in excel if a=200,b=100,c=50,d=15.e=10 for 3 questions if he selects a,b,b means 200+100+100=400 and Description should be good ..how to do this one
Reply
0
0
Fazlan
Fazlan
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
Reply
0
0
Alan
Alan
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
Reply
0
0
Desmond
Desmond
This comment was minimized by the moderator on the site
Dear Expert Have a question here. How to increase age automatically for each year? Thanks
Reply
0
0
Desmond
Desmond
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
Reply
0
0
jorawar singh
jorawar singh
This comment was minimized by the moderator on the site
sir if a1=100 b1=100 and after dat we want to insert 100 again in a1 den b1 should automatically update to 200 means a1 value added in b1 and so on and on. how it is possibe we have to take the two cells only. sir plz solve dis problem
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