Avatar billede livse9 Nybegynder
02. november 2009 - 10:37 Der er 6 kommentarer og
1 løsning

Rulleliste afhængig af anden rulleliste?

Hej

Jeg har ledt og ledt her på Eksperten, men kan ikke finde et spørgsmål der er besvaret..

Jeg har to rullelister, i den ene kan man vælge A eller B, i den anden tal mellem 1 og 4. Hvis man vælger A skal man kunne vælge fra den anden rulleliste, hvis man vælger B skal den anden rulleliste ikke være aktiv. Der kan fx være tekst i feltet, eller det kan bare være blankt.

Hvordan Søren gør man det?
Avatar billede supertekst Ekspert
02. november 2009 - 10:58 #1
Hvordan er rullelisterne fremstillet - i en Userform, formular eller ?
Avatar billede livse9 Nybegynder
02. november 2009 - 11:35 #2
Hej :)
De er bare lavet i data-> datavalidering, og så har jeg valgt rulleliste
Avatar billede supertekst Ekspert
02. november 2009 - 11:54 #3
Excel 2007? (arbejder med 2003)

Hvis Ja - så er du velkommen til at sende en kopi (mailadr. under profil) - for at jeg kan se rulleliste-objektet.
Avatar billede livse9 Nybegynder
02. november 2009 - 12:06 #4
Tusind tak! Det er Excel 2007 - jeg har sendt arket til dig :)
Avatar billede supertekst Ekspert
02. november 2009 - 16:02 #5
Rem version 1 02-11-09
Rem ==================
Dim flag As Boolean, FontFarve As Long, IndreFarve As Long
Const Liste1Adr = "$B$5"
Const Liste2Adr = "$E$5"
Const dækVærdi = "B"
Const dækFarve = 15                                'Grå
Private Sub Worksheet_Change(ByVal Target As Range)
Dim L2
    Set L2 = ActiveSheet.Range(Liste2Adr)
   
    If Target.Address = Liste1Adr Then
        If Target.Value = dækVærdi Then
            flag = True
Rem Hent normal-farver
            FontFarve = L2.Font.ColorIndex

            FontFarve = L2.Font.ColorIndex
            IndreFarve = L2.Interior.ColorIndex
           
Rem sæt Dæk-farver
            L2.Font.ColorIndex = dækFarve
            L2.Interior.ColorIndex = dækFarve
        Else
            flag = False
            L2.Font.ColorIndex = FontFarve
            L2.Interior.ColorIndex = IndreFarve
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Liste2Adr Then
        If flag = True Then
            Target.Validation.InCellDropdown = False
            MsgBox ("Skal ikke udfyldes")
        Else
            Target.Validation.InCellDropdown = True
        End If
    End If
End Sub
Avatar billede livse9 Nybegynder
03. november 2009 - 12:14 #6
Supertekst smid et svar, det virker perfekt :)
Avatar billede supertekst Ekspert
03. november 2009 - 12:36 #7
Fint - her er svaret..
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