Hallo zusammen
Vielleicht kann mir jemand helfen, im vorab schon Danke für eure Zeit
Mit nachfolgendem Code wird eine Userform geöffnet - funktioniert
Beim schliessen der UF kommt aber eine Fehlermeldung (Windows script)
Zeile 10 (objExcel.Run "VBS")
Fehler Unbekannter Laufzeitfehler
Code 800A9C68
Dim objExcel
Dim objWshShell
Set objExcel = WScript.CreateObject("Excel.Application")
Set objWshShell = CreateObject("WScript.Shell")
objExcel.Visible = FALSE
'Excel Datei öffnen
objExcel.WorkBooks.Open "C:\Test\Adressen\Adressen.xlsm"
'User form öffnen
objExcel.Run "VBS"
WScript.Quit
In der UF ist nachfolgender Code hinterlegt
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveWorkbook.Close SaveChanges:=False
Application.Quit