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
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 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
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
IT-JOB
Seneste spørgsmål Seneste aktivitet
I dag 09:43 AI google.com Af Peter Olsen i Andre onlineløsninger
31/0310:22 Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel
30/0313:45 Kablet forbindelse mellem android telefon og windows 11 pc Af 1Dorte i Android
30/0312:04 Elementtype vises - og ikke billedet? Af hkprofil i Billedbehandling
29/0312:08 Problemer med replay af købte kursusvideoer Af annam i Browsere
White papers
Flere white papers »