Überlauf
16.01.2007 20:51:29
Daniela
Ich habe eine Schleife und eine If Then Bedingung. Diese Schleife soll alle Einträge aus der B-Spalt in ein Listenfeld hinzufügen so lange in der A-Spalte nicht steht. Geht auch bei allen Einträgen bis auf den letzten in Spalte A. Da findet er ja nichts mehr und rennt sich tot.
Hat jemand vielleicht eine Lösung?
Do
If Sheets("Artikel").Cells(j, 2) "" Then
ListBox2.AddItem Sheets("Artikel").Cells(j, 2).Value
End If
j = j + 1
Loop While Sheets("Artikel").Cells(j, 1) = ""
Danke