Søg
Avatar billede Butterfly Ekspert
25. august 2020 - 07:20 Der er 6 kommentarer og
2 løsninger

Indholdsfortegnelse uden alle faner

Hej
Hvordan laver jeg en indholdsfortegnelse hvor ikke alle faner er med?
Jeg vil gerne undgå fane "Data", "Tom fil", "Total"
Avatar billede thomas_bk Ekspert
25. august 2020 - 07:52 #1
Hvordan laver du en indholdsfortegnelse i det hele taget?
Avatar billede ebea Ekspert
25. august 2020 - 08:40 #2
Du skriver jo intet om, hvordan din eksisterende indholdsfortegnelse er opbygget.
Hvis den er med opdatering af dine Ark, kan du jo sætte filter på din indholdsfortegnelse, og fravælge dem du ikke vil se i fortegnelsen!
Avatar billede Butterfly Ekspert
25. august 2020 - 09:02 #3
Min kode ser sådan ud

Sub Indholdsfortegnelse()
    Application.ScreenUpdating = False
    Range("B2").Select
    Dim SH As Worksheet
    For Each SH In ActiveWorkbook.Worksheets
    If ActiveSheet.Name <> SH.Name Then
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    SH.Name & "!A1", TextToDisplay:=SH.Name
    ActiveCell.Offset(1, 0).Select
    End If
    Next SH
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.InsertIndent 1
End Sub
Avatar billede ebea Ekspert
25. august 2020 - 09:23 #4
#3 - Hvis du nu sætter Filter på, kan du som jeg skrev, fravælge de sider du ikke vil se!
Marker hele fortegnelsen, og vælg "Data" og "Filtrer".
Det ville umiddelbart være nemmeste løsning!
Avatar billede store-morten Ekspert
25. august 2020 - 16:54 #5
Prøv:
Sub Indholdsfortegnelse()
    Application.ScreenUpdating = False
    Range("B2").Select
    Dim SH As Worksheet
    For Each SH In ActiveWorkbook.Worksheets
    If ActiveSheet.Name <> SH.Name Then
        If Not SH.Name = "Data" Then
        If Not SH.Name = "Tom fil" Then
        If Not SH.Name = "Total" Then
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    SH.Name & "!A1", TextToDisplay:=SH.Name
    ActiveCell.Offset(1, 0).Select
        End If
        End If
        End If
    End If
    Next SH
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.InsertIndent 1
End Sub
Avatar billede store-morten Ekspert
25. august 2020 - 16:59 #6
Eller:
Sub Indholdsfortegnelse()
    Application.ScreenUpdating = False
    Range("B2").Select
    Dim SH As Worksheet
    For Each SH In ActiveWorkbook.Worksheets
    If ActiveSheet.Name <> SH.Name Then
        If Not SH.Name = "Data" And Not SH.Name = "Tom fil" And Not SH.Name = "Total" Then
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    SH.Name & "!A1", TextToDisplay:=SH.Name
    ActiveCell.Offset(1, 0).Select
        End If
    End If
    Next SH
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.InsertIndent 1
End Sub
Avatar billede Butterfly Ekspert
26. august 2020 - 06:34 #7
Tusind tak Store-Morten, det var præcist hvad jeg ønskede mig, det gør dagen nemmere :-)
Avatar billede store-morten Ekspert
26. august 2020 - 06:43 #8
Velkommen 😀 god dag
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
Udseende af datoer Af ErikHg i Excel 7 I går 14:56 I dag 00:07
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 3 23/03/202613:24 07/05/202614:01
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 10:05 Sætte flere billeder sammen til et billede - IPad seneste version Af nu_igen i Billedbehandling
I går 14:56 Udseende af datoer Af ErikHg i Excel
23/0509:37 hvilken AI synes I er bedst? Af jcr18 i Andre onlineløsninger
22/0518:51 Pausepil på youtube i chrome Af valby i Browsere
22/0511:42 Mail med endelsen ".lat" Af ErikHg i E-mail
White papers
Flere white papers »