14. maj 2004 - 15:48Der er
7 kommentarer og 1 løsning
Rullegardin skal bestemme andet rullegardins indhold
Jeg har i mit regneark 2 rullegardiner. Når jeg vælger en værdi i rullegardin 1, vil jeg have at de viste værdier ændrer sig i rullegardin 2. Inputområdet skal ændre sig.
Eksemplet kunne være hvis der i rullegardin står test1, så skal cellerne $a$1:$b$2 benyttes. Hvis der står test2, skal cellerne $a$3:$b$4 benyttes, osv.
Hej hvis du indsætter en hvis formel i henvisningen i "henvisningsfeltet" under datavalidering, kan du få den til at henvise til det ene felt hvis der står "Test 1", og det andet dataområde hvis der står test 2 i feltet. Jeg har prøvet med denne tekststreng, hvor der henvises til C1: =HVIS(C1="test 1";$A$1:$B$2;$A$3:$B$4) Du kan så udvide den med en ekstra hvis formel med eks: vælg test 1 eller test 2
Hvor finder jeg henvisningsfeltet og datavalidering. Har det noget med inputomårdet eller cellekæde at gøre ? Det er inputområdet der skal ændre sig alt efter hvad hvad der er valgt i rullegardin 1.
Datavalidering findes under Data-->Datavalidering. Under fanen Indstillinger skal du i feltet "Tillad" vælge "Liste" Den jeg har kaldt henvisningsfeltet hedder kilde derinde. Jeg kan se at den sidste formel jeg sendte ikke holder, men den første formel ænder tallene i listen alt efter hvad du har valgt i det første rullepanel (Ved mig er det c1)
Jeg kan se metoden fungerer som jeg vil have den til, men den kan ikke henvise til andre ark. Når det ikke kan lade sig gøre kunne jeg godt tænke mig at den kunne henvise til "tekst", men der får jeg fejlmeddelse.
Man kan godt henvise til andre ark, man skal bare navngive området.
I kilde skriver man =FOA
hvor FOA er det navngivne område i et andet ark.
For at få valget i en liste, til at skifte ud fra valget i en anden, kan man bruge denne kode.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$b$14" Then ' Adressen på den liste der bestemmer hvad der akal vises i den anden
Range("b7").Select ' den anden liste With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=" & Range("b14").Value .IgnoreBlank = True
End With Range("b7") = "Vælg " & Range("b14").Value End If End Sub
Det der står i den første liste, skal være det samme som de navngivne områder hedder.
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.