Hoe voegt u een celwaarde toe aan de koptekst of voettekst in Excel?
In Microsoft Excel is het eenvoudig om informatie zoals de Bestandspad, bestandsnaam, huidige datum of andere ingebouwde details in kopteksten of voetteksten in te voegen met behulp van standaardfuncties van Excel. Er zijn echter scenario’s waarin u de daadwerkelijke inhoud van een specifieke cel als koptekst of voettekst wilt gebruiken. Deze mogelijkheid wordt niet rechtstreeks geboden door de standaardinterface van Excel, wat leidt tot de vraag: hoe kunt u een celwaarde in een koptekst of voettekst van uw werkblad invoegen? Veel gebruikers stuiten op deze behoefte bij het opstellen van rapporten, formulieren of gegevensexporten waarin dynamische informatie, zoals een klantnaam of een aangepaste datum, moet worden weergegeven in de afdrukkoptekst of -voettekst, zodat elke afdruk de meest actuele context uit het werkblad zelf bevat. De onderstaande oplossingen bieden hiervoor een antwoord en tonen zowel VBA- als externe benaderingen, en bespreken wanneer elke methode het meest geschikt is.
Celwaarde in koptekst of voettekst van een werkblad plaatsen met VBA-code
Celwaarde in koptekst of voettekst van alle werkbladen plaatsen met VBA-code
Bestandsinformatie Invoegen in koptekst/voettekst met Kutools voor Excel 
Celinhoud handmatig kopiëren naar het dialoogvenster voor koptekst/voettekst
Celwaarde in koptekst of voettekst van een werkblad plaatsen met VBA-code
Als u de inhoud van een specifieke cel wilt weergeven in de koptekst of voettekst van uw huidige werkblad, kan dat niet via de standaardinterface van Excel voor kopteksten en voetteksten — maar u kunt dit eenvoudig realiseren met een korte VBA-macro.
Sla uw werkmap eerst op voordat u VBA-code uitvoert, aangezien macro’s objecten aanpassen en deze wijzigingen niet ongedaan gemaakt kunnen worden. Zorg er ook voor dat uw Excel-instellingen het uitvoeren van macro’s toestaan.
1. Activeer het werkblad waarop u een celwaarde in de koptekst of voettekst wilt plaatsen. Druk op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het nieuwe modulevenster.
VBA-code: een opgegeven celwaarde in de koptekst van een werkblad plaatsen
Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub
3. Druk op F5 (of klik op de knop Uitvoeren) om deze macro uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd de cel te selecteren waarvan u de waarde in de koptekst wilt gebruiken.
4. Nadat u de cel hebt geselecteerd en op OK hebt geklikt, wordt de waarde van de geselecteerde cel ingevoegd in de koptekst links boven uw actieve werkblad. Om de koptekst te bekijken, gaat u naar Bestand > Afdrukken(of schakel over naar de weergave)Pagina-indeling). Zie het onderstaande voorbeeld:
Opmerkingen:
- Als u de inhoud van de cel liever in de voettekst dan in de koptekst weergeeft, gebruikt u de volgende code. De stappen blijven hetzelfde: plak deze code eenvoudig in een module en voer deze uit.
VBA-code: een opgegeven celwaarde in de voettekst van een werkblad plaatsen
Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub
- Om de positie te wijzigen, vervangt u LeftHeader of LeftFooter in de code door CenterHeader, RightHeader, CenterFooter of RightFooter, indien nodig. Als u bijvoorbeeld de waarde in het midden van de koptekst wilt plaatsen, wijzigt u
LeftHeaderinCenterHeader. - Zorg er altijd voor dat de celverwijzing geldig is voordat u het script uitvoert; verwijst u naar een lege cel, dan blijft de koptekst of voettekst leeg.
- Nadat u de macro hebt uitgevoerd, wordt de koptekst of voettekst niet automatisch bijgewerkt wanneer u de brondcel wijzigt; u moet de macro opnieuw uitvoeren om de weergegeven informatie te actualiseren.
- Deze VBA-methode is ideaal wanneer u acties van cel naar koptekst wilt automatiseren zonder frequente updates, of bij het werken met sjablonen die per afdruk dynamische inhoud bevatten.
- Als u de waarschuwing „Macro’s zijn uitgeschakeld” ziet, controleert u of macro’s zijn ingeschakeld via Bestand > Opties > Trustcentrum.
Celwaarde in koptekst of voettekst van alle werkbladen plaatsen met VBA-code
Wanneer u de waarde van een specifieke cel als koptekst of voettekst op alle werkbladen van uw werkmap wilt toepassen, is het tijdrovend om de vorige code voor elk werkblad afzonderlijk uit te voeren. In dergelijke gevallen kunt u een efficiënte VBA-macro gebruiken die in één handeling de inhoud van een gekozen cel toevoegt aan de koptekst of voettekst van elk werkblad in uw werkmap — ideaal bij het verspreiden van rapporten die consistente koptekst- of voettekstinformatie moeten bevatten.
1. Open de werkmap waarop u de wijziging wilt toepassen en druk op ALT + F11 om het venster Visual Basic for Applications te openen.
2. Klik in de VBA-editor op Invoegen > Module en kopieer de volgende macro naar het modulevenster.
VBA-code: een opgegeven celwaarde in de voettekst van alle werkbladen plaatsen
Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub
3. Druk op F5 om deze macro uit te voeren. Er verschijnt een dialoogvenster waarin u de doelcel kunt selecteren waarvan de waarde in de voettekst van elk werkblad moet worden weergegeven.
4. Zodra u de cel hebt geselecteerd en op OK hebt geklikt, wordt de celwaarde ingevoegd in de voettekst links onderaan elk werkblad in de werkmap. U kunt de ingestelde voettekst controleren door naar Bestand > Afdrukken te navigeren.
Opmerkingen:
- Gebruik in plaats daarvan de volgende code als u een celwaarde in de koptekst op alle werkbladen wilt opnemen. Het proces voor het invoeren en uitvoeren van de code blijft exact hetzelfde:
VBA-code: een opgegeven celwaarde in de koptekst van alle werkbladen plaatsen
Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub
- Als u de waarde in de rechter- of middenpositie van de koptekst/voettekst wilt invoegen, vervangt u eenvoudigweg LeftHeader/LeftFooter door CenterHeader/CenterFooter of RightHeader/RightFooter in het script.
- Houd er rekening mee dat ongedaanmaken niet werkt voor wijzigingen die zijn aangebracht met VBA-macro’s. Sla uw document daarom van tevoren op om gegevensverlies te voorkomen als het resultaat onverwacht is.
- Deze aanpak is het meest geschikt voor werkmappen waarin alle bladen dezelfde koptekst- en voettekstvereisten hebben. Als de bladen verschillende inhoud nodig hebben, kunt u overwegen de macro voor één blad afzonderlijk op elk blad uit te voeren.
- Als u problemen ondervindt met het bijwerken van kopteksten of voetteksten zoals verwacht, controleer dan of u geen beveiligde werkbladen of werkboekbeveiliging heeft ingeschakeld.
Bestandsinformatie Invoegen in koptekst/voettekst met Kutools voor Excel
Wanneer u snel en flexibel bestandsgerelateerde informatie—zoals de werkbladnaam, werkboeknaam of het bestandspad—in de koptekst of voettekst wilt invoegen, biedt Kutools voor Excel een speciaal hulpprogramma genaamd Werkboekinformatie invoegen. Deze tool is ideaal als u een oplossing zonder code zoekt, batchverwerking nodig hebt of meerdere ingebouwde documenteigenschappen wilt invoegen—zonder handmatige invoer of risico op fouten. Kutools maakt het proces toegankelijk voor gebruikers die geen interactie met VBA willen of regelmatig kopteksten en voetteksten moeten bijwerken op basis van de metadata van de werkmap.
Na gratis installerenKutools voor Excel, volgt u deze stappen:
1. Ga naar het tabblad KUTOOLS PLUS en selecteer vervolgens Werkmap > Werkboekinformatie invoegen.
2. In het Werkboekinformatie invoegen-dialoogvenster selecteert u de specifieke informatie die u wilt invoegen (bijv. werkboekpad, bestandsnaam, werkbladnaam, enz.) onder het gedeelte Informatie. Geef vervolgens aan of u deze in de koptekst of voettekst wilt plaatsen door Koptekst of Voettekst aan te vinken.
Tip: U kunt de positie binnen de koptekst of voettekst kiezen—links, midden of rechts—met behulp van de locatie-opties. Dit is handig voor gestructureerde lay-outs, zoals het plaatsen van het bestandspad links en de bladnaam in het midden.
3. Klik op OK om uw instellingen toe te passen. Om de resultaten te controleren, gaat u naar Beeld > Pagina-indeling of gebruikt u Bestand > Afdrukvoorbeeld.
Met de functie Werkboekinformatie invoegenkunt u deze informatie ook rechtstreeks in cellen of een bereik van cellen invoegen—waardoor u dergelijke gegevens kunt gebruiken in formules, weergave of verdere automatiseringstaken.Klik hier voor meer informatie over deze tool.
Deze methode is vooral ideaal voor gebruikers die eenvoudig toegang willen tot documenteigenschappen, zonder macros of formules te hoeven gebruiken. In vergelijking met handmatig bewerken zorgt Kutools voor consistente resultaten en bespaart aanzienlijk tijd—vooral voor wie regelmatig documentverwijzingen moet bijwerken.
Als de informatie in uw koptekst of voettekst niet automatisch wordt bijgewerkt, controleer dan of de werkmap is ingesteld op handmatige berekening—want sommige kopteksten en voetteksten vereisen een vernieuwing van het document om de nieuwste gegevens weer te geven.
Celinhoud handmatig kopiëren naar het dialoogvenster voor koptekst/voettekst
Als u de koptekst of voettekst maar af en toe hoeft bij te werken met celinhoud en VBA of invoegtoepassingen wilt vermijden, kunt u de celwaarde eenvoudig kopiëren en handmatig plakken in het koptekst-/voettekstdialoogvenster. Dubbelklik op het koptekst-/voettekstgedeelte in de weergave Pagina-indeling en plak de celwaarde met Ctrl+V. Het nadeel? Het is handmatig — u moet de waarde elke keer opnieuw bijwerken zodra deze verandert.
Bij het gebruik van handmatige methoden of afdruk-titelbenaderingen dient u te onthouden dat deze minder dynamisch zijn voor „echte” koptekst- en voettekstplaatsing en telkens handmatige aanpassing vereisen wanneer de onderliggende informatie wijzigt. VBA-macro’s en tools zoals Kutools bieden daarentegen gestroomlijnde, herhaalbare workflows – vooral waardevol bij grote werkmappen of geautomatiseerde rapportgeneratie. Mocht u onverwacht gedrag of fouten ondervinden met VBA, controleer dan altijd uw macrobeveiligingsinstellingen en kijk of er vergrendelde cellen of beveiligde werkbladen actief zijn. Zorg er bij het gebruik van invoegtoepassingen van derden voor dat deze afkomstig zijn van betrouwbare bronnen en compatibel zijn met uw Excel-versie. En als u werkt met gevoelige of kritieke bestanden, is het een goede gewoonte om eerst een back-up op te slaan voordat u macro’s uitvoert.
Demo: Werkboekinformatie invoegen naar cel/koptekst/voettekst
Gerelateerde artikelen:
Hoe voegt u de bestandsnaam of het bestandspad in een cel, koptekst of voettekst in Excel in?
Hoe voegt u een koptekst, voettekst of koptekstafbeelding in Excel in of verwijdert u deze?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins