oversigt over navne på ark

Ja - via VBA kan alle arknavne hentes og vises - men hvor?

Jeg har en excelfil med en masse ark - allerforrest i filen (i et selvstændigt ark "oversigt_" vil jeg gerne have et ark, som viser hvilke ark der er i filen så man kan danne sig et overblik. Normalt plejer jeg at skrive dem ind selv, men tænker der må være en smartere løsning.

MVH
Trine

Sub VisArkNavne()
Dim ark, rækArk1
   
    rækArk1 = 1
   
    For Each ark In ActiveWorkbook.Sheets
        If InStr(LCase(ark.Name), "oversigt_") = 0 Then
            ActiveWorkbook.Sheets(1).Cells(rækArk1, 1) = ark.Name
            rækArk1 = rækArk1 + 1
        End If
    Next ark
End Sub

en lille modifikation:

Anbring kode i VBA (Alt+F11) / ThisWorkbook - gem - koden udføres når filen åbnes.

Sub workbook_activate()
Dim ark, rækArk1
   
    rækArk1 = 1
   
    For Each ark In ActiveWorkbook.Sheets
        If InStr(LCase(ark.Name), "oversigt_") = 0 Then
            ActiveWorkbook.Sheets(1).Cells(rækArk1, 1) = ark.Name
            rækArk1 = rækArk1 + 1
        End If
    Next ark
End Sub

Hej igen,

tak for hjælpen - jeg kan bare ikke få det til at virke. Jeg har kaldt mit ark hvor jeg vil have oversigten for oversigt_

Jeg vælger ALT + F11 og har nu der stående

Sub workbook_activate()
Dim ark, rækArk1
   
    rækArk1 = 1
   
    For Each ark In ActiveWorkbook.Sheets
        If InStr(LCase(ark.Name), "oversigt_") = 0 Then
            ActiveWorkbook.Sheets(1).Cells(rækArk1, 1) = ark.Name
            rækArk1 = rækArk1 + 1
        End If
    Next ark
End Sub


Men der kommer ikke umideelbart noget når jeg gemmer - åbner med makro - arket oversigt_ er stadig tomt, så jeg må gøre noget forkert. har du et bud?

MVH
Trine

Hov - jeg trykkede lige på "run" inde i VBA og så kom ovesigten.

Men den opdaterer ikke automatisk - kun når jeg kører RUN inde fra VBA

MVH
Trine

Kode skal ligge i VBA-objektet ThisWorkbook. Gem - Luk - filen og åben den igen.
Det er dette udtryk:      Sub workbook_activate()
- der aktivere koden, når filen åbnes.

Har tilføjet sletning af bestående indhold........ - således at kodennu ser således ud:

Sub workbook_activate()
Dim ark, rækArk1
   
Rem Sletter Gl. indhold - før opbygning af aktuelle
    ActiveWorkbook.Sheets("oversigt_").Activate
    Cells.EntireColumn.ClearContents

    rækArk1 = 1
   
    For Each ark In ActiveWorkbook.Sheets
        If InStr(LCase(ark.Name), "oversigt_") = 0 Then
            ActiveWorkbook.Sheets(1).Cells(rækArk1, 1) = ark.Name
            rækArk1 = rækArk1 + 1
        End If
    Next ark
End Sub

Men hvordan ligger jeg den i ThisWorkbook - lige nu tror jeg den ligger generelt

MVH

Klik på ThisWorkbook og indsæt koden (forudsætter at du har kopieret den fra ovenstående) - Luk VBA og gem - Luk filen og åbn igen.

Jamen når jeg trykker ALT F11 kommer jeg til en blank side eller dvs. slet ingen side -jeg ved ikke hvordan jeg lægger det ind. Jeg kan (ved at trykke på "insert module") få en side frem hvor jeg kan kopiere koden ind og også få den til at virke men åbenbart ikke for this.worksheet men generelt siden den ikke opdaterer automisk når jeg genåbener min fil, men kun når jeg mauelt kører den

MVH
trine

når du er kommet om til vba, trykker du CTRL-R, så kommer der en liste over ark og moduler . Her finder du modulet ThisWorkbook og kopierer koden ind.

tusind tak for det :-)