Hallo ich möchte per button eine Excel datei öffnen was soweit auch fuktioniert das Problem ist das ich nach öffnen der Datei den Focus in dieses Fenster setzten möchte um dieses in den Vordergrund
zu bekommen

'Excel starten
Dim appExcel, wbExcel, wsExcel
Dim Verzeichnis, Datei
Verzeichnis = "C:\test\"
Datei = "sochn.xlsx"
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(Verzeichnis + Datei)
Set wsExcel = wbExcel.Worksheets("Tabelle1")
appExcel.Application.Visible = True