Zitat:

Der soll aber aufhören wenn zwei SPALTEN hintereinander ="" sind, also nichts drin ist. Wie geht das?

'Spalten durchlaufen und Zelleninhalt in List1 eintragen
For i = 1 To 256
   If myXL[color=red]S[/color].ActiveSheet.Cells(1, i).Value = "" and _
     myXL[color=red]S[/color].ActiveSheet.Cells(1, _
     [color=red]i-1[/color]).Value = "" Then
      i = 256
   Else
      List1.AddItem myXL[color=red]S[/color].ActiveSheet.Cells(1, i).Value
   End If
Next i