Konstante Zahl per VBA-Makro zu Excel-Zellen addieren

31. August 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

So verwenden Sie ein Makro, um einen festen Wert zu allen Zellen in einem Excel-Bereich zu addieren

Zu allen Zellen ist die gewünschte Zahl addiert worden

Zu allen Zellen ist die gewünschte Zahl addiert worden

Sie möchten alle Zellen in einem Excel-Bereich um einen bestimmten Wert vergrößern oder vermindern? Dazu können Sie das Dialogfenster INHALTE EINFÜGEN verwenden. Wenn Sie die Aufgabe über ein Makro erledigen möchten, setzen Sie die folgenden VBA-Befehle ein:

Sub KonstanteAddieren()
Dim Zelle As Range
Dim Eingabewert As Long
Eingabewert = InputBox("Bitte geben Sie den gewünschten Wert ein")
For Each Zelle In Selection
If Not (Zelle.HasFormula) Then
 Zelle.Formula = "=" & Zelle.Value & "+" & Val(Eingabewert)
End If
Next Zelle
End Sub

Um das Makro in eine leere Arbeitsmappe einzugeben, legen Sie über STRG N zuerst eine leere Arbeitsmappe an. Drücken Sie die Tastenkombination ALT F11, um den VBA-Editor aufzurufen. Wählen Sie im Editor den Befehl EINFÜGEN - MODUL, um ein leeres Modul anzulegen, in das Sie das Makro eingeben können.

Vor dem Start des Makros Sie im ersten Schritt in Excel einen Zellbereich in einer Tabelle. Die folgende Abbildung zeigt ein Beispiel für einen markierten Bereich.

Zu diesen Zellen soll eine Zahl addiert werden

Rufen Sie dann das Makro auf, indem Sie die Tastenkombination ALT F8 drücken und das Makro KONSTANTEADDIEREN auswählen.

Excel fragt nun in einem Fenster nach dem Wert, den Sie addieren möchten. Sie können einen positiven Wert oder einen negativen Wert eingeben. Die folgende Abbildung zeigt dieses Fenster:

Welchen Wert möchten Sie addieren?

Bestätigen Sie die Festlegung des Faktors über die OK-Schaltfläche.Excel durchläuft nun alle Zellen in der Markierung. Nur die Zellen, in denen keine Formel steht, werden verändert. Der gewünschte Wert wird zu diesen Zellen addiert. Den neuen Wert trägt Excel als Formel in die Zelle ein. Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann:

Zu allen Zellen ist die gewünschte Zahl addiert worden

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"