Avatar billede Butterfly Ekspert
22. april 2021 - 14:32 Der er 4 kommentarer og
3 løsninger

Hop til fane, navnet står i celle F1

Hej
Er det muligt at lave noget VBA der hopper til den fane, hvis navn står i celle F1?
Avatar billede kim1a Ekspert
22. april 2021 - 14:49 #1
Ja det kan nemt lade sig gøre. Skal det være en knap, eller blot når man ændrer i den celle?
Har du lavet en datavalidering på cellen så den kun har navne på ark, eller skal den kunne melde fejl?
Avatar billede Butterfly Ekspert
23. april 2021 - 06:54 #2
Godmorgen Kim1a
Det skal være en knap
Avatar billede kim1a Ekspert
23. april 2021 - 07:03 #3
Så mangler jeg bare svar på om cellen arknavn står i kan skrives med fejl, eller om du har sat datavalidering på den?
Avatar billede store-morten Ekspert
23. april 2021 - 07:41 #4
Private Sub CommandButton1_Click()
On Error Resume Next
Til_Ark = Range("F1")
Sheets(Til_Ark).Select
End Sub
Avatar billede kim1a Ekspert
23. april 2021 - 08:05 #5
#4 Alt efter datavalidering ville jeg nok have tilføjet en en errorhandler med en msgbox, men ja, det virker.

Sub Hop_til_ark()
Dim Til_Ark As String
On Error GoTo errorhandler
Til_Ark = Range("F1")
Sheets(Til_Ark).Select
Exit Sub
errorhandler:
MsgBox ("Værdien i celle F1 er ikke et gyldigt fanenavn")
End Sub
Avatar billede Butterfly Ekspert
23. april 2021 - 08:37 #6
Tusind tak for hjælpen  store-morten og kim1a, begge virker perfekt, nu kan det kun blive en god dag.
Avatar billede store-morten Ekspert
23. april 2021 - 11:28 #7
Du kan måske bruge denne til at oprette "Liste" over fane navne i F1:
Sub ValidateList_F1()
Dim ws As Worksheet
Dim validationString As String

For Each ws In Worksheets
    validationString = validationString & ws.Name & ", "
Next ws

    With Worksheets("Ark1").Range("F1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=validationString
    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

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





Premium
Claus Thorsgaard skal sætte gang i væksten som ny CEO: Her er hovedopgaverne som topchef i Luxion
Den tidligere Conscia-topchef Claus Thorsgaard skal nu sætte gang i væksten hos den danske it-virksomhed Luxion. "Luxion har et kæmpe uudnyttet potentiale. Ordrerne vælter ind ad døren uden en aktiv salgsindsats, så hvis vi begynder at fokusere på det, så skulle det gerne gå endnu bedre," siger den nye direktør til Computerworld.
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
Eva Berneke stopper som topchef i KMD og flytter til Paris: Her er KMD's nye topchef
Efter syv år på posten som topchef for KMD forlader Eva Berneke selskabet. Nu flytter hun med familien til Paris, hvor hun vil fortsætte sit bestyrelsesarbejde. KMD har allerede afløser på plads.
White paper
Sådan outsourcer du effektivt – og undgår fælderne
Nogle outsourcer for at minimere omkostningsniveauet, andre for at skaffe ressourcer og spidskompetencer, der er svære at skaffe lokalt – eller af en helt tredje årsag. Der er dog talrige forhold, der er gode at afdække, før man overhovedet begynder at lede en outsourcingudbyder. Man skal klarlægge egne projektbehov samt de spørgsmål og krav, man vil stille samt indsamle viden og erfaringer om, hvordan samarbejdet indledes, drives og styres optimalt. Dertil skal man kende til de hyppigste faldgruber, der kan få et ellers lovende outsourcingsamarbejde til at køre i grøften.