Public Sub Excel_schliessen()
        Dim bMonProcessXL As Boolean
        oSheet = Nothing
        'oWB.SaveAs("C:\Speiseplan_druck.xls")
        oWB.Close(True) ' Arbeitsmappe schließen - der Parameter FALSE gibt an, 
        ' das die Arbeitsmappe nicht gespeichert werden soll
        oWB = Nothing
        oXL.Quit()       ' Excel beenden
        oXL = Nothing
        GC.Collect()
        GC.WaitForPendingFinalizers()
        GC.Collect()
        GC.WaitForPendingFinalizers()
 
        For j As Integer = 0 To process2.GetUpperBound(0)
            If process2(j).ProcessName = "EXCEL" Then
                bMonProcessXL = True
                For i As Integer = 0 To process1.GetUpperBound(0)
                    If process1(i).ProcessName = "EXCEL" Then
                        If process2(j).Id = process1(i).Id Then
                            bMonProcessXL = False
                            Exit For
                        End If
                    End If
                Next i
 
                If bMonProcessXL = True Then
                    'Jetzt, wo ich die genaue ID habe, kann ich sie töten. 
                    ' excellAppl.Hinstance  
                    'funktioniert nicht mit Excel 2000, während diese Methode 
                    ' immer geht!
                    procId = process2(j).Id
                    Process.GetProcessById(procId).Kill()
                    Exit For
                End If
            End If
        Next j
 
    End Sub