Hoe een celwaarde in koptekst/voettekst in Excel te plaatsen?

We kunnen eenvoudig een koptekst of voettekst invoegen die het bestandspad, de bestandsnaam, de huidige datum of andere informatie bevat met behulp van de functie van Excel. Maar soms willen we een celwaarde gebruiken als koptekst of voettekst in Excel. Hoe kunnen we de inhoud van een cel in de koptekst of voettekst van het werkboek plaatsen?

Plaats een celwaarde in de koptekst of voettekst van een werkblad met VBA-code

Plaats een celwaarde in de koptekst of voettekst van alle werkbladen met VBA-code

Voeg bestandsinformatie in de koptekst/voettekst in met Kutools voor Excel

Plaats een celwaarde in de koptekst of voettekst van een werkblad met VBA-code

Als u de inhoud van een cel in de koptekst of voettekst van het huidige werkblad wilt plaatsen, kan de volgende VBA-code u helpen. Volg de volgende stappen:

1. Activeer uw werkblad waarin u een koptekst of voettekst met een celwaarde wilt invoegen, druk vervolgens op ALT + F11 en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.

VBA-code: plaats een specifieke 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 vervolgens op de F5-toets om deze code uit te voeren, er verschijnt een dialoogvenster dat u eraan herinnert een cel te selecteren waarvan u de inhoud in de koptekst wilt plaatsen.

4En klik vervolgens op OK, deze specifieke celwaarde is ingevoegd in de linker koptekst van het huidige werkblad. U kunt de koptekst bekijken door te klikken op Bestand > Afdrukken. Zie screenshot:

Opmerkingen:

1. Als u de celinhoud als voettekst van het actieve werkblad wilt gebruiken, kunt u deze code toepassen:

VBA-code: plaats een specifieke 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

2. U kunt ook bovenstaande codes gebruiken om celwaarden in de rechter- of middenkoptekst/voettekst in te voegen, vervang daarvoor gewoon LinksKoptekst / LinksVoettekst door RechtsKoptekst / RechtsVoettekst of MiddenKoptekst / MiddenVoettekst in de codes.

Plaats een celwaarde in de koptekst of voettekst van alle werkbladen met VBA-code

Soms wilt u een koptekst of voettekst met de inhoud van een geselecteerde cel invoegen in alle werkbladen van uw geopende werkboek. Met de bovenstaande code moet u dit keer op tijd herhalen. In dit geval kan de volgende VBA-code de celinhoud in één keer aan de koptekst of voettekst van het hele werkboek toevoegen.

1. Activeer uw werkboek waarin u een koptekst of voettekst met een celwaarde wilt invoegen, druk vervolgens op ALT + F11 en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.

VBA-code: plaats een specifieke celwaarde in de 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 vervolgens op de F5-toets om deze code uit te voeren, er verschijnt een dialoogvenster dat u eraan herinnert een cel te selecteren waarvan u de inhoud in de voettekst van het hele werkboek wilt plaatsen.

4. Klik vervolgens op OK, deze geselecteerde celwaarde is toegevoegd aan de linker voettekst van alle werkbladen. U kunt de voettekst bekijken door te klikken op Bestand > Afdrukken. Zie screenshot:

Opmerkingen:

1. Als u de celinhoud als koptekst van het hele werkboek wilt gebruiken, kunt u deze code toepassen:

VBA-code: plaats een specifieke celwaarde in de 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

2. Vervang RechtsKoptekst/Voettekst of MiddenKoptekst/Voettekst voor LinksKoptekst/Voettekst in bovenstaande codes als u de positie van uw koptekst of voettekst anders wilt hebben.

Voeg bestandsinformatie in de koptekst/voettekst in met Kutools voor Excel

Als u bestandsinformatie in de koptekst of voettekst wilt invoegen, zoals werkblad/werkboeknaam, werkboekpad enzovoort, kunt u de functie Werkboekinformatie invoegen van Kutools voor Excel gebruiken als u Kutools voor Excel heeft geïnstalleerd.

Na het gratis installeren van Kutools voor Excel, doe dan het volgende:

1. Klik op Kutools Plus > Werkboek > Werkboekinformatie invoegen. Zie screenshot:

2. Selecteer in het dialoogvenster Werkboekinformatie invoegen de informatie die u onder de sectie Informatie wilt invoegen en vink Koptekst of Voettekst aan naar wens.

Tip: u kunt de informatie op drie locaties van de koptekst of voettekst invoegen: midden, links of rechts.

3. Klik op Ok. Ga vervolgens naar Weergave > Pagina-indeling om de koptekst te bekijken.

Met Werkboekinformatie invoegen kunt u ook bestandsinformatie in een cel of een bereik van cellen invoegen. Klik hier om meer over dit hulpprogramma te weten te komen.

Demo: Werkboekinformatie in cel/koptekst/voettekst invoegen

Tip. Als u een werkboek snel in meerdere werkboeken/pdf-bestanden of csv-bestanden wilt splitsen, probeer dan de functie Werkboek splitsen van Kutools voor Excel zoals in de volgende schermafbeelding te zien. Het heeft volledige functionaliteit zonder beperkingen in 30 dagen, download het nu en probeer het gratis uit.

Gerelateerde artikelen:

Hoe een bestandsnaam of pad in een cel / koptekst of voettekst in Excel te plaatsen?

Hoe een koptekst, voettekst en koptekstafbeelding in Excel in te voegen en te verwijderen?