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.Open sTabName         '<-------Hier gibts die Fehlermeldung 
    ' siehe
    myExl.ActiveWorkbook.Sheets("Tabelle1").Select  '                           
    '                         unten 
 
 
      myExl.Range("A1").Value = Text1.Text
 
      myExl.Visible = True
 
 
 
 
End Sub
 
 
 
Private Sub cmd_ende_Click()
 
 Unload Me
 
End Sub