Alle Excel-Werte mit einer Konstanten multiplizieren

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

So multiplizieren Sie alle Zellen in einem Bereich mit einer Konstanten

Sie möchten dafür sorgen, dass alle Konstanten in einem Bereich mit einem Faktor multipliziert werden? Das können Sie durch den geschickten Einsatz der Funktion BEARBEITEN - INHALTE EINFÜGEN erreichen.

Einfacher ist es, wenn Sie das folgende Makro einsetzen:

Sub FaktorVerwenden()
Dim Zelle As Range
Dim Eingabewert As Long
Eingabewert = InputBox("Bitte geben Sie den Faktor ein (z.B. 100)")
For Each Zelle In Selection
If Not (Zelle.HasFormula) Then
 Zelle.Formula = "=" & Zelle.Value & "*" & Val(Eingabewert)
End If
Next Zelle
End Sub

Markieren Sie im ersten Schritt einen Zellbereich in einer Tabelle. Die folgende Abbildung zeigt ein Beispiel für einen markierten Bereich.

Rufen Sie dann das Makro auf. Excel fragt nun in einem Fenster nach dem Faktor, den Sie verwenden möchten. Die folgende Abbildung zeigt dieses Fenster:

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. Sie werden mit dem eingegebenen Faktor multipliziert. Den neuen Wert trägt Excel als Formel in die Zelle ein. Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann:

Falls Sie die Zahlen als Konstanten eintragen möchten, ersetzen Sie die Zeile "Zelle.Formula" durch den folgenden Ausdruck:

Zelle.Value = Zelle.Value  * Val(Eingabewert)

Indem Sie einen Faktor kleiner als Eins eingeben, können Sie auch für eine Division der Zellen durch eine Konstante sorgen.

Verwandte Themen:

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"