Private oExl As New Excel.Application
 
Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String)
OpenExlWS "E:\Diversity Thekensystem\Testexceldatei.xls", "Mitgliederdatenbank"
   Dim A As Variant
   Dim Zeile As Long, Spalte As Integer
 
   ' Workbook öffnen
   On Error Resume Next
   oExl.WorkBooks.Open sWSName
   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(sTabName).Select
 
   ' Zelle lesen
   A = ActiveSheet.Cells(3, A).Value
 
   ' Zelle schreiben
   'ActiveSheet.Cells(Zeile, Spalte).Value = "Test"
 
   ' alles schließen
   ActiveWorkbook.Saved = True
   oExl.Quit
   Set oExl = Nothing
End Sub
 
Private Sub Command1_Click()
Label1.Caption = A
End Sub

.:Fridl:.
~ ganz normal anders