Listenfeld
03.10.2003 12:59:42
marla
Ich möchte ein Listenfeld programmieren, das in der ersten Spalte Optionsbuttons, in der zweiten Spalte die laufende Nummer und in der dritten Spalte die Bezeichnung. Zur Zeit fehlt mir die Spalte mit den Bezeichnungen. Der sub sieht so aus ( Die Schleife brauch ich, weil die Zeilenanzahl nicht immer gleich is. Die Bezeichnungen für die dritte Spalte befinden sich in der Spalte "C", die Zeilennummer kann ich wieder nicht genau bestimmen. Müsste auch mit einer Schleife programmiert werden denke ich.)
Private Sub UserForm_Initialize()
Dim i As Range
For Each i In Worksheets("WP_Details").Range(Cells(5, 1), Cells(Rows.Count, 1).End(xlUp))
ListBox1.AddItem i
Next i
With ListBox1
.ColumnCount = 1
.ListStyle = fmListStyleOption
End With
End Sub
Bin für jeden Tipp dankbar!!
LG, marla
Anzeige