Private myExl As New Excel.Application
 
 
 
Private Sub cmd_snd_Click()
 
Text1.Text = "12345"
 
Call OpenmyExcel(sTabName)
 
 
End Sub
 
Private Sub OpenmyExcel(ByVal sTabName As String)
 
    'myExl.Workbooks.Add
 
    myExl.Workbooks.Open sTabName
    sTabName = ("C:\Eigene Dateien\TL\Beispiel_Programme\ListExcel\neu.xls")
 
    myExl.ActiveWorkbook.Sheets("Tabelle1").Select
 
 
      myExl.Range("A1").Value = Text1.Text
 
      myExl.Visible = True
 
 
 
 
End Sub