automatisk dobbelt entry fra List boks

Måske  var det en ide at give din ListBox 2 kolonner, og så have rækkenummeret i anden kolonne... derved kunne du nemt snuppe valgte list-element og hente kolonne 2 (men da listbox kolonnerne starter fra nul er det faktisk nr 1) f.eks. således

Me.TextBox1.Text = Me.ListBox1.List(Me.ListBox1.Listindex, 1)

Ved godt, at det kræver du ændre lidt i koden fra i går, således du får data i kolonner i stedet for med komma imellem - men så er der jo lidt at lege med :-)

Hvordan gør jeg så det?

der skal kigges lidt på columncount, og måske columnwidth, og hvordan men tilføjer data til flere kolonner - google is your friend. Lad mig se noget kode, hvor du har forsøgt inden jeg hjælper dig videre

Public Sub OverskriftPop()

    Dim lRow As Long
    Dim wsSource As Worksheet
    Dim rSource As Range
    Dim udtOverskriftPop As OverskriftPop
   

    Set wsSource = ActiveSheet
    Set rSource = ActiveSheet.Range("Y1").CurrentRegion.Columns(1)
   
    For lRow = rSource.Cells(3, 25).Row To rSource.Cells(Rows.Count, 25).End(xlUp).Row
        If rSource.Cells(lRow, 25).Font.Bold = True Then
            ufmOverskriftPop.lstOverskrift.AddItem rSource.Cells(lRow, 25).value & ", " & lRow
        End If
    Next lRow
   
    ufmOverskriftPop.Show
   
    If Not ufmOverskriftPop.IsCancelled Then
        ufmOverskriftPop.GetValues udtOverskriftPop
        'continue process after OK here
        With udtOverskriftPop
           
        End With
    End If
    Unload ufmOverskriftPop
   
End Sub

Er der andre metoder du gerne vil se?

Jeg vil gerne se dig gøre et forsøg på, at få  lRow  lagt ind i kolonne 2 - ligegyldigt om du fejler - men vil gerne se et forsøg

Her er lidt inspiration

With Me.lstbox
    Me.lstbox.ColumnCount = 2
    Me.lstbox.ColumnWidths = "60;60"
    .AddItem
    .List(i, 0) = Company_ID
    .List(i, 1) = Company_name
    i = i + 1

end with

jeg er slet ikke med på hvordan jeg skal gribe overstående an i forhold til det der allerede er lavet...

Arr men hvorfor er det når man har set blind på en fejl og smider håndklædet i ringen og beder om hjælp, så finder man selv fejlen....
Så blev det en god søndag aften alligevel ;)

Men kan jeg lave således at liste 2 opdateres som jeg klikker på liste 1?
den skal gerne loope igennem de linjer der er mellem den valgte overskrift og den næste og fylde liste 2 med de komponenter den finder (og dropper de tomme ;) ). Eller er jeg nød til at en ny userform?

Der er jo events på listboksen - så du kan f.eks. kode i

Jeg syntes desværre ikke jeg har held af at få den til at køre overstående den starter slet ikke koden... skal jeg lave en med modifikationer i forhold til den tidligere kode?