Hallo zusammen,

ich möchte aus mit einem Word-Makro ein Excel-Makro aufrufen. Leider klappt dies nicht so, wie ich gedacht hatte. Wenn das folgende Makro in Excel enthalten ist funktioniert es. Ich brauche es jedoch in Word. Habt Ihr eine Idee, was ich in Word dafür verändern muss?

Vielen Dank

Tanja

Option Explicit

Public Sub Workbook_Open()

Workbooks.Open "D:\Monitoring.xlsm"
Dim Beginn As Date
Dim Pause As Date
Dim Ende As Date
Beginn = Timer
Pause = 3
Do Until Timer > Beginn + Pause
DoEvents
Loop
Ende = Timer
Application.Run "'" & "Monitoring.xlsm" & "'!Dateien_prüfen"
End Sub