Dim objExcel as Object    
    On Error GoTo gingNicht        
        Set objExcel = GetObject(, "Excel.Application")    
    gingNicht:        
    If Err.Number = 429 Then
            Set objExcel = CreateObject("Excel.Application")
    End If