Maak een hyperlinkindex van alle werkbladen in de werkmap
Laten we de macro om alle bladen in een werkmap weer te geven een stap verder nemen en een hyperlinkmenu maken voor elk blad in een werkmap. Dit is een geweldige tijdsbesparing voor iemand die veel bladen heeft en handmatig een menu met hyperlinks naar elk blad probeert te maken.
Om de macro te gebruiken, vervangt u gewoon het woord Blad1 (het verschijnt twee keer) in de code door de naam van het tabblad waar u de resultaten wilt hebben. Zorg ervoor dat er geen belangrijke informatie op het uitvoertabblad staat, omdat het de gegevens wist voordat ze ernaar schrijven. Nadat de macro is uitgevoerd, wordt een lijst van elk blad met een hyperlink naar elk blad gemaakt.
| 1234567891011121314151617181920 | Sublijstbladen()Dim ws als werkbladDim x als geheel getalx = 1Bladen ("Blad1").Bereik ("A:A").WissenVoor elke ws In werkbladenBladen ("Blad1"). Cellen (x, 1). SelecteerActiveSheet.Hyperlinks.Toevoegen _Anker:=Selectie, Adres:="", Subadres:= _ws.Name & "!A1", TextToDisplay:=ws.Namex = x + 1Volgende wsEinde sub |
