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!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Laufzeitfehler 1004

23.07.2024 13:03:22

Onur
AW: Laufzeitfehler 1004

23.07.2024 13:12:41

GerdL
AW: Laufzeitfehler 1004

23.07.2024 13:50:34

Bimsbrohm

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

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...

Beliebteste Forumthreads (12 Monate)

Forumthread: Laufzeitfehler 1004

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

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread