Laufzeitfehler 1004 oder objekt erforderlich ?!

Computer: Software & Programmierung Office Software
1

Hallo an alle!

ich habe das folgende Problem:

ich bekomme immer eine der Folgenden Fehlermeldungen:

1- Laufzeitfehler 1004
2- Objekt erforderlich

hier der code:

Sub VA98_aufrufen()
Dim dateiname As String

dateiname = ActiveWorkbook.name

If DateiGeoeffnet(„Module2.xlsm“) = False Then
Workbooks.Open („W:\M\Module2.xlsm“), False, True
End If

Application.Run „Module2.xlsm!testroboter“, dateiname,
ActiveWorkbook.Path

End Sub

woran liegen diese Fehler?

Vielen Dank im Voraus!

2

Hallo an alle!

Hallo Oliver,

ich habe das folgende Problem:

ich bekomme immer eine der Folgenden Fehlermeldungen:

1- Laufzeitfehler 1004
2- Objekt erforderlich

Ich vermute mal, es geht um Excel VBA. Welche Version?

hier der code:

In welcher Codezeile treten die Fehler auf? Lass den Code mal im VBA Editor zeilenweise mit F8 laufen. Dann findest du das raus.

Sub VA98_aufrufen()
Dim dateiname As String

dateiname = ActiveWorkbook.name

If DateiGeoeffnet(„Module2.xlsm“) = False Then
Workbooks.Open („W:\M\Module2.xlsm“), False, True

Bist du sicher, dass das in deinem Code so steht? Die Klammern gehören da nicht hin.

End If

Application.Run „Module2.xlsm!testroboter“, dateiname,

Hier müsste eigentlich ein Sytaxfehler aufgetaucht sein, denn hier fehlt am Ende der Zeile ein Unterstrich?

ActiveWorkbook.Path

End Sub

woran liegen diese Fehler?

Vielen Dank im Voraus!

Ich glaube, du hast deinen Code hier eingetippt. Kopiere ihn mal hier rein, wie er wirklich ist. Dann kann man dir eher helfen.

Gruß, Andreas

3

Hallo Andreas,

hier der Code nochmal kopiert:

Sub VA98_aufrufen()
Dim dateiname As String

dateiname = ActiveWorkbook.name

If DateiGeoeffnet(„Module2.xlsm“) = False Then
Workbooks.Open („W:M\Module2.xlsm“), False, True
End If

Application.Run „Module2.xlsm!testroboter“, dateiname, ActiveWorkbook.Path

End Sub

4

Hallo Oliver,

noch mal meine Nachfrage:
In welcher Codezeile treten die Fehler auf? Lass den Code mal im VBA Editor zeilenweise mit F8 laufen. Dann findest du das raus.

Gruß, Andreas

5

Hallo Oliver,

hier der Code nochmal kopiert:

na, klappt ja schon mal grundsätzlich. Noch min. 2-3 Beiträge von dir und wir kennen alle deine Antworten auf alle Nachfragen von Andreas.

Je nachdem ob wichtig sogar auch noch den Code der Funktion DateiGeoeffnet().

Gruß
Reinhard