Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe celwaarde in header / footer in Excel te plaatsen?

We kunnen gemakkelijk een kop- of voettekst invoegen die bestandspad, bestandsnaam, huidige datum of andere informatie bevat met de functie van Excel, maar soms willen we een celwaarde gebruiken als kop- of voettekst in Excel. Hoe kunnen we de inhoud van een cel in de kop- of voettekst van 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 Koptools voor Excel in koptekst / voettekst goed idee3


goedWerkmapinformatie invoegen

Kutools for Excel's Werkmapinformatie invoegen hulpprogramma kan snel bladnaam, pad, gebruikersnaam en invoegen
zo naar een cel, koptekst of voettekst.
doc voeg werkboekinformatie in
Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Auto-tekst: Maak uw favoriete grafieken, afbeeldingen, cellen, complexe formules en hergebruiken ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen en gegevens bewaren; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.


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

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

2.Klik bijvoegsel > 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 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 header wilt plaatsen.doc-insert-cell-waarde te header1

4. En klik vervolgens op OK, deze opgegeven celwaarde is ingevoegd in de koptekst van het huidige werkblad. U kunt de koptekst bekijken door op te klikken filet > Print. Zie screenshot:doc-insert-cell-waarde te 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 ook de bovenstaande codes toepassen voor het invoegen van de celwaarde in de rechter koptekst / voettekst of de middelste koptekst / voettekst, vervangt u gewoon de LeftHeader / LeftFooter met RightHeader / RightFooter or CenterHeader / CenterFooter in de codes.


Soms wilt u kop- of voettekst invoegen met de inhoud van een geselecteerde cel op 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 toevoegen aan de footer of de hele werkmap.

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

2. Klikken bijvoegsel > moduleen plak de volgende code in de 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-waarde te header1

4. En klik vervolgens op OK, deze geselecteerde celwaarde is toegevoegd aan alle linkervellen van de werkbladen. U kunt het voetgedeelte bekijken door op te klikken filet > Print. Zie screenshot:

doc-insert-cell-waarde te 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 kop 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 RightHeader / Footer or CenterHeader / Footer gratis LeftHeader / Footer in de bovenstaande codes als u uw kop- of voettekst anders gepositioneerd wilt hebben.


Als u invoeginformatie wilt invoegen in de kop- of voettekst, zoals de werkblad- / werkboeknaam, het werkmappad enzovoort, kunt u deze gebruiken. Kutools for Excel's Werkmapinformatie invoegen hulpprogramma als u Kutools voor Excel hebt geïnstalleerd.

Kutools for Excel, met meer dan 120 handige Excel-functies, verbeter uw werkefficiëntie en bespaar uw werktijd.

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

1. klikken Enterprise > werkboek > Werkmapinformatie invoegen. Zie screenshot:
doc kte 1

2. In de Werkmapinformatie invoegen dialoogvenster, controleer de informatie die u nodig hebt om in te voegen Informatie sectie en vink aan Hoofd or footer Zoals je wilt.

Tip: u kunt de informatie invoegen op drie locaties van de koptekst of voettekst: midden, links of rechts.
doc voeg werkboek pad toe 1

3. klikken Ok. Ga dan naar View > Pagina layout om de kop te bekijken.
doc kte 3

Met Werkboekinformatie invoegen, kunt u ook bestandsinformatie invoegen in een cel of een cellenbereik. Klik hier voor meer informatie over dit hulpprogramma.



Kutools voor Excel: 300 + -functies die u in Excel moet hebben, Gratis 60-dagrit vanaf hier

Tip.Als u snel een werkmap in meerdere werkmappen / pdf-bestanden of csv-bestanden wilt splitsen, probeer dan de Kutools voor Excel's te gebruiken Werkboek splitsen zoals getoond in de volgende screenshot. Het is volledig functioneel zonder beperking in 60-dagen,download en heb nu een gratis proefversie.

doc gesplitst werkboek

Gerelateerde artikelen:

Hoe voeg je de bestandsnaam of het pad in in de cel / koptekst of voettekst in Excel?

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


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 1 months 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 months 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 · 4 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 · 4 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 · 1 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 · 4 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