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:\Programmierung\Projekte_VB6\Aufgabe\"
  Const cMappe    As String = "Belegungsplan.xls"
  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)
   Set xlsZelle = xlsBlatt.Cells(1, 1)
   X = 1
   Y = 1
   Do While xlsZelle(Y, X) <> ""
      lstDatum.AddItem xlsZelle(Y, X)
      Y = Y + 1
   Loop
End Sub