Private Sub mnuÖffnen1_Click()
  Dim xlsApp        As Excel.Application
  Dim xlsMappe      As Excel.Workbook
  Dim xlsBlatt      As Excel.Worksheet
  Dim xlsZelle      As Excel.Range
 
  Const cApp        As String = "Excel.Application"
  Const cPfad       As String = "D:\Produkt-Analyser\Artikel\"
  ' Die Variable müßtest du dynamisch befüllen, weil da die Dateinamen
  ' der einzelnen Artikel (Excel-Dateien) eingetragen werden
  Const cMappe      As String = "Maschinenbelegungsplan.xls"
  ' Die Variable kann vielleicht auch ausgelesen werden, oder müßte immer
  ' gleich heißen (Seite1 oder Seite2)
  Const cBlatt      As String = "Tabelle1"
 
  Dim strZelle      As String
  Dim I             As Integer
  Dim X             As Integer
  Dim Y             As Integer
 
'   Set xlsApp = New Excel.Application
   Set xlsApp = CreateObject(cApp)
   Set xlsMappe = GetObject(cPfad & cMappe)
   Set xlsBlatt = xlsMappe.Worksheets(cBlatt)
  ' Hier wird die Zelle gewählt, müßte dann von dir vorher ermittelt werden 
  Set xlsZelle = xlsBlatt.Cells(1, 1)
   X = 1
   Y = 1
   Do While xlsZelle(Y, X) <> ""
      lstDatum.AddItem xlsZelle(Y, X)
      ' Hier könnte eine Abfrage stehen, zum Auswerten des ausgelesenen 
      ' Zellinhaltes
      ' Falls der ausgelesene Inhalt "Funktion" ist, dann nebenstehende Zelle 
      ' übernehmen
      Y = Y + 1
   Loop
 
End Sub