Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2004to2008
2004to2008
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA: speichern einer Formel führt zu Laufzeitfehler 1004

Forumthread: VBA: speichern einer Formel führt zu Laufzeitfehler 1004

VBA: speichern einer Formel führt zu Laufzeitfehler 1004
25.02.2025 11:47:26
FreeDee
Gute Morgen allerseits!
Ich will mittels VBA-Script folgende Formel in eine Excel-Zelle schreiben: 
=RUNDEN(daten!AV2*1,2;WENN(ZAHLENWERT(daten!AV2)1;4;2))

Die VBA-Zeile sieht so aus: 
Sheets("Katalog_Verkaufspreis").Range("E" & iNaechsteFreie).Value ="=RUNDEN(daten!AV2*1,2;WENN(ZAHLENWERT(daten!AV2)1;4;2))"

Diese Codezeile führt immer zum Laufzeitfehler 1004
Gebe ich die Zeile von Hand ein, nimmt Excel sie an.

Was mache ich falsch?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: speichern einer Formel führt zu Laufzeitfehler 1004
25.02.2025 11:54:29
Sigi.21
Hallo,

bei Formel einfügen ...

nicht "xxxxxx.value =" sondern ...
"xxxxxx.Formula =" aber dann englisch weiter (VBA spricht englisch) oder ...
"xxxxxx.FormulaLocal = " dann deutsch

Gruß Sigi
AW: VBA: speichern einer Formel führt zu Laufzeitfehler 1004
25.02.2025 11:57:11
UweD
Hallo


nicht .value sondern .FormulaLocal (local, weil die die Formeln in deutsch reinschreibst)


LG UweD
Anzeige
Probiere es mal...
25.02.2025 12:09:32
Case
Moin, :-)

... so: ;-) 
Sheets("Katalog_Verkaufspreis").Range("E" & iNaechsteFreie).FormulaLocal = "=RUNDEN(daten!AV2*1,2;WENN(ZAHLENWERT(daten!AV2)1;4;2))"

Sheets("Katalog_Verkaufspreis").Range("E" & iNaechsteFreie + 1).Formula = "=ROUND(daten!AV2*1.2,IF(NUMBERVALUE(daten!AV2)1,4,2))"

Sheets("Katalog_Verkaufspreis").Range("E" & iNaechsteFreie + 2).Formula = "=ROUND(daten!AV2*1.2,IF(daten!AV2*11,4,2))"

Sheets("Katalog_Verkaufspreis").Range("E" & iNaechsteFreie + 3).FormulaLocal = "=RUNDEN(daten!AV2*1,2;WENN(daten!AV2*11;4;2))"

Servus
Case
Anzeige

Forumthreads zu verwandten Themen

Zwischenergebnisse, Startzeilen, -spalten variabel
Dip

Guten Tag Allerseits,
Gerne würde ich eine Problemstellung im Forum einbringen, in der Hoffnung, jemand kennt die Lösung :-)
Im angehängten Excel File sieht man zwei Projekte.
Die von Hand eingegebenen Werte auf Stufe "Task" sollen auf Stufe "AP" summiert werden. Wiederum sollen dan...
29.10.2013 11:47:36
Thread-ID: 1336297
2 Beiträge
objektbezogener Fehler
Olof

Hi,
auch dieses Anliegen war schon im Archiv verschwunden und ich konnte nicht mehr darauf antworten.
Deshalb unten angefügt die Originalbeiträge.
@Harry: Dein Vorschlag ist gut, allerdings möchte ich nicht die Funktionalität in tabelle 2 herstellen, sondern in der jeweils markiert...
14.08.2007 12:21:01
Thread-ID: 896574
5 Beiträge
Hochkommas in .Formula einfügen
Thomas

Hallo Community,
bisher war ich begeisterter Mitleser dieses Forums und das alleine hat mir schon auf meinen ersten Schritten in die VBA-Welt sehr weitergeholfen. Vielen Dank dafür!
Doch leider stecke ich momentan bei einem Problem fest, welches ich auch über die Suchfunktion nicht löse...
20.10.2019 17:25:46
Thread-ID: 1718673
3 Beiträge
Index und Vergleich in VBA
Annette

Hallo,
ich möchte Daten aus einer geschlossenen Datei kopieren.
Als Formel benutzte ich
„=INDEX('C:\Users\admin\Desktop\Arbeit\[Quelldatei.xlsx]Blatt!$1:$1048576;VERGLEICH(A6531;'C:\Users\admin\Desktop\Arbeit\[Quelldatei.xlsx]Blatt'!$E:$E;0);16)“
Die Tabellen (Blatt) aus dem di...
15.11.2015 13:53:53
Thread-ID: 1458472
1 Beitrag
Anzeige
Kopieren,Einfügen
Jusuf

Hallo zusammen,
In der Zelle C4 möchte ich etwas einfügen aus Bereich AO4:BC4 nur dann wenn in der Zelle S4 und der Zelle T4 ein kleines x steht.
Das gleiche in C5, wenn S5 und T5 ein kleines x steht, aus AO5:BC5, dann … .
Bereich AO4:BC4 nach unten ist ausgefühlt ohne Unterbrechun...
16.04.2012 21:54:53
Thread-ID: 1259564
8 Beiträge
In Zelle per VBA das Formel ="" schreiben
Martin

Hallo,
ich habe eine relativ ungewöhnliche Frage:
Schreibe ich in eine Zelle die Formel ="", so wird der Inhalt der (quasi leeren) Zelle von Excel als Text interpretiert.
Kopiere ich die Zelle und ersetze die Formel durch "Werte einfügen" durch ihr Ergebnis, wird die Zelle weiterhi...
11.04.2012 16:22:43
Thread-ID: 1258782
2 Beiträge
lokale MAX Werte mit VBA bestimmen und in A.-Blatt schreiben
Dominik
https://www.herber.de/bbs/user/175598.xlsx

Hallo liebe Excel Experten,

mit einer entsprechenden Funktion ist es leicht, lokale Maxima aus einer Tabelle auszulesen.
In meinem Fall will ich die Werte bestimmen, die im Diagramm größer 2 auf der Y-Achse und größer 100 auf der X-Ach...
10.02.2025 17:41:42
Thread-ID: 2005341
9 Beiträge
Anzeige
Formel verschiedene Prüfungen
Tobi@s

Hallo ihr Lieben,
ich habe wieder mal ein (diesmal dienstliches) Problem:
Es existiert eine Tabelle, in der - wie in einem "Großen Kalender" Daten für 4 Monate nebeneinander stehen (Beginn: Zeile 14, Spalten B - E), dann stehen die nächsten 4 Monate ein paar Zeilen tiefer (12 Zeilen tie...
02.05.2019 19:05:00
Thread-ID: 1690430
17 Beiträge
VBA - Funktion in Zelle schreiben
J.

Hallo Forumsteilnehmer,
zunächst ein großes Lob für die super Excel-Hilfeseite. Ich bin m.E. grundsätzlich relativ fit in Excel, jedoch noch Einsteiger in VBA-Programmierung und konnte mir über die Recherche auf dieser Seite schon einige Arbeit durch Makros ersparen, die ich bisher durch "m...
20.02.2016 16:20:52
Thread-ID: 1476890
4 Beiträge
Über VBA Wenn-Formel in Tabelle schreiben
Chris
Hallo Experten,
ich habe mal wieder ein Problem. Ich möchte über VBA eine Wenn-Formel in eine Bestimmte Zelle einfügen.
Die Zeile, sowie die Zeilenbezüge hole ich aus der VBA-Routine. Die Spalte ist immer gleich.
Cells(ElektroKonstruktion - 1, 6) = "=wenn" & "(" & "D" & ElektroKonstruk...
27.04.2007 12:04:17
Thread-ID: 865667
13 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum