Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro breingt Laufzeitfehler

Forumthread: Makro breingt Laufzeitfehler

Makro breingt Laufzeitfehler
09.03.2021 14:33:06
Robert
Hallo liebe Exeler!
Habe eine Frage wo ich Eure Hilfe benötige.
Bei dem Code wird mir die Formel nicht geschrieben, sondern es kommt Laufzeitfehler 1004. Was muss ich anders machen. Wenn ich schreibe =1 oder ähnliches geht es.
Sub AG()
With Sheets("Versand Januar")
Range("E5").Formula = "=WENN(E3="";0;WENN(E3=0;0;WENN(E3>0;E3;0)))"
End With
End Sub
Für Eure Mühe danke im voraus.
LG Robert

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro breingt Laufzeitfehler
09.03.2021 14:47:41
Piet
Hallo Robert
Hinweis zu Formeln mit ""; - weil Excel bei VBA die Formel in Anführungszeichen verlangt kann es "" Zeichen innerhalb der Formel nicht verstehen!! Dann must du es vierfach angeben: """" - gilt nur in der Formel!
Range("E5").Formula = "'=WENN(<b>E3=""""</b>;0;WENN(E3=0;0;WENN(E3>0;E3;0)))"
mfg Piet

Anzeige
AW: Makro breingt Laufzeitfehler
09.03.2021 14:48:10
RPP63
Moin!
Wenn Du eine deutsche Formel eintragen willst, musst Du .FormulaLocal nutzen.
Außerdem müssen die "" innerhalb der Formel gedoppelt werden.
Warum willst Du eigentlich eine Formel in immer die gleiche Zelle des immer gleichen Blatts schreiben?
Gruß Ralf

AW: Makro breingt Laufzeitfehler
09.03.2021 14:50:12
Daniel
Hi
zwei Punkte:
.Formula : die Formel muss in Englisch mit A1-Zellbezügen geschrieben sein
.FormulaLocal: die Formel muss landestypisch mit A1-Zellbezügen geschrieben sein.
englisch: englische funktionsnamen, Komma als Parametertrennzeichen, Punkt als Dezimalzeichen
in allen Varianten gilt: Anführungszeichen, die zum Formel gehören, müssen immer verdoppelt werden.
daran unterscheidet sie der Interpreter von den Anführungszeichen, die Formel im Code begrenzen.
Gruß Daniel

Anzeige
und ein Punkt vor Range wegen With-Schleife - owT
09.03.2021 14:59:56
MatthiasG
Gruß Matthias

AW: "With-Schleife" - autsch, sorry - owT
09.03.2021 15:26:09
MatthiasG
.

eigentlich reich ja ...
09.03.2021 15:21:07
Rudi
Hallo,
=Max(E3;0) 
Sub AG()
With Sheets("Versand Januar")
.Range("E5").FormulaLocal = "=Max(E3;0)"
End With
End Sub

Gruß
Rudi

Anzeige
AW: naja
09.03.2021 16:10:58
GerdL
Moin 
Worksheets("Versand Januar").Range("E5").FormulaLocal = "=MIN(E3;0)"

Gruß Gerd

AW: naja
09.03.2021 16:59:08
Robert
Hallo Ihr lieben Exeler!
Danke für Ihr Hinweise und Vorschläge. Habe es jetzt in der Wenn Variante so das es funktioniert.
Nochmals vielen Dank für Eure Hilfe.
LG Robert
Anzeige
;

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