AddItem
05.09.2003 13:20:19
Bernd
habe folgende Prozedur:
Sheets("Termine").Select
For i = 2 To 200
frmTermin.ListBox1.AddItem (Workbooks("Terminer.xls") _
.Sheets("Termine") _
.Cells(i, 6).Value)
Next
Funkt ja auch, aber wie muss ich die Prozedur ändern, damit ich nicht "To 200" sondern eben bis zur letzten beschriebenen Zelle habe?
Hatte folgendes versucht, aber die Listbox wurde nicht gefüllt :-(
intY = 2
With Sheets("Termine")
.Select
Do Until .Cells(intY, 1) = ""
intY = intY + 1
frmTermin.ListBox1.AddItem (Workbooks("Terminer.xls") _
.Sheets("Termine") _
.Cells(i, 6).Value)
Loop
'.Cells(intY, 1).Select
End With
Bitte um Hilfe...
Danke
Bernd
Anzeige