02. november 2009 - 10:37Der 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.
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
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
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.