Laufzeitfehler 1004
23.07.2024 12:59:32
Bimsbrohm
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