Returnere hele lister i en dropdown ud fra bestemt kriterier
Jeg vil gerne kunne returnere en hel liste i en dropdown.
På mit ark "kundeoprettelse" har jeg en dropdown (Celle C6) hvor man kan vælge et land (Danmark, Finland, Norge eller Sverige).
På mit ark "prislister", har jeg hele prislisten fra de 4 forskellige lande, som eksempelvis er defineret således:
Kolonne 1; Kolonne 2 DK 11; Listepris DK 12; Fast pris NO 11; Norsk 11 NO 14; Norsk 14 osv.
Kolonne 1, viser således navnet på prisgruppen og kolonne 2 er en beskrivelse.
Når jeg så vælger det pågældende land i C6, vil jeg gerne have returneret hele listen fra kolonne 1 i en dropdown i celle C37 på arket "kundeoprettelse". Dvs. hvis jeg vælger Danmark, vil jeg gerne have at det er prisgrupperne fra Danmark, der bliver vist, i dette tilfælde: DK 11 DK 12
Således, at jeg kan vælge mellem prisgrupperne for de enkelte lande.
Private Sub ComboBox1_Click() Dim antalRækker As Long, ræk As Long, landeKode As String Dim arkKundeOp, arkPriser Set arkKundeOp = Sheets("Kundeoprettelse") Set arkPriser = Sheets("Prislister") arkKundeOp.ComboBox2.Clear
If arkKundeOp.ComboBox1 <> "" Then landeKode = arkKundeOp.ComboBox1
For ræk = 1 To antalRækker If InStr(arkPriser.Range("A" & ræk), landeKode) = 1 Then arkKundeOp.ComboBox2.AddItem arkPriser.Range("A" & ræk) End If Next ræk
Jeg kan godt se at det virker efter hensigten, men der er dog den hage ved den, at den efter valget i den første dropdown ikke viser hvilket land der er valgt.
Jeg har fundet en anden løsning ved at markere de respektive prislister og så døbe dem efter de respektive lande. Således kan jeg bruge funktionen indirekte på følgende måde:
=INDIREKTE(C6)
Dette virker også efter hensigten. Næste opgave er så at få vist beskrivelsen i den næste celle ud fra valget.
Hvorfor vælge vba frem for funktioner? Kan man ridse nogle fordele/ulemper op for disse?
arkKundeOp.Activate ComboBox1 = "" '<--- slet denne linje, så vises landet,der er valgt End If End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
