Dim xlAppl As Excel.Application 'Variabel xlAppl deklarieren
On Error GoTo errorMsgExcel 'Wenn Excel nicht bereits ausgeführt wird, Excel 
' starten:
    If xlAppl Is Nothing Then _
        Set xlAppl = New Excel.Application
            On Error GoTo 0
 
    With xlAppl
        .Application.Visible = False 'Excel unsichtbar machen
 
        .Workbooks.Open App.Path & "\Overview_Cash.xlt"
 
        .Worksheets("Übersicht").Cells(1, 13).Value = App.Path & "\"
        .Worksheets("Übersicht").Cells(1, 14).Value = CCur( _
          frmOptions.TextPrice11.Text)
        .Worksheets("Übersicht").Cells(1, 15).Value = CCur( _
        frmOptions.TextPrice90.Text)
        .Application.Visible = True 'Excel sichtbar machen fuer Seitenvorschau
        .Application.Run "CreateSheet" 'Makro in Excel ausfuehren
    End With

Gruss Michael