'Variablen für Excel
        Dim xlsApp As Excel.Application
        Dim xlsMappe As Excel.Workbook
        Dim xlsBlatt As Excel.Worksheet
        Dim xlsZelle As Excel.Range
        Dim AnzZeilen As Integer
 
        'Variablen für Excel werden zugewiesen
        Try
            xlsApp = New Excel.Application
            xlsApp.Visible = False
            xlsMappe = xlsApp.Workbooks.Open(DataSource)
            xlsBlatt = xlsMappe.Worksheets(1)
            xlsZelle = xlsBlatt.Range("A1")
            AnzZeilen = xlsZelle.CurrentRegion.Rows.Count
        Catch ex As Exception
             messagebox.show(ex.Message)
        End Try