Drop down menu med links

Hvis det er en Datavaliderings liste, så har jeg et bud

Ja jeg har brugt [data] og så [datavalidering] da jeg lavede menuen. Men derfra kan jeg ikke se at man kan lavet andet. Hvis du har et bud, vil jeg meget gerne høre det :-)

ok, det er ganske vist første gang jeg prøver denne kombination

Vi skal vælge om du vil ha hyperlinket i samme selle som din dropdown liste - hvilket er temmelig upraktisk når du skal vælge et nyt menupunkt fra listen
eller om linket skal placeres i fx. sellen ovenover

så hvis du lige returnerer i hvilken selle du vil ha linket
så skal jeg lige rette koden til

Ja jeg havde regnet med at linket skal være 'usynligt', så dermed ikke i samme celle som min dropdown liste. Stort hvis du kan løse dette :-)

Hvis du i den liste f.eks. har
C:\test\rest.xls
C:\test\test.xls

og du har datavalidering i A1, så er koden på arkmodulet sådan

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        ActiveWorkbook.FollowHyperlink Address:=Target
    End If
End Sub

Nu har jeg slet ikke styr på programmering og troede at jeg kunne komme uden om det. Det kan måske ikke? I så fald, skal jeg vist have det skåret mere ud i pap og giver gerne flere points. Jeg programmerede lidt i C++ for laaaaaang tid siden, men ja.....kodeordet er laaaang tid siden :-)

Højreklik på arkets fane og vælg Vis Programkode
indsæt følgende kode i vindue til højre
her forudsættes du har din dropdown i D2

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:=Target.Value
End Sub

"Jeg skal lave en en drop down menu, hvor det felt man vælger i menuen, vil linke mig videre til feks. et andet regneark."

Hvis du i din liste har både sti og filnavn, som jeg skrev før.

Så skal du bare højreklikke på din arkfane, der hvor din datavalidering er i, vælg vis programkode, der i det hvide kopierer du bare min kode ind.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then' ret til den celle du har datavalideringen i
        ActiveWorkbook.FollowHyperlink Address:=Target
    End If
End Sub

Jeg kan se at begge forslag virker med at hente Projektmapper
men hvad med Ark/Selle i aktive projektmappe kabbak ?

Denne klarer både link til projektmapper og Ark/selle

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub
If Right(Target, 3) = "xls" Then ActiveWorkbook.FollowHyperlink Address:=Target.Value
If Right(Target, 3) <> "xls" Then
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target.Value
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If
End Sub

Ok jeg kan ikke få det til at virke, men er sikker på at jeg laver en åbenlys fejl.
Jeg beskriver lige hvad jeg har gjort.

Jeg har et faneark der hedder 'forside' hvor jeg gerne vil lave en menu. Jeg bruger felterne: C9, C10, C11 og kalder C9= menu, c10=1, c11=2. Derefter markerer jeg felterne C9, C10, C11 og trykker 'indsæt' -> 'navn' -> 'definer' og tilføjer 'menu' som et navn. Dernæst stiller jeg cursoren på feltet 'G10' og jeg går ind i 'data' -> 'datavalidering' -> 'liste' og skriver '= menu' under 'kilde'. Så kommer dropdown listen frem, men hvordan kan jeg når jeg feks. vælger '1' i dropdown menuen få den linket hen til 'A8' i mit fanark der hedder 'formål' ? Skal jeg bruge hyperlinks i kombination med programmeringen som i foreslår?

Beklager hvis jeg spørger dumt :-)

Og skal man gemme filen der bliver lavet i VB på en bestemt måde. Ligeledes.....kræver det en special udgave af excel at bruge VB, eller er den indbygget i excel?

Hvis du kun har 2,4-6 links, så kunne du evt. blot skrive dem direkte under kilde adskilt af semikolon (;)
ang. dit problem, så skal du skrive formål!A8 i selle C10
ret selv C11 også

Hvis du så indsætter koden i kommentar 15/04-2007 19:15:11
og retter D2 til G10 i denne linie
If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub
så skulle det spille

ellers send evt. filen til pm@madsen.tdcadsl.dk

Ok jeg sender det lige til dig :-)

ok fil sendt retur

Excelent >> kan du lave et svar, så får du point som du fortjener for den store indsats.

Kabbak>> ogstå stor hjælp til dig, så hvis du også laver et svar får du lidt points

Excelent fik det skåret ud i pap for mig, så nu er jeg glad og lærte noget samtidigt :-)

ok :-)