Listbox Option (anfängerfrage)

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

Betrifft: Listbox Option (anfängerfrage)
von: tim
Geschrieben am: 28.04.2015 12:24:17

Servus,
meine listbox hat mehrere Einträge. Sobald ein Eintrag per Option Button selektiert wird, soll das Programm ein Label umbenennen.
Mir ist klar wie ich es coden müsste, um eine Abfrage per Button zu machen, aber das ist nicht das was ich will. Er soll direkt immer das Label ändern, sobald ich die Option wähle, ist das in VBA überhaupt möglich?

  • 
    Private Sub UserForm_Initialize()
    Dim am As Long, x As Integer
    am = Sheets("summary").Cells(Rows.Count, 10).End(xlUp).Row
    With uld_lb
        For x = 2 To am+1
        .AddItem Sheets("summary").Cells(x, "K")
        Next
    End With
    End Sub

  • Bild

    Betrifft: AW: Listbox Option (anfängerfrage)
    von: Hajo_Zi
    Geschrieben am: 28.04.2015 12:26:34
    benutze das Change Ereignis der Listbox.


    Bild

    Betrifft: AW: Listbox Option (anfängerfrage)
    von: tim
    Geschrieben am: 28.04.2015 12:32:29
    habs :)

    Bild

    Betrifft: AW: Listbox Option (anfängerfrage)
    von: Hajo_Zi
    Geschrieben am: 28.04.2015 12:34:13
    was ist offen? Nur das Du uns die Lösung nicht mitgeteilt hast.
    Gruß Hajo

    Bild

    Betrifft: AW: Listbox Option (anfängerfrage)
    von: tim
    Geschrieben am: 28.04.2015 15:05:11
    Hab als initialisierung den klick auf die listbox genommen, das hat mir das Problem sehr einfach gelößt.

    Private Sub uld_lb_Click()
    Dim i As Integer
    With uld_lb
        For i = 0 To .ListCount - 1
           If .Selected(i) Then
              Label3.Caption = .List(i)
           End If
        Next i
    End With
    End Sub


     Bild

    Beiträge aus den Excel-Beispielen zum Thema "Listbox Option (anfängerfrage)"