Probleme mit der Listbox, füllen.
30.06.2004 09:51:56
Rainer
Das Makro hierfür sieht ungefährt so aus:
Sub leereSpalte()
Dim i As Integer
i = Sheets("Hardwareliste").Range("Hardware").Cells(Range("Hardware").Rows.Count, 1).Row
UserForm1.ListBox1.List = Sheets("Hardwareliste").Range(Cells(5, 3), Cell(i, 3)).Value
UserForm1.Show
End Sub
Was mich jetzt wundert ist, warum funktioniert die Range mit den Cells nicht? Ich bekomme da immer eine Fehlermeldung. Mit .Range("B3:B7") (zum Beispiel ;-) ) klappts. Weiss vielleicht jemand, woran das liegt?
Gruß
Rainer