Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        Dim varExcel As String
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Open( _
          "Q:\GRP-0158\Eilteam\Hardware-Prozess\2008_Angebot-Auftrag.xlsm")
        oSheet = oBook.Worksheets("BLAS 2009")
        'varExcel = oSheet.Cells(80, 6).Text ' Oder TextBox1.Text = 
        'TextBox56.Text = oSheet.Range("A20").Text
 
        'Speichert das Workbook
        'oBook.SaveAs("C:\Test.xls")
        'oExcel.Quit()
 
 
 
        'Suche
        varExcel = oBook.Worksheets("BLAS 2009").UsedRange.Find(what:=x, _
          LookAt:=oBook.xlWhole)
        'If Not varExcel Is Nothing Then
        'If Not Target.Comment Is Nothing Then
        'Target.Comment.Delete()
        'End If
        'Target.AddComment(Zelle.Offset(0, -1).Text & vbNewLine & Zelle.Offset( 
        ' 0, 1).Text)
        'Else
        'MsgBox("Suche in Handyliste: Keine Übereinstimmung für " & 
        ' Target.Value & "!", 48)
        'End If
 
 
 
        oExcel.Quit()