Herbers Excel-Forum - das Archiv

Listenfeld

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox UserForm
Bild

Betrifft: Listenfeld
von: marla
Geschrieben am: 03.10.2003 12:59:42
Hi!

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
Bild

Betrifft: AW: Listenfeld
von: ChrisL
Geschrieben am: 03.10.2003 13:20:48
Hi Marla

Option Explicit

Private Sub UserForm_Initialize()
Dim i As Long
Dim Anzahl As Long
With Worksheets("WP_Details")
Anzahl = .Cells(Rows.Count, 1).End(xlUp).Row
ReDim Arr(0 To Anzahl - 5, 0 To 1) As Variant
For i = 5 To Anzahl
Arr(i - 5, 0) = .Cells(i, 1)
Arr(i - 5, 1) = .Cells(i, 3)
Next i
End With
With ListBox1
.ColumnCount = 2
.ListStyle = fmListStyleOption
.List = Arr
End With
End Sub



Gruss
Chris
Bild

Betrifft: AW: Listenfeld
von: marla
Geschrieben am: 03.10.2003 13:23:53
Funktioniert, super, danke!
 Bild
Excel-Beispiele zum Thema " Listenfeld"
Tabellenblattnamen in ein Listenfeld einlesen Abfrage der Auswahl aus einem Gültigkeits-Listenfeld