Avatar billede Sigma Pi Juniormester
09. januar 2008 - 11:11 Der er 1 kommentar og
1 løsning

Valg i combobox afhængigt af valg i tidligere combobox

Hej med jer alle
Jeg er ny på dette forum, og har væltet nettet rundt, for at finde steder som kan svare på mit spørgsmål. Men det er desværre ikke lykkedes endnu.

Men det lader til, at der er nogle kvikke hoveder på denne site, så nu prøver jeg her!

Jeg er igang med at lave et større excelark, fordelt på 3 faneblade. I min egen lille verden, er jeg nået langt, men kan stadig ikke løse det sidste af mine problemer, som vil give tingene en kosmetisk finesse.

Jeg ville gerne have muligheden for, at lade valget i én kombinationsboks bestemme de efterfølgende valg i en anden kombinationsboks.

Som de f.eks. har på bilbasen.dk, hvor man kan vælge bilmærke, og her efter de forskellige modeller for hver enkelt mærke.
Jeg har oprettet forskellige lister, hvoraf data'ene til kombinationsboksene kommer fra.
Men hvordan får jeg kombinationsboksenes indhold til at ændre sig, pba. indholdet/valget i den forrige?

Eksempel (bilbasen):
Hvis man vælger "Ford" i første kombinationsboks, skal der i næste kombinationsboks være modellerne Mondeo, Focus og Fiesta:
Hvis jeg istedet vælger "Toyota", skal der i næste kombinationsboks komme modellerne Avensis, Corolla, Yaris.

Jeg er på ingen tænkelig måde nogen Excel super haj, og har lært mig selv de få ting jeg kan. Derfor er jeg ikke 100% velbevandret i termer og gloser fra Excel. Dette vil nok have betydning for den eventuelle forklaring? Jeg har søgt og kigget på de indlæg som allerede er her, og kunne ikke helt forstå svarene. Jeg er ikke vant til at bruge VBA, men har mod på stort set hvad som helst, for at få tingene til at virke.
Desuden bruger jeg en dansk version af Excel =o)

Håber én eller anden kan hjælpe mig!
Avatar billede jlemming Nybegynder
09. januar 2008 - 13:12 #1
Avatar billede supertekst Ekspert
11. januar 2008 - 09:58 #2
Eksempel:

Private Sub worksheet_activate()
    With ComboBox1
        .AddItem "Ford"
        .AddItem "Toyota"
    End With

End Sub
Private Sub ComboBox1_Change()
    With ComboBox1
        If .Value = "Ford" Then
            indsætFord
        Else
            If .Value = "Toyota" Then
                indsætToyota
            End If
        End If
    End With
End Sub
Private Sub indsætFord()
    With ComboBox2
        .Clear
        .AddItem "model F1"
        .AddItem "model F2"
        .AddItem "model F3"
        .ListIndex = 0
    End With
End Sub
Private Sub indsætToyota()
    With ComboBox2
        .Clear
        .AddItem "model T1"
        .AddItem "model T2"
        .AddItem "model T3"
        .ListIndex = 0
    End With
End Sub
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester