#Region "lesen von excel"
 
    Public Sub lesenExcelTabelle()
        Dim i As Integer
        Dim neuLabel As Label
        Dim textLabel As String
        xlApp = New Excel.Application
        xlApp.Visible = False
        xlMappe = xlApp.Workbooks.Open("C:\Data\Statistik1.xls")
        xlBlatt = xlMappe.Worksheets(1)
        xlZelle = xlBlatt.Range("A1")
 
        For intZeilen = 0 To xlZelle.CurrentRegion.Rows.Count
            textLabel = xlZelle.Offset(intZeilen, 2).Value
            neuLabel = New Label
            With neuLabel
                .Text = textLabel
                .Visible = True
                .Parent = Me.Panel1
                .Location = New Point(104, 96)
                '.Dock = DockStyle.Top
            End With
            Me.Controls.Add(neuLabel)
        Next intZeilen
    End Sub
#End Region