Rulle liste

Har du set på filtrering - kunne det anvendes?

Ellers kan det løses via VBA - men det ville nok hjælpe med et eks. på nogle får rækker med realistiske data.

kan jeg sende arket til dig pr. email? :)

Det kan du - @-adresse under min profil.

Gerne med lidt beskrivelse af det foreventede.

Jeg har sendt en e-mail nu :)

Const produktRæk1 = 10
Const produktRækX = 28
Const arkListeNavn = "Her skal rullelisten være"
Dim arkListe As Worksheet

Const arkDataNavn = "data_mad"
Dim arkData As Worksheet, antalRæk As Long
Const dataStartRæk = 4
Public Sub opbygListe1()
Dim ræk As Byte
        Set arkData = ActiveWorkbook.Sheets(arkDataNavn)
        arkData.Activate
        antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
       
        ComboBox1.Clear
        ComboBox2.Clear
       
        For ræk = produktRæk1 To produktRækX
            ComboBox1.AddItem Format(Cells(ræk, 1), "0#") & " " & Cells(ræk, 2)
        Next ræk
        ComboBox1.ListIndex = 0
        ComboBox1.DropDown
       
        Set arkListe = ActiveWorkbook.Sheets(arkListeNavn)
        arkListe.Activate
End Sub
Private Sub ComboBox1_Change()
Dim nr As Byte
    If ComboBox1 <> "" Then
        nr = Left(ComboBox1, 2)
        opbygFødevareListe nr
    End If
End Sub
Private Sub opbygFødevareListe(nr)
Dim id As Byte, ræk As Long
    Application.ScreenUpdating = False
    ComboBox2.Clear
   
    With arkData
        For ræk = dataStartRæk To antalRæk
            If nr = 0 Then
                ComboBox2.AddItem .Range("A" & ræk)
            Else
                id = .Range("B" & ræk)
                If id = nr Then
                    ComboBox2.AddItem .Range("A" & ræk)
                End If
            End If
        Next ræk
    End With
    Application.ScreenUpdating = True
   
    ComboBox2.ListIndex = 0
    ComboBox2.DropDown
End Sub

Det virker ikke helt.

Når jeg åbner arket virker det udadtil.

Når jeg blot trykker på designertilstand, åbner VB og lukker det igen. slår designertilstand fra og prøver at åbne det, så kommer den op med: runtime error 380

Så trykker jeg debug:

Denne linje bliver markeret med gul, når jeg åbner det i VB:  ComboBox2.ListIndex = 0

Hvad kan der være galt?