Private myExl As New Excel.Application
 
 
 
Private Sub cmd_open_Click()
Dim fname As String
CommonDialog1.DialogTitle = "Excel Mappe auswählen"     'Name fürs Fenster
CommonDialog1.Filter = ("Excel-Datei (*.xls)|*.xls;")   'Filter
CommonDialog1.InitDir = App.Path                        
CommonDialog1.ShowOpen
 If CommonDialog1.FileName <> "" Then                   'fragt den gewählten 
 ' Dateinamen ab
 
  fname = CommonDialog1.FileName                        
  txt2.Text = fname
 
  End If
End Sub
 
Private Sub cmd_snd_Click()
Dim var As String
 
sTabName = CommonDialog1.FileName                       
Call OpenmyExcel(sTabName)
 
 
End Sub
 
Private Sub OpenmyExcel(ByVal sTabName As String)
 
    'myExl.Workbooks.Add                    'neue Mappe wird erstellt
 
    myExl.Workbooks.Open sTabName           'vorhandene Mappe wird geöffnet
 
 
    myExl.ActiveWorkbook.Sheets("Tabelle1").Select
 
    myExl.Range("A2").Value = Text1.Text    'in A2 wird Inhalt von Text1 
    ' geschrieben
    myExl.ActiveWorkbook.Save               'speichert die aktuelle Mappe
    myExl.Visible = True                    'Excel wird angezeigt
 
 
 
 
 
End Sub
 
 
 
Private Sub cmd_ende_Click()
 
 
 
 
 myExl.ActiveWorkbook.Close                 'Mappe wird geschlossen
  Unload Me                                  
 
End Sub
 
Private Sub Text1_Change()
 
 
End Sub