Hoe een celwaarde in koptekst/voettekst in Excel te plaatsen?
In Microsoft Excel is het eenvoudig om informatie zoals het bestandspad, bestandsnaam, huidige datum of andere ingebouwde details in kopteksten of voetteksten te plaatsen met behulp van de standaardfuncties van Excel. Er zijn echter scenario's waarin je de daadwerkelijke inhoud van een specifieke cel als koptekst of voettekst wilt gebruiken. Deze mogelijkheid wordt niet direct geboden door het standaardinterface van Excel, wat leidt tot de vraag: hoe kun je een celwaarde in een koptekst of voettekst in je werkblad invoegen? Veel gebruikers komen deze vereiste tegen bij het voorbereiden van rapporten, formulieren of gegevensexports waar dynamische informatie, zoals een klantennaam of een aangepaste datum, in de afdrukkop of -voettekst moet worden weerspiegeld, zodat elke afdruk de meest recente context uit het blad zelf bevat. De onderstaande oplossingen voldoen aan deze behoefte en laten zowel VBA- als derdenmethoden zien en bespreken wanneer elke methode het meest geschikt is.
Plaats celwaarde in koptekst of voettekst van een werkblad met VBA-code
Plaats celwaarde in koptekst of voettekst van alle werkbladen met VBA-code
Voeg bestandsinformatie in koptekst/voettekst in met Kutools voor Excel 
Kopieer celinhoud handmatig naar het koptekst- of voettekstvenster
Plaats celwaarde in koptekst of voettekst van een werkblad met VBA-code
Als je de inhoud van een specifieke cel in de koptekst of voettekst van je huidige werkblad wilt weergeven, is dit niet mogelijk via Excel’s standaard koptekst/voettekst interface. Je kunt dit echter bereiken met behulp van een eenvoudige VBA-macro.
Sla eerst je werkboek op voordat je VBA-code uitvoert, omdat macros objecten wijzigen en niet ongedaan kunnen worden gemaakt. Zorg er ook voor dat je Excel-instellingen macros toestaan.
1. Activeer het werkblad waar je een celwaarde in de koptekst of voettekst wilt plaatsen. Druk op ALT + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de volgende code in het nieuwe modulevenster.
VBA-code: plaats een gespecificeerde celwaarde in de koptekst van een werkblad
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 dat je vraagt om de cel te selecteren waarvan je de waarde wilt gebruiken in de koptekst.
4. Nadat je de cel hebt geselecteerd en op OKhebt geklikt, wordt de waarde van de gekozen cel ingevoegd in de linker koptekst van je actieve werkblad. Om de koptekst te bekijken, ga je naar Bestand > Afdrukken (of gebruik Pagina-indeling weergave). Zie onderstaand voorbeeld:
Opmerkingen:
- Als je de inhoud van de cel in de voettekst in plaats van de koptekst wilt weergeven, gebruik dan de volgende code. De operationele stappen zijn hetzelfde—plak deze code gewoon in een module en voer deze uit.
VBA-code: plaats een gespecificeerde celwaarde in de voettekst van een werkblad
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, vervang LeftHeader of LeftFooter in de code indien nodig door CenterHeader, RightHeader, CenterFooter of RightFooter. Bijvoorbeeld, om de waarde in de middenkoptekst in te voegen, verander je
LeftHeadernaarCenterHeader. - Zorg er altijd voor dat de celverwijzing geldig is voordat je het script uitvoert. Als je probeert naar een lege cel te verwijzen, blijft de koptekst/voettekst leeg.
- Na het uitvoeren van de macro, als je de broncel wijzigt, wordt de koptekst/voettekst niet automatisch bijgewerkt; je moet de macro opnieuw uitvoeren om de weergegeven informatie bij te werken.
- Deze VBA-methode wordt aanbevolen wanneer je cel-naar-koptekstacties wilt automatiseren zonder frequente updates nodig te hebben, of wanneer je werkt aan sjablonen met dynamische inhoud per afdruk.
- Als je een waarschuwing “Macros zijn uitgeschakeld” tegenkomt, zorg er dan voor dat macro-instellingen zijn ingeschakeld in Bestand > Opties > Trust Center.
Plaats celwaarde in koptekst of voettekst van alle werkbladen met VBA-code
Wanneer je de waarde van een specifieke cel als koptekst of voettekst over alle bladen in je werkboek wilt toepassen, zou het tijdrovend zijn om de vorige code voor elk werkblad afzonderlijk uit te voeren. In dergelijke gevallen kun je een andere VBA-macro gebruiken die is ontworpen om de inhoud van een gekozen cel in de koptekst of voettekst van elk werkblad in je werkboek in één keer in te voegen. Dit is gebruikelijk bij het distribueren van rapporten die consistent koptekst-/voettekstinformatie moeten bevatten.
1. Open het werkboek waarin je de wijziging wilt toepassen en druk op ALT + F11 om het Visual Basic for Applications-venster te openen.
2. Klik in de VBA-editor op Invoegen > Module, kopieer en plak vervolgens de volgende macro in het modulevenster.
VBA-code: plaats een gespecificeerde celwaarde in voettekst van alle werkbladen
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 je de doelcel kunt selecteren waarvan de waarde in elke werkbladvoettekst moet verschijnen.
4. Zodra je de cel hebt geselecteerd en op OKhebt geklikt, wordt deze celwaarde ingevoegd in de linkervoettekst van elk werkblad in het werkboek. Je kunt de voetteksttoewijzing controleren door naar te navigeren naar Bestand > Afdrukken.
Opmerkingen:
- Om een celwaarde in de koptekst over alle werkbladen te gebruiken, pas dan de volgende code toe. Het proces voor het invoeren en uitvoeren van de code is identiek:
VBA-code: plaats een gespecificeerde celwaarde in koptekst van alle werkbladen
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
- Om de waarde in de rechter- of middenpositie van de koptekst/voettekst in te voegen, vervang je gewoon LeftHeader/LeftFooter door CenterHeader/CenterFooter of RightHeader/RightFooter in het script.
- Houd er rekening mee dat ongedaanmaakacties niet van toepassing zijn op wijzigingen die met VBA-macros zijn gemaakt. Sla je document van tevoren op om gegevensverlies te voorkomen als het resultaat onverwacht is.
- Deze aanpak is het beste voor werkboeken waarin alle bladen gemeenschappelijke koptekst-/voettekstvereisten delen. Wanneer bladen verschillende inhoud nodig hebben, overweeg dan om de enkele-bladmethode apart op elk blad uit te voeren.
- Als je problemen tegenkomt waarbij kopteksten/voetteksten niet zoals verwacht worden bijgewerkt, zorg er dan voor dat je geen Beveiligde Bladen of Werkboekbeveiliging hebt ingeschakeld.
Voeg bestandsinformatie in koptekst/voettekst in met Kutools voor Excel
In gevallen waarin je snel en flexibel bestandsgerelateerde informatie—zoals de werkbladnaam, werkboeknaam of bestandspad—wilt invoegen in de koptekst of voettekst, biedt Kutools voor Excel een speciale tool genaamd Werkboekinformatie Invoegen. Deze tool is vooral geschikt als je een oplossing zonder code verkiest, batchverwerking nodig hebt, of verschillende ingebouwde documenteigenschappen wilt invoegen zonder handmatige invoer of risico op fouten. Kutools maakt het proces toegankelijk voor gebruikers die niet met VBA willen interacteren of regelmatig kopteksten/voetteksten moeten bijwerken op basis van werkboekmetadata.
Na het gratis installeren van Kutools voor Excel, volg je deze stappen:
1. Ga naar de Kutools Plus tab, selecteer vervolgens Werkboek > Werkboekinformatie Invoegen.
2. Selecteer in het Werkboekinformatie Invoegen-dialoogvenster de specifieke informatie die je wilt invoegen (bijv., werkboekpad, bestandsnaam, werkbladnaam, etc.) onder de Informatie-sectie. Specificeer vervolgens of je het in de koptekst of voettekst wilt invoegen door Koptekst of Voettekst aan te vinken.
Tip: Je kunt de positie binnen de koptekst of voettekst—midden, links of rechts—kiezen met behulp van de locatieopties. 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 je instellingen toe te passen. Om de resultaten te bekijken, ga je naar Weergave > Pagina-indeling of gebruik Bestand > Afdrukvoorbeeld.
Met de Werkboekinformatie Invoegen-functie kun je deze informatie ook rechtstreeks in cellen of een bereik van cellen invoegen—waardoor je dergelijke details kunt gebruiken voor formules, weergave of verdere automatiseringstaken. Klik hier om meer te weten te komen over dit hulpmiddel.
Deze methode werkt vooral goed voor gebruikers die gemakkelijk toegang willen tot documenteigenschappen zonder met macro's of formules te hoeven werken. In vergelijking met handmatig bewerken, zorgt Kutools voor consistentie en bespaart het aanzienlijke tijd, vooral voor hen die regelmatig documentverwijzingen moeten bijwerken.
Als de informatie in je koptekst of voettekst niet lijkt te worden bijgewerkt, controleer dan of het werkboek is ingesteld op Handmatige Berekening, omdat sommige kopteksten/voetteksten een documentvernieuwing vereisen om de nieuwste gegevens weer te geven.
Celinhoud handmatig kopiëren naar het koptekst- of voettekstvenster
Als je de koptekst of voettekst alleen af en toe met celinhoud wilt bijwerken en VBA en invoegtoepassingen wilt vermijden, kun je de celwaarde kopiëren en handmatig in het koptekst-/voettekstvenster plakken. Dubbelklik op de koptekst-/voettekstsectie in Pagina-indeling-weergave en plak de celwaarde met Ctrl+V. Het nadeel is dat dit handmatig is—je moet de waarde elke keer bijwerken als deze verandert.
Bij het gebruik van handmatige of afdruktitelbenaderingen, vergeet dan niet dat ze minder dynamisch zijn voor "echte" koptekst-/voettekstplaatsing en actie vereisen elke keer dat de onderliggende informatie verandert. Aan de andere kant bieden VBA-macros en tools zoals Kutools gestroomlijnde, herhaalbare workflows die vooral nuttig zijn voor grote werkboeken of geautomatiseerde rapportgeneratie. Als je onverwacht gedrag of fouten tegenkomt met VBA, controleer dan altijd je macro-beveiligingsinstellingen en inspecteer op vergrendelde of beveiligde werkbladen. Controleer voordat je derden-invoegtoepassingen gebruikt, of ze afkomstig zijn van gerenommeerde bronnen en compatibel zijn met je Excel-versie. Bij het werken met gevoelige of kritieke bestanden, is het een goede praktijk om een back-up op te slaan voordat je macros uitvoert.
Demo: Werkboekinformatie invoegen in cel/koptekst/voettekst
Gerelateerde artikelen:
Hoe een bestandsnaam of pad in een cel / koptekst of voettekst in Excel invoegen?
Hoe een koptekst, voettekst en koptekstafbeelding invoegen en verwijderen in Excel?
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