Multiplizieren Sie Zellen per VBA mit einer Konstanten

27. März 2012
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie Zahlen in einem Bereich per Makro verändern

Oft steht die Aufgabe an, alle Zellen in einem Bereich nach einem bestimmten Muster zu verändern, um beispielsweise Preisänderungen durchzuführen.

Das können Sie über Formeln erledigen, indem Sie die Zelleinhalte multiplizieren, anschließend konvertieren und in Werte umwandeln. Einfacher und schneller erledigen Sie diese Aufgabe mit einem Makro.

Die Zahlen im markierten Bereich der folgenden Abbildung sollen um 10 % erhöht werden.

Das erledigen Sie, in dem Sie die bestehenden Zahlen aus der Liste mit dem Faktor 1,1 multiplizieren. Hier ist das Makro, das diese Aufgabe erledigt:

Sub BereichMultiplizieren()
Dim Bereich As Range
Dim Zelle As Range
Dim Faktor As Variant
Faktor = 1.1
Set Bereich = Selection
For Each Zelle In Bereich
If IsNumeric(Zelle.Value) Then
Zelle.Formula = Zelle.Value * Faktor
End If
Next Zelle
End Sub

Nach dem Vorgang steht in allen Zellen ein Wert, der um ein Zehntel höher liegt als der zuvor gespeicherte Wert. Die folgende Abbildung zeigt, wie das Ergebnis aussieht:

Im Programmcode legen Sie über die Variable Bereich fest, welcher Bereich für die Multiplikation durchlaufen werden soll. Anstelle des aktuell markierten Bereichs können Sie auch einen festen Bereich definieren, beispielsweise den Bereich A2:A20 der aktiven Arbeitsmappe über das folgende Kommando anstellte des bisherigen Set-Kommandos:

Set Bereich = ActiveSheet.Range("a2:a20")

Über die Variable Faktor legen Sie fest, welchen Faktor Sie für die Multiplikation der Zellen verwenden möchten.

 

Verwandte Themen:

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter
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"