Hallo,

ich brauch Eure Hilfe. Der Code stopt immer an der Stelle objAccApp.Run "Makro1" als ob er den Makro nicht findet.

Habt Ihr vielleicht eine Idee.

Option Explicit

Public Sub Access_Macro_Starten()
Dim objAccApp As Object
Dim strMDBDatei As String

strMDBDatei = "E:\Test.mdb"

If Dir(strMDBDatei) = "" Then
MsgBox "Access-Datenbank wurde nicht gefunden!"
Else
Set objAccApp = CreateObject("Access.Application")
objAccApp.OpenCurrentDatabase strMDBDatei
objAccApp.Run "Makro1"
objAccApp.CloseCurrentDatabase
Set objAccApp = Nothing
End If

End Sub


Danke für Eure Mühe!!!

Gruß

Elhamplo