Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
        Excel1.Workbooks.Open("C:\Users\Beat\Documents\Mappe1.xls")
        Excel1.Visible = True
        'Label2.Text = Excel1.Range("C1").Value
        'abc = Excel1.Range("A2").
        'deine Operationen (z.B. Excel1.Range("A2").Select()
        'TextBox1.Text = Excel1.Range("A2").Value
        ListBox1.Items.Add(Excel1.Range("A1").Value)
 
 
        Excel1.ActiveWorkbook.Close()
        Excel1.Workbooks.Close()
        Excel1.Visible = False
 
 
 
 
    End Sub