Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe celwaarde in koptekst / voettekst in Excel te plaatsen?

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

Zet de celwaarde in de kop- of voettekst van een werkblad met VBA-code

Zet de celwaarde in de kop- of voettekst van alle werkbladen met VBA-code

Voeg bestandsinformatie in kop- / voettekst in met Kutools voor Excel goed idee 3


Als u een celinhoud in de kop- of voettekst van het huidige werkblad wilt plaatsen, kan de volgende VBA-code u helpen. Voer de volgende stappen uit:

1. Activeer uw werkblad dat u herder of voettekst wilt invoegen met een celwaarde, en houd vervolgens de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2.Klik Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: plaats een opgegeven 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 F5 toets om deze code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren een cel te selecteren waarvan u de inhoud in de koptekst wilt plaatsen.doc-insert-cell-value-to-header1

4. En klik vervolgens op OK, is deze gespecificeerde celwaarde ingevoegd in de linker koptekst van het huidige werkblad. U kunt de koptekst bekijken door op te klikken Dien in > Print. Zie screenshot:doc-insert-cell-value-to-header1

Opmerkingen:

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

VBA-code: plaats een opgegeven 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 de bovenstaande codes ook toepassen om de celwaarde in de rechterkoptekst / voettekst of de middelste koptekst / voettekst in te voegen, vervang gewoon de Linkerkoptekst / Linkervoettekst die al met Countr werken RechtsHeader / Rechtsvoettekst or CenterHeader / Middenvoettekst in de codes.


Soms wilt u een koptekst of voettekst met de inhoud van een geselecteerde cel invoegen in alle werkbladen van uw openingswerkmap, met de bovenstaande code moet u ze keer op keer herhalen. In dit geval kan de volgende VBA-code de celinhoud in één keer aan de herder of voettekst van de hele werkmap toevoegen.

1. Activeer uw werkmap waarin u een herder of voettekst wilt invoegen met een celwaarde en houd vervolgens de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: plaats een opgegeven 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 F5 toets om deze code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren een cel te selecteren waarvan u de inhoud in de voettekst van de hele werkmap wilt plaatsen.

doc-insert-cell-value-to-header1

4. En klik vervolgens op OKis deze geselecteerde celwaarde toegevoegd aan de linkervoettekst van alle werkbladen. U kunt de voettekst bekijken door op te klikken Dien in > Print. Zie screenshot:

doc-insert-cell-value-to-header1

Opmerkingen:

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

VBA-code: plaats een opgegeven 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. Plaatsvervanger Rechter koptekst / voettekst or CenterHeader / Footer heeft gewacht LeftHeader / Footer in de bovenstaande codes als u uw kop- of voettekst anders wilt plaatsen.


Als u bestandsinformatie in de koptekst of voettekst wilt invoegen, zoals werkblad- / werkmapnaam, werkmappad enzovoort, kunt u deze gebruiken Kutools for Excel's Voeg werkmapinformatie in hulpprogramma als u Kutools voor Excel hebt geïnstalleerd.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. klikken Kutools Plus > werkboek > Voeg werkmapinformatie in. Zie screenshot:
doc kte 1

2. In de Voeg werkmapinformatie in dialoogvenster, controleer de informatie die u moet invoegen onder Informatie sectie en controleer Voorvoegsel or footer Zoals je wilt.

Tip: u kunt de informatie invoegen op drie locaties van kop- of voettekst: midden, links of rechts.
doc werkmappad invoegen 1

3. klikken Ok. Dan kun je naar Bekijk > Pagina layout om de koptekst te bekijken.
doc kte 3

Met Werkmapinformatie invoegen kunt u ook bestandsinformatie invoegen in een cel of een celbereik. Klik hier voor meer informatie over dit hulpprogramma.



Tip.Als u snel een werkmap wilt splitsen in meerdere werkmappen / pdf-bestanden of csv-bestanden afzonderlijk, probeer dan de Kutools voor Excel's te gebruiken Werkmap splitsen zoals weergegeven in de volgende schermafbeelding. Het is volledig functioneel zonder beperking in 30 dagen, download en maak nu een gratis proefversie.

doc gesplitste werkmap

Gerelateerde artikelen:

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

Hoe een koptekst, voettekst en koptekstafbeelding in Excel invoegen en verwijderen?


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dani · 2 years ago
    Hi,

    This appears to only work once.
    What if the value of the cell changes?
    Is there a way to link the cell so the header changes when the cell value changes?

    I have a workbook where I have three sheets.

    Sheet 1 labeled "Deletion Sheet" - Sheet we send to the warehouse with info what to palatalize for the order
    Sheet 2 labeled "OA" - My order acknowledgement to the customer which pulls most of the data from the first sheet including the Order number which I need to have in my header. So I am trying to link the Header to the cell in this page with the order number (F5) which gets it's value from (C7) in the first work sheet ("Deletion Sheet")
    Sheet 3 labeled "Invoice - Invoice which also pulls most of the same information from the first sheet which would also need the header to include the value (F5) of this sheet taken from (C7) in "Deletion Sheet"
  • To post as a guest, your comment is unpublished.
    Mickey · 2 years ago
    When using your "VBA code: put a specified cell value in header of all worksheets", I would like the value placed to be formatted: Tahoma, bold, in font size 12.
    How can this be added to your code?
  • To post as a guest, your comment is unpublished.
    Claire · 6 years ago
    Hi There,

    Is there a way that you can add a cell value which takes account of applied filters?

    For example...

    A1 = Monday
    A2 = Tuesday
    A3 = Wednesday.

    Using the VBA code to display cell A1 will work initially, but once I apply a filter on days of the week, the "top" cell value is no longer A1.

    Is there a way to pick up the variable?

    Many thanks,
  • To post as a guest, your comment is unpublished.
    saeid mohammadi · 6 years ago
    I want to insert four cells in header.This VB is only for one cell.
    How can I do it.
    Thanks
    • To post as a guest, your comment is unpublished.
      Ridhwan · 3 years ago
      You can try Concatenating the value of rht four cells into a single cell and then use the single cell as the header.
  • To post as a guest, your comment is unpublished.
    Jeffrey Hulbert · 6 years ago
    I needed to insert an active payroll date range into multiple sheets. The user opens the Payroll Date sheet, enters the date range and before she prints it updates all the sheets in the workbook.

    Here is how I am able to insert multiple cells into the range with a bit less code 2010 compatible:

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim WorkRng As Range
    On Error Resume Next
    For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value
    Next
    End Sub