Schleife will nicht
06.08.2005 23:08:50
Basti
Ich wollte gerne die Daten aus einem bestimmten Zellbereich in eine Listbox laden, aber wie ich es auch drehe ich bekomm es nicht hin.
Folgender Code funtzt jedenfalls nicht:
Private Sub commandbutton1_click ()
dim a as range
set a = range("a:a").Find("erster")
dim anfang, end as variant
dim zeiger as long
anfang = a.select
ende = a.end(x1Down).select
For zeiger = anfang to ende
Listbox1.additem cells (Zeiger, 1). value
next
End Sub
Kann mir jemand helfen, Gruß Basti