Listenfeld

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
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

Beiträge aus den Excel-Beispielen zum Thema " Listenfeld"