Private Sub SaveSettings()
        Try
            Dim SW As New IO.StreamWriter("Settings.txt")
            SW.WriteLine(ExcelMap)
            SW.WriteLine()
 
            Dim i As Integer = 0
 
            While i < Position.Length
                SW.WriteLine(Position(i).ToString)
                i += 1
            End While
            SW.Flush()
            SW.Close()
        Catch ex As Exception
        End Try
 
    End Sub
    Private Sub LoadSettings()
        Try
            Dim SR As New IO.StreamReader("Settings.txt")
            ExcelMap = SR.ReadLine
            SR.ReadLine()
 
 
            Dim i As Integer = 0
            While i < Position.Length
                Position(i) = CInt(SR.ReadLine)
                i += 1
            End While
 
 
            SR.Close()
 
        Catch ex As Exception
        End Try
 
 
    End Sub
    Private Sub PreSave()
        Excel1.DisplayAlerts = False
        Excel1.ActiveWorkbook.Save()
        Excel1.DisplayAlerts = True
    End Sub
    Private Sub PreSaveReopen()
        Excel1.Visible = False
        Excel1.DisplayAlerts = False
        Excel1.ActiveWorkbook.Save()
        Excel1.DisplayAlerts = True
        Excel1.ActiveWorkbook.Close()
        Excel1.Workbooks.Close()
        Excel1.Quit()
        killExcelInstanceById(Excel1)
        Excel1 = New Excel.Application
        Excel1.Workbooks.Open(ExcelMap) 'Öffnen der ExcelMappe
    End Sub
 
    Private Shared Sub killExcelInstanceById(ByRef xlsApp As Excel.Application)
 
 
        Dim processId As IntPtr
 
        ''API Funktion, out val: processId
        GetWindowThreadProcessId(xlsApp.Hwnd, processId)
 
        ''Prozess erstellen
        Dim excelProcess As Process = Process.GetProcessById(processId.ToInt32( _
          ))
 
        Debug.WriteLine(processId)
 
        ''die lang ersehnte Erlösung, für den speziellen Excel Process der _
          XlsApp :)
        excelProcess.Kill()
    End Sub