Private Sub Command3_Click()
'VB 6 / Excel 2002 Beispiel
Dim myXL As Excel.Application
Dim myXLS As Excel.Workbooks
Dim i As Integer
 
Set myXL = Excel.Application
Set myXLS = myXL.Workbooks
 
myXLS.Open ("D:\Mappe1.xls")
 
For i = 1 To 256 'also ruhig alle Spalten durchlaufen
 If myXL.ActiveSheet.Cells(1, i).Value = "" Then
    If i < 256 Then 'aber prüfen, dass i nicht 256 ist
        If myXL.ActiveSheet.Cells(1, i + 1).Value = "" Then 'sonst kommt 
        ' diesmal hier der Fehler
          Exit For 'hier wird die Schleife verlassen, wenn 2x eine leere Zelle 
          ' auftaucht
        End If
      List1.AddItem myXL.ActiveSheet.Cells(1, i).Value 'kann man weglassen, 
      ' wenn einzelne leere Zellen nicht aufgelistet werden sollen
    End If
 Else
  List1.AddItem myXL.ActiveSheet.Cells(1, i).Value
 End If
Next i
 
myXLS.Close
 
Set myXLS = Nothing
Set myXL = Nothing
 
End Sub