Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Listenfeld

    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
      


    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


      


    Betrifft: AW: Listenfeld von: marla
    Geschrieben am: 03.10.2003 13:23:53

    Funktioniert, super, danke!


     

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