Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.10.2025 12:13:05
Excel hat alter Version synchronisiert (aktuelle Daten weg)
12.10.2025 09:40:32
Wert in Exceltabellen suchen und Fundstelle ausgeben
12.10.2025 02:58:05
Kalenderwoche zählen
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife - Zwei Zellen multiplizieren

Forumthread: Schleife - Zwei Zellen multiplizieren

Schleife - Zwei Zellen multiplizieren
01.07.2019 17:07:55
Georg
Hallo,
ich würde gern zwei Zellen miteinander multiplizieren.
Jedoch erhalte ich den Laufzeitfehler '13': Typen unverträglich.
Mein Code ist folgender:
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
Cells(i, 5).FormulaLocal = Cells(i, 3).Value * Cells(i, 4).Value
Next
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
bei mir kommt kein Fehler ... owT
01.07.2019 17:18:18
Matthias
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 17:21:18
onur
Wieso .FormulaLocal?
Cells(i, 5).VALUE = Cells(i, 3).Value * Cells(i, 4).Value
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 17:25:34
Daniel
Hi
in welcher Zeile des Durchlaufs tritt denn der Fehler auf?
schon beim allerersten oder erst später?
welchen Wert hat dann dein i?
Welche Werte stehen in den betroffenen Zellen?
dass du Text nicht miteinander multiplizieren kannst, sollte klar sein.
steht bei dir in Zeile 1 vielleicht eine Überschrift?
solche Aufgaben kann man oft mit Formeln besser erledigen als mit schleifen: 
With Range("E1:E" & Cells(Rows.count, 1).end(xlup).row)
.FormulaR1C1 = "=RC3*RC4"
.Formula = .Value
End with
Gruß Daniel
Anzeige
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 19:29:13
Georg
Hallo,
FormulaLocal, da Kommazahlen berechnet werden.
Ich packe euch mal eine Beispiel-Datei rein. Da sollte mein Problem deutlich werden.
https://www.herber.de/bbs/user/130680.xlsx
Wenn ich per Hand in der Zelle E4 "=(44,44-0)*C4" eintippe, wird der Wert richtig berechnet.
VG
Anzeige
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 19:43:08
onur
Cells(i, 3).Value * Cells(i, 4).Value ?
Spalte 3 enthält nur einen Faktor und Spalte 4 einen Text !
Wie kommst du auf ein Ergebnis von 44,44 ?
Ausserdem: Wo ist denn dein Makro?
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 19:53:55
Georg
Neuer Versuch:
https://www.herber.de/bbs/user/130681.xlsm
Die Ergebnisse aus in der Spalte E erhalte ich durch die erste Formel.
Die auskommentierte Formel beinhaltet den Faktor (die nicht funktioniert).
Anhand dessen, dass die erste Formel funktioniert, sieht man ja das Excel sich nichts draus macht, dass Spalte D Text ist. Oder?
Anzeige
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 20:25:12
onur
Ich habe zwar keine Ahnung, wozu du die Spalte 4 (Rechenweg) brauchst, aber wenn du unbedingt das Ergebnis mit Spale 3 multiplizieren willst, dann geht es so (allerdings ist dann die Formel weg): 
Sub DA11()
'Variablen definieren
Dim i As Integer
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Cells(i, 5).FormulaLocal = "=" & Cells(i, 4).Value
Cells(i, 5) = Cells(i, 5) * Cells(i, 3)
Next
End Sub

Wenn du aber die Formel noch brauchst - so: 
Sub DA11()
'Variablen definieren
Dim i As Integer
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Cells(i, 5).FormulaLocal = "=" & "C" & i & "*" & Cells(i, 4).Text
Next
End Sub

Anzeige
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 20:38:03
Daniel
Hi
naja was in Spalte D steht, ist jetzt keine Zahl, die du direkt in einer Berechnung verwenden kannst, sondern ein einfacher Text.
wenn du damit Rechnen willst, hast du zwei möglichkeiten:
a) du lässt dir den Text als Formel berechnen. Innerhalb von VBA gibts dafür die Funktion EVALUATE
allerdings benötgit die dann wieder das amerikansische Zahlenformat: 
    Cells(i, 5).Value = Evaluate(Replace(Cells(i, 4).Value, ",", ".")) * Cells(i, 3).Value

b) du berechnest die Formeln nicht in VBA, sondern erstellst aus der Formel in D und der Zahl in C eine entsprechende Formel für die Excelzelle: 
    Cells(i, 5).FormulaLocal = "=" & Cells(i, 4).Value & "*" & Cells(i, 3).Value

Gruß Daniel
Anzeige
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 20:38:04
Daniel
Hi
naja was in Spalte D steht, ist jetzt keine Zahl, die du direkt in einer Berechnung verwenden kannst, sondern ein einfacher Text.
wenn du damit Rechnen willst, hast du zwei möglichkeiten:
a) du lässt dir den Text als Formel berechnen. Innerhalb von VBA gibts dafür die Funktion EVALUATE
allerdings benötgit die dann wieder das amerikansische Zahlenformat: 
    Cells(i, 5).Value = Evaluate(Replace(Cells(i, 4).Value, ",", ".")) * Cells(i, 3).Value

b) du berechnest die Formeln nicht in VBA, sondern erstellst aus der Formel in D und der Zahl in C eine entsprechende Formel für die Excelzelle: 
    Cells(i, 5).FormulaLocal = "=" & Cells(i, 4).Value & "*" & Cells(i, 3).Value

Gruß Daniel
Anzeige
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 20:38:04
Daniel
Hi
naja was in Spalte D steht, ist jetzt keine Zahl, die du direkt in einer Berechnung verwenden kannst, sondern ein einfacher Text.
wenn du damit Rechnen willst, hast du zwei möglichkeiten:
a) du lässt dir den Text als Formel berechnen. Innerhalb von VBA gibts dafür die Funktion EVALUATE
allerdings benötgit die dann wieder das amerikansische Zahlenformat: 
    Cells(i, 5).Value = Evaluate(Replace(Cells(i, 4).Value, ",", ".")) * Cells(i, 3).Value

b) du berechnest die Formeln nicht in VBA, sondern erstellst aus der Formel in D und der Zahl in C eine entsprechende Formel für die Excelzelle: 
    Cells(i, 5).FormulaLocal = "=" & Cells(i, 4).Value & "*" & Cells(i, 3).Value

Gruß Daniel
Anzeige
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 20:38:05
Daniel
Hi
naja was in Spalte D steht, ist jetzt keine Zahl, die du direkt in einer Berechnung verwenden kannst, sondern ein einfacher Text.
wenn du damit Rechnen willst, hast du zwei möglichkeiten:
a) du lässt dir den Text als Formel berechnen. Innerhalb von VBA gibts dafür die Funktion EVALUATE
allerdings benötgit die dann wieder das amerikansische Zahlenformat: 
    Cells(i, 5).Value = Evaluate(Replace(Cells(i, 4).Value, ",", ".")) * Cells(i, 3).Value

b) du berechnest die Formeln nicht in VBA, sondern erstellst aus der Formel in D und der Zahl in C eine entsprechende Formel für die Excelzelle: 
    Cells(i, 5).FormulaLocal = "=" & Cells(i, 4).Value & "*" & Cells(i, 3).Value

Gruß Daniel
Anzeige
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 19:58:19
onur
NOCH EINMAL:
Du willst Spalte 3 mit Spalte 4 multiplizieren und das Ergebnis in Spalte 5 eintragen?
Spalte 3 enthält den Faktor und Spalte 4 einen Text!
Als Excel-Profi müsstest du wissen, dass man Text NICHT mit Zahlen (oder mit sonst was) MULTIPLIZIEREN kann.
AW: Schleife - Zwei Zellen multiplizieren
01.07.2019 22:50:53
Georg
Nabend,
der Trick bestand darin, dass ich für diverse Bereinigungen die Werte als Text ausgeben lasse und vor der Berechnung in Zahlen wandele.
Besten Dank für die Hilfe.
Anzeige
;

Forumthreads zu verwandten Themen

Ausgabe zweier Zellen mit SVERWEIS
Andreas

Hallo
Ich möchte mittels SVERWEIS Werte aus Spalte 2 oder wenn sich in dieser Spalte keine Werte befinden aus Spalte 3 ausgeben...
Kann mir da jemand weiterhelfen?
Gruß
Andreas
14.08.2008 11:46:00
Thread-ID: 1001793
4 Beiträge
Formatierung von zwei Spalten wenn...
zwei

Moin,
habe ein Prob:
habe eine Monatsübersicht, in den Spalten von F bis AJ die Montastage und darüber 1-31 stehen.
in den Zeilen stehen die Namen.
nun möchte ich, wenn ich "So" oder "Sa" schreibe, sich die farbe der Zelle ändert(wie das geht weiß ich;)). DieZeile darüber (das D...
11.09.2008 14:53:00
Thread-ID: 1009138
9 Beiträge
Anzeige
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
Tabellenname aus zwei Zellen
Christopher

Hallo Leute,
habe eine ganz leichte Aufgabe für euch. Und zwar möchte ich, dass der Tabellenname sich mittels meines Makros nicht nur aus I2 sondern auch aus M2 Zusammensetzt.
Also steht in I2 bspw. "Juli09" und in M2 "_K" hätte ich gerne als Tabellennamen "Juli09_K"
Sheets("Kraft (...
22.09.2009 18:10:20
Thread-ID: 1104716
3 Beiträge
Anzeige
Daten von zwei Spalten in einer
zwei

Hallo Gemeinde,
ich habe 14 Spalten ( A bis N), wobei immer die Daten der nebeneinanderliegenden Spalten zusammen gehören. (Also A und B, C und D etc.).
Auf einer anderen Tabelle sollen die Daten der oben genannten UNTEREINANDER (Spalte A:B) erscheinen.
Mit folgendem Code komm ich...
14.10.2009 22:49:48
Thread-ID: 1109642
8 Beiträge
Tabellenblattnahme aus zwei Zellen zusammensetzen
Peter

Hallo Experten,
lässt sich ein Tabellenblattnahme aus zwei bestimmten Zellen automatisch zusammensetzen?
Gruß Peter
20.07.2010 08:32:22
Thread-ID: 1167824
4 Beiträge
Wie füllt man mehrere Zellen gleichzeitig aus?
Thomas

Hallo Forum,
ich möchte gerne einen Stundenzettel entwerfen, wo bestimmte Informationen durch ein Dropdown-Menü ausgewählt werden sollen.
In meiner Datei findet ihr 2 Lösungsansätze.
In der Tabelle1 habe ich über Steuerelemente in Spalte E die Möglichkeit die nachfolgenden Spalten F...
19.12.2010 14:13:23
Thread-ID: 1192080
5 Beiträge
Anzeige
vergleich von duplikaten in zwei spalten
Uli


Hallo zusammen,um es kurz zu machen:Aus einer Exceltabelle muss ich Datensätze herausfinden, die doppelt oder gar mehrfach vorkommen in Abhängigkeit von Werten in einer anderen Spalte der Tabelle.Bsp:Buchungsnummer Betrag ...
1234567 10,00
987236 10,00We...
17.05.2002 21:31:40
Thread-ID: 121816
2 Beiträge
Aus zwei Zellen String (mit Datum) zusammensetzen
Peter

Guten Tag
Ich habe ein Format-Problem.
Ausgangslage:
Benannte Zelle dDat mit Inhalt 16.08.2010 (als serielle Zahl)
Benannte Zelle dNum mit Inhalt 995047 (als Zahl)
Gewünschter String:
16.08.10-995047
Formel: =TEXT(dDat;"TT.MM.JJ")&"-" ergibt: 16.06.10-
w...
17.06.2011 11:52:22
Thread-ID: 1218685
3 Beiträge
Anzeige
Ergebnis aus zwei Zellen komprimieren
Claudia

Hallo zusammen,
ich habe noch eine Frage.
Ich muss das Ergebnis aus zwei Zellen komprimieren - per Formel
Zelle C11 Zahl
Zelle A10 Zahl
Wenn C11 = 0 und A10 größer 0 dann soll in C8 der Hinweis "prüfen" rein.
Wenn C11 größer 0, dann soll in C8 Hinweis "Fehler"...
16.12.2011 18:09:38
Thread-ID: 1242510
7 Beiträge
Zellname aus Komb. zweier Zelleninhalte
Max

Hallo zusammen,
ich habe eine Datei (https://www.herber.de/bbs/user/79773.xls) in der der Zellenname jeder Zelle aus der Kombination zweier anderer Zelleninhalte zusammengebaut werden soll.
Also die Zelle B3 bekommt den Namen aus B2 und A3 = MA11
Zelle B4 bekommt den Namen aus B2 un...
12.04.2012 13:16:51
Thread-ID: 1258950
6 Beiträge
Ausgabe zweier bestimmter Zellen per Formel
Christian

Hallo alle zusammen,
es wird leider ein wenig komplizierter als der Betreff es sagt aber ich wäre trotzdem für jede Hilfe dankbar.
Ich hänge eine Tabelle an, die mir die günstigste Tankstelle im Umkreis von 10 km Luftlinie ausgibt, unter Berücksichtigung von Entfernungen von Tankstellen...
06.03.2013 17:05:42
Thread-ID: 1302572
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zwei Zellen multiplizieren in Excel mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Datei: Stelle sicher, dass die Daten in den Zellen korrekt eingegeben sind. Du solltest zwei Spalten haben, die multipliziert werden sollen.

  2. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (deineDatei.xlsx)" > Einfügen > Modul.

  4. Gib den folgenden Code ein:

    Sub MultipliziereZellen()
   Dim i As Integer
   For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
       Cells(i, 5).Value = Cells(i, 3).Value * Cells(i, 4).Value
   Next i
End Sub

  5. Führe das Makro aus: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle "MultipliziereZellen" und klicke auf "Ausführen".

  6. Überprüfe die Ergebnisse: Die Ergebnisse sollten in Spalte 5 erscheinen. Achte darauf, dass die Zellen in Spalte 3 und 4 numerische Werte enthalten, um Laufzeitfehler zu vermeiden.

Häufige Fehler und Lösungen

  • Laufzeitfehler '13': Typen unverträglich: Dieser Fehler tritt auf, wenn eine der Zellen Text anstelle einer Zahl enthält. Stelle sicher, dass in Spalte 3 und 4 nur numerische Werte stehen.

  • Formel nicht korrekt berechnet: Verwende Cells(i, 5).FormulaLocal anstelle von .Value, wenn du eine Formel in die Zelle einfügen möchtest. Zum Beispiel: 

    Cells(i, 5).FormulaLocal = "=" & Cells(i, 3).Address & "*" & Cells(i, 4).Address

  • Falsches Zahlenformat: Wenn du mit Kommazahlen arbeitest, achte darauf, das richtige lokale Zahlenformat zu verwenden.

Alternative Methoden

  • Formelansatz: Anstatt VBA zu verwenden, kannst du auch eine Excel-Formel direkt in die Zelle eingeben: 

    =C1*D1

    Kopiere diese Formel nach unten, um mehrere Zellen zu multiplizieren.

  • Array-Formel: Für eine schnelle Berechnung ohne VBA kannst du auch eine Array-Formel verwenden. Markiere die Zellen und gib folgendes ein:

    =C1:C10*D1:D10

    Drücke CTRL + SHIFT + ENTER, um die Formel zu aktivieren.

Praktische Beispiele

  • Beispiel 1: Multipliziere zwei Spalten, um einen Gesamtwert zu berechnen. Angenommen, Spalte C enthält die Preise und Spalte D die Mengen. In Spalte E soll das Produkt stehen:

    Cells(i, 5).Value = Cells(i, 3).Value * Cells(i, 4).Value

  • Beispiel 2: Wenn du mehrere Zellen mit einem konstanten Wert multiplizieren möchtest, kannst du den Wert in einer Zelle speichern und dann in der Schleife verwenden:

    Dim faktor As Double
faktor = 10
Cells(i, 5).Value = Cells(i, 3).Value * faktor

Tipps für Profis

  • Verwende Evaluate für komplexe Berechnungen: Wenn du Textformeln hast, die berechnet werden müssen, kannst du Evaluate verwenden:

    Cells(i, 5).Value = Evaluate(Replace(Cells(i, 4).Value, ",", ".")) * Cells(i, 3).Value

  • Nutze Named Ranges: Wenn du oft mit denselben Zellbereichen arbeitest, erstelle benannte Bereiche für eine bessere Lesbarkeit in deinem Code.

  • Teste in kleinen Schritten: Beginne mit einer kleinen Datenmenge, um sicherzustellen, dass dein Code wie gewünscht funktioniert, bevor du ihn auf große Datenmengen anwendest.

FAQ: Häufige Fragen

1. Wie multipliziere ich mehrere Zellen gleichzeitig?
Du kannst eine Schleife verwenden, um mehrere Zellen zeilenweise zu multiplizieren, oder eine Array-Formel, um dies in einem Schritt zu erledigen.

2. Was tun, wenn ich mit Text und Zahlen arbeite?
Stelle sicher, dass du nur mit numerischen Werten rechnest. Wenn du Text hast, der in Zahlen umgewandelt werden muss, kannst du Val() oder Evaluate verwenden.

3. Kann ich VBA verwenden, um mehrere Spalten zu multiplizieren?
Ja, du kannst die Schleife so anpassen, dass sie mehrere Spalten gleichzeitig behandelt, indem du die entsprechenden Zellreferenzen im Code änderst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige