Hoe kunt u snel bladnamen in cellen invoegen in Excel?
Is er een eenvoudige manier om de naam van het huidige werkblad in één cel in te voegen? Hoe voegt u de namen van alle werkbladen in cellen in? Dit artikel biedt u handige methoden om deze problemen op te lossen.
Voeg de naam van het huidige werkblad in een cel in met functies
Snel de naam van het actieve werkblad invoegen met Kutools voor Excel
Voeg alle bladnamen in cellen in met VBA
Snel alle bladnamen met hyperlinks in cellen invoegen als een index
Snel de naam van het huidige werkblad in een cel invoegen met functies
Voer gewoon de formule in van =RIGHT(CELL("filename",D2),LEN(CELL("filename",D2))-FIND("]",CELL("filename",D2))) in elke cel en druk op Enter toets, dan toont het de naam van het huidige werkblad in de cel.
Deze formule kan alleen de naam van het huidige werkblad weergeven, maar niet die van andere werkbladen.
Snel de naam van het actieve werkblad invoegen met Kutools voor Excel
Als u de informatie van het actieve werkblad inclusief de naam van het werkblad, de naam van het werkboek, het bestandspad enz. in een cel of koptekst/voettekst wilt invoegen, kunt u gebruik maken van Kutools voor Excel’s Werkboekinformatie invoegen.
Na het gratis downloaden en installeren Kutools voor Excel, doe dan het volgende:
1. Selecteer een cel of een bereik om de bladnaam in te plaatsen, en klik op Kutools Plus > Werkboek > Werkboekinformatie invoegen.
2. Selecteer vervolgens de werkboekinformatie die u wilt invoegen uit Informatie sectie, en specificeer de locatie waar u de informatie wilt plaatsen uit Invoegpositie sectie. Klik vervolgens op OK.
U kunt hier klikken om meer te weten te komen over Werkboekinformatie invoegen.
Snel alle bladnamen in cellen invoegen met VBA
Als u alle bladnamen in cellen wilt invoegen, is een VBA-macro een goede keuze.
Stap 1: Houd de toetsen Alt + F11 ingedrukt in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.
Stap 2: Klik op Invoegen > Module, en plak de volgende macro in het Modulevenster.
VBA voor het invoegen van alle werkbladnamen in cellen:
Sub SheetNames()
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub
Stap 3: Druk op de F5 toets om deze macro uit te voeren. Dan ziet u dat alle werkbladnamen zijn weergegeven in kolom A van het huidige werkblad. Zie screenshot:
Opmerking: In de VBA-code kunt u Cells(i, 1) wijzigen naar een andere verwijzing om de bladnamen te laten beginnen bij andere cellen. Bijvoorbeeld, voeg bladnamen in vanaf C3, verander het dan in Cells(i+2, 3).
Snel alle bladnamen met hyperlinks in cellen invoegen als een index
Kutools voor Excel's Maak koppeltabel utiliteit voegt niet alleen alle bladnamen in cellen in, maar voegt ook hyperlinks in naar de bijbehorende werkbladen.
Na het gratis downloaden en installeren Kutools voor Excel, doe dan het volgende:
Stap 1: Klik op de Kutools Plus > Werkblad > Maak koppeltabel.
Stap 2: In de Maak koppeltabel dialoogvenster, specificeer de instellingen volgens uw behoeften, en klik op OK.
Dan ziet u dat alle bladnamen zijn ingevoegd in een nieuw werkblad, en elke bladnaam is gekoppeld aan het bijbehorende werkblad. Zie de volgende screenshots:
De Maak koppeltabel utiliteit maakt het gemakkelijk om een lijst te maken van alle bladnamen van het actieve werkboek in een nieuw werkblad, die hyperlinks of macroknoppen bevat om snel naar andere werkbladen te navigeren. Klik hier om meer te weten te komen over deze utiliteit.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen