Zahlen per VBA-Makro zu bestehenden Zellinhalten dazuaddieren

23. Februar 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

Lesen Sie alle Zahlen aus einem gewünschten Zellbereich per Makro aus und addieren Sie eine Zahl zu den Inhalten

Alle Konstanten sind per Makro um einen Zusatzbetrag erhöht worden

Alle Konstanten sind per Makro um einen Zusatzbetrag erhöht worden

Oft ist es notwendig, Zellen in einer Liste mit einem Aufschlag zu versehen. Dazu ist es notwendig, zu allen Konstanten in einem Zellbereich einen festen Wert zu addieren.

Dabei sollen die Formeln nicht verändert werden. Ein Makro löst diese Aufgabe und addiert zu allen Konstanten in einem markierten Datenbereich eine Zahl Ihrer Wahl.

Auf diese Weise können Sie beispielsweise Preise und ähnliches schnell und effektiv an neue Konditionen anpassen.

Die folgende Abbildung zeigt eine Tabelle, die verändert werden soll. In den beiden Zellen B1 und B2 befinden sich Konstanten, in den Zellen B3 und B4 befinden sich Formeln. Die beiden Formelzellen beziehen sich auf die Zellen mit den konstanten Werten.

Zwei Konstanten und zwei Formeln

Um in dieser Liste zu allen Konstanten die Zahl 10 zu addieren, markieren Sie zuerst den Datenbereich B1:B4 und rufen dann das folgende Makro auf:

Sub KonstanteAddieren()
Dim Zelle As Range
Dim Faktor As Long
Zusatzbetrag = 10
For Each Zelle In Selection
 With Zelle
  If Not (.HasFormula) Then .Value = .Value + Zusatzbetrag
 End With
Next Zelle
End Sub

Nach dem Start des Makros wird zu allen Konstantenzellen im markierten Zellbereich der Zusatzbetrag 10 addiert. Die folgende Abbildung zeigt das Ergebnis:

Alle Konstanten sind per Makro um einen Zusatzbetrag erhöht worden

Das Makro setzt den Faktor ein, den Sie in der Wertzuweisung für die Variable "Zusatzbetrag" definiert haben.

Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11, um den VBA-Editor aufzurufen. Fügen Sie hier über das Kommando EINFÜGEN - MODUL ein leeres Modulblatt ein. Um das Makro direkt aus Excel zu starten, setzen Sie die Tastenkombination ALT F8 ein.

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"