Avatar billede bondy Nybegynder
03. december 2010 - 12:34 Der er 6 kommentarer og
1 løsning

Rullemenuder

Hej derude...

Jeg er ved at lave et excel ark, hvor jeg har forskellige rullemenuer. Som et eksempel har jeg en rulle med i celle A2 med tre valgmuligheder (AA;BB;CC). I celle A4 skal der komme en ny rullemenu, som er afhængig i valget i celle A2. F.eks. vvis der vælges AA, skal en ny rullemenu kunne komme med valgmulighederne (10;20;30;40), men vælges BB, skal rullemenuen indeholde valgmulighederne (1;2;3;4) og endelig ved CC skal rullemenuen indeholde valgmulighed (32;33;34).

Kan dette lade sige gøre?

Mvh.
Jonas
Avatar billede supertekst Ekspert
03. december 2010 - 12:46 #1
Hvordan er rullemenuer oprettet?
Excel version?

Ja - det kan godt lade sig gøre.
Avatar billede bondy Nybegynder
03. december 2010 - 12:50 #2
som validering.
excel 2008 til mac.
Avatar billede supertekst Ekspert
03. december 2010 - 13:04 #3
Ok - jeg anvender Excel 2007.

Har du indsigt i VBA?
Avatar billede bondy Nybegynder
03. december 2010 - 13:06 #4
Ikke det store, desværre.. Men kender til det, og har en kammerat, der kan hjælpe mig!
Avatar billede supertekst Ekspert
03. december 2010 - 13:13 #5
Prøver om det kan lade sig gøre at frembringe noget fornuftigt!
Avatar billede bondy Nybegynder
03. december 2010 - 13:16 #6
takker!
Avatar billede supertekst Ekspert
03. december 2010 - 14:58 #7
Koden er anbragt under det pågældende ark
De tre områder, blev anvendt ved oprettelsen af DataValideringen
Testet i Excel 2007

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        If Target.Value = "AA" Then
            sætVærdieriA4 "$G$6:$G$9"
        Else
            If Target.Value = "BB" Then
                sætVærdieriA4 "$G$11:$G$14"
            Else
                sætVærdieriA4 "$G$16:$G$18"
            End If
        End If
    End If
End Sub
Private Sub sætVærdieriA4(område)
    Range("A4").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & område
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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