Listbox füllen
23.02.2003 10:25:13
Jens
ich habe gestern schon eine Frage zum Thema Listbox gestellt und super Hilfe erhalten. Dafür nochmals vielen Dank.
Eine Frage habe ich noch, wie kann ich eine zweispaltige Listbox in UF mit Werten aus TB(1).Bereich("G20:H100")füllen ohne auf den "RowSource" Befehl zurück zugreifen?
für eine einspaltige Listbox kann ich ja den nachfolgenden Code verwenden. Wie ändere ich den Code das 2 Spalte in der Listbox gefüllt werden?
Private Sub UserForm_Initialize()
Dim c as Range
For Each C in Sheets("1").Range("G20:H100")
Listbox1.Addithem c
Next c
End Sub
Danke für eure Hilfe Jens