Public Class Form1
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
 
        '######################################################################
        ' ############################
 
 
 
        'EXCEL-Zugriff wegen Mail FB
 
        Dim oExcel As Object
 
        Dim oBook As Object
 
        Dim oSheet As Object
 
        Dim varExcel1 As String
 
        Dim varExcel2 As String
 
 
 
        Dim varUsername As String
 
 
 
        Dim oRange1 As Object
 
        Dim oRange2 As Object
 
 
 
        oExcel = CreateObject("Excel.Application")
 
        oBook = oExcel.Workbooks.Open("C:\test.xls")
 
 
 
 
 
        '######################################################################
        ' ##################################################
 
        'Tabellenblätter auswählen über UserName
 
        If My.User.Name = "jBLAS\tereza&blas" Then      'BLAS
 
            varUsername = "BLAS 2009"
 
        ElseIf My.User.Name = "BLAS\tereza&blas" Then   'GRAM
 
            varUsername = "GRAM 2009"
 
        ElseIf My.User.Name = "BLAS\tereza&blas" Then   'GAKO
 
            varUsername = "GAKO 2009"
 
        ElseIf My.User.Name = "BLAS\tereza&blas" Then   'ETN
 
            varUsername = "ETN 2009"
 
        ElseIf My.User.Name = "BLAS\tereza&blas" Then   'TIOS
 
            varUsername = "TIOS 2009"
 
 
 
 
 
 
 
            oSheet = oBook.Worksheets(varUsername)
 
            'varExcel = oSheet.Cells(80, 6).Text ' Oder TextBox1.Text =
 
            'varExcel = oSheet.Range("A20").Value
 
            'varExcel = oSheet.UsedRange.Find(what:=TextBox2.Text, 
            ' LookAt:=oSheet.xlValues)
 
 
 
            oRange1 = oSheet.Range("A:A").Find(what:=TextBox1.Text, LookAt:=1, _
              MatchCase:=False)
 
            oRange2 = oSheet.Range("B:B").Find(what:=TextBox2.Text, LookAt:=1, _
              MatchCase:=False)
 
 
 
            If Not oRange1 Is Nothing Then
 
 
 
                If Not oRange2 Is Nothing Then
 
 
 
                    varExcel1 = oRange2.Offset(0, 1).Value
 
                    varExcel2 = oRange2.Offset(0, 4).Value
 
                    TextBox3.Text = varExcel1
 
                    TextBox4.Text = varExcel2
 
                    TextBox5.Text = My.User.Name
 
 
 
                End If
 
            End If
 
        End If
 
 
 
        oExcel.Quit()
 
 
 
    End Sub
 
 
 
End Class