Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Laufzeitfehler 1004

Forumthread: Laufzeitfehler 1004

Laufzeitfehler 1004
23.07.2024 12:59:32
Bimsbrohm
Hallo in die Runde,

ich bekomme einen Laufzeitfehler 1004, der sich scheinbar auf diese Codezeile bezieht: ws.Range("A1").formula = formula.

Hier das ganze VBA-Skript:


Sub ReplaceFormulasInSpecificSheets()

Dim ws As Worksheet
Dim formula As String

formula = "=WENN(Results!A25>0;BET_Intraday(TEXTKETTE(Results!$B$5; ""|"";TEXT(GANZZAHL(Results!$H25);""JJJJMMTT"");""|"";TEXT(Results!$O25;""#.00"");Results!$N25);""Close"";GANZZAHL(Results!$B25);GANZZAHL(Results!$C25);5);""No Data"")"

For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Bar1", "Bar2", "Bar3"

ws.Range("A1").Formula = formula
End Select
Next ws
Exit Sub
End Sub


Ich hoffe, ihr könnt mir bei der Fehlersuche helfen. Vielen Dank!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 1004
23.07.2024 13:03:22
Onur
"Formula" bei engl. Formeln und "FormulaLocal" bei deutscher Formel.
Also entweder
.....Formula= "=IF......"


oder

.....FormulaLocal= "WENN......"
AW: Laufzeitfehler 1004
23.07.2024 13:12:41
GerdL
Moin,
bei deutschen Formeln in der VBA-Syntax ist Trennzeichen das Semikolon und Anführungszeichen sind zu verdoppeln.
Sub Beispiel()


Dim ws As Worksheet
Dim strformula As String

'formula = "=WENN(Results!A25>0;BET_Intraday(TEXTKETTE(Results!$B$5; ""|"";TEXT(GANZZAHL(Results!$H25);""JJJJMMTT"");""|"";TEXT(Results!$O25;""#.00"");Results!$N25);""Close"";GANZZAHL(Results!$B25);GANZZAHL(Results!$C25);5);""No Data"")"
strformula = "=WENN(A2="""";"""";5)"
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Bar1", "Bar2", "Bar3"

ws.Range("A1").FormulaLocal = strformula
End Select
Next ws

End Sub

Gruß Gerd
Anzeige
AW: Laufzeitfehler 1004
23.07.2024 13:50:34
Bimsbrohm
Danke euch beiden!

Onurs Tipp hat geholfen. Ich habe "Formula" zunächst ersetzt durch "FormulaLocal". Damit war der Laufzeitfehler weg und die Zellen wurden angepasst. Leider stand dann nach dem "=" plötzlich ein Klammeraffe. Eine kleine Suche hier im Forum hat mich darauf gebracht, es mit "Formula2Local" zu versuchen - nun sind auch die Klammeraffen weg und es scheint alles zu funktionieren...
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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