Private Sub OpenExlWS()
   Dim A As Variant
   Dim Zeile As Long, Spalte As Integer
 
   ' Workbook öffnen
   On Error Resume Next
   oExl.Workbooks.Open "Test.XLS"
   If Err > 0 Then
      MsgBox "Exceldatei konnte nicht gefunden oder geöffnet werden.", _
         vbExclamation, "Dateifehler"
      Exit Sub
   End If
 
   On Error GoTo 0
 
   ' Tabelle selektieren:
   ActiveWorkbook.Sheets("Tabelle1").Select
 
   ' Zelle lesen
   A = ActiveSheet.Cells(1, 1).Value
 
   ' Zelle schreiben
   ActiveSheet.Cells(1, 1).Value = "Test"
   oExl.Visible = True
 
End Sub
 
 
Private Sub Form_Load()
   OpenExlWS
End Sub