Hallo <strong style="color: rgb(0, 0, 0); font-family: Arial, Helvetica, sans-serif;">Gast54825,
</strong>vielen Dank. Ich habe Deinen Code in eine separate VBS-Datei geschrieben. Ich habe die Datei AutoMonitoring geöffnet und
rufe die VBS-Datei auf. Es erscheint dann immer ein Fehler in der Zeile in der das Makro aufgerufen wird.
Die Datei AutoMonitoring und die VBS-Datei liegen im gleichen Verzeichnis. Da der Pfad ein Leerzeichen beinhaltet habe ich gedacht,
alles müßte in Anführungszeichen. Da das Makro "Datein_prüfen" in Module1 liegt, habe ich versucht auch dies zu berücksichtigen.
Hast Du noch eine Idee?
Option Explicit
Call My_Test
Private Sub My_Test()
Dim xlApp, xlBook
Set xlApp = GetObject(,"Excel.Application")
Set xlBook = xlApp.ActiveWorkbook
Call xlApp.Run (xlBook.Name&"!Dateien_prüfen")
Set xlBook = Nothing
Set xlApp = Nothing
End Sub