Zellen per VBA mit Konstanten multiplizieren

02. Dezember 2009
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie nur Konstanten mit einem Faktor versehen

Preiserhöhungen, Zahlungsfaktoren oder andere Korrekturen: oft ist es notwendig, Konstanten in Ihren Listen mit einem Faktor zu versehen. Dann sollen die Formeln aber nicht betroffen sein. Ein Makro löst diese Aufgabe und multipliziert alle Konstanten in einem markierten Datenbereich mit einem Faktor.

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

Die folgende Abbildung zeigt eine solche Tabelle. In den ersten beiden Zellen A1 und A2 befinden sich Konstanten, in den Zellen A3 und A4 befinden sich Formeln. Die beiden Formelzellen beziehen sich auf die Zellen mit den Konstanten.

Um in dieser Preisliste alle Konstanten mit dem Faktor 10 zu multiplizieren, markieren Sie zuerst den Datenbereich A1:A4 und rufen dann das folgende Makro auf:

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

Nach dem Start des Makros werden alle Konstantenzellen im markierten Zellbereich mit dem Faktor 10 multipliziert. Die folgende Abbildung zeigt das Ergebnis:

Das Makro setzt den Faktor ein, den Sie in der Wertzuweisung für die Variable "Faktor" definiert haben. Ändern Sie diese Zahl für einen anderen Faktor. Indem Sie Faktoren unter 1 einsetzen, können Sie auch Divisionen durchführen.

Indem Sie die Wertzuweisung in der If-Zeile des Makros verändern, können Sie anstelle der Multiplikation auch eine Addition oder eine Subtraktion der Konstanten um einen festen Wert vornehmen.

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

  • 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.

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"