Søg
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
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Aktiedepoter Af rabitjosph i Excel 2 12/02/202615:31 I går 07:38
Fejl i hver anden celle Af AOT1977 i Excel 2 11/02/202621:19 12/02/202606:21
Hjælp til kontrol af sygefravær Af Maja i Excel 1 28/01/202611:32 28/01/202612:15
Knap til ipad Af FinnLauridsen i Excel 1 22/01/202620:51 23/01/202607:34
Hyperlink til tekst Af Nanarsi i Excel 12 19/01/202623:00 21/01/202618:17
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 20:30 Problemer med Solitaire & Casual Games. Af Faxholm i Apps til Android
I går 18:48 Fil kan ikke slettes Af frem-ad i Andet software
12/0215:31 Aktiedepoter Af rabitjosph i Excel
12/0214:49 Outlook smider mail i uønsket Af Trez i E-mail programmer
11/0223:03 Foot control Phillips virker ikke Af made18 i Andet hardware
White papers
Flere white papers »