Koptekst uit cel halen van ander tabblad

[Flawless]

Goedemorgen,

Ik heb een opdracht in excel en deze bestaat uit een stuk of 15 tabbladen en 1 centraal 'knoppenblad' waar links staan mbv macro naar de verschillende de bladen maar er staat ook een NAW gegevens op..

Nu wil ik van de koptekst de naam maken die op het centrale blad word ingevuld. Dus op 'Blad1' staat een naam en die naam wil ik op 'Blad2/3/4' etc. gebruiken voor de koptekst.

Oftewel tekst uit Blad1!A1 = Koptekst Blad2

Weet iemand hier een oplossing voor of kan dit helemaal niet?

BVD

Groeten,
-Flawless

 

[tilpi]

Dit zal het wel doen.

Sub koptekst()
Dim x As Integer
For x = 2 To Sheets.Count
    With Sheets(x).PageSetup
        .LeftHeader = Sheets("Blad1").Range("A1")
    End With
Next
End Sub

Wil je hem in het midden dan .CenterHeader en rechts .RightHeader

Mvg

Piet

 

[tilpi]

En als hij alleen maar in de printout hoeft dan

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
  ActiveSheet.PageSetup.LeftHeader = _ 
    Sheets("Blad1").Range("A1")
End Sub

Deze code in ThisWorkbook

Mvg

Piet

 

[Flawless]

Dit zal het wel doen.

Sub koptekst()
Dim x As Integer
For x = 2 To Sheets.Count
    With Sheets(x).PageSetup
        .LeftHeader = Sheets("Blad1").Range("A1")
    End With
Next
End Sub

Wil je hem in het midden dan .CenterHeader en rechts .RightHeader

Mvg

Piet

Allereerst bedankt voor je snelle reactie:thumb:, alleen de code werkt niet bij mij.. ik heb de code geplakt in de programma code van het betreffende werkblad en de namen aangepast naar mijn 'setup', wellicht dat ik hier wat fout doe?!

Sub koptekst()
Dim x As Integer
For x = 2 To Sheets.Count
    With Sheets(x).PageSetup
        .CenterHeader = Sheets("Knoppenblad").Range("E6")
    End With
Next
End Sub

Groet,
-Flawless

 

[Wigi]

Die code komt in een module.

Gewoon voor de zekerheid dat ik het vraag... je hebt die code toch al uitgevoerd?

 

[Flawless]

Die code komt in een module.

Gewoon voor de zekerheid dat ik het vraag... je hebt die code toch al uitgevoerd?

Module? Verklaar u nader..

De code die ik aangepast heb, heb ik inderdaad uitgeprobeerd.. gewoon door te printen

Groeten,
Flawless

 

[Wigi]

Module? Verklaar u nader..

Invoegen | Module...

 

[Finch]

De code die ik aangepast heb, heb ik inderdaad uitgeprobeerd.. gewoon door te printen

Gewoon door te printen gaat die code niet uitgevoerd worden (ik neem aan dat je ge ze niet in het event beforeprint hebt geplaatst). Je moet die code ook uitvoeren, bv. door nadat je ze in een module hebt ondergebracht, druk je Alt+F8, selecteert dan de gewenste code en drukt op uitvoeren. Je kan ze echter ook aan een knop koppelen, vanuit de VBE uitvoeren, enz.

 

[Flawless]

Invoegen | Module...

[OFFTOPIC]Thx.. ben nog niet erg thuis in VB[\OFFTOPIC]

Anyway ik heb met behulp van Finch de code uitgevoerd en hij werkt:thumb:

Maar nu word deze tekst niet geupdate zodra ik hem aanpas..:O Kan hier ook nog voor gezorgd worden?

-Flawless

 

[tilpi]

Zet onderstaande in de werkbladcode van Blad1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
If Not Target = Range("A1") Then Exit Sub
For x = 2 To Sheets.Count
    With Sheets(x).PageSetup
        .LeftHeader = Sheets("Blad1").Range("A1")
    End With
Next
End Sub

Mvg

Piet

 

[Flawless]

Zet onderstaande in de werkbladcode van Blad1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
If Not Target = Range("A1") Then Exit Sub
For x = 2 To Sheets.Count
    With Sheets(x).PageSetup
        .LeftHeader = Sheets("Blad1").Range("A1")
    End With
Next
End Sub

Mvg

Piet

Werkt wel! iets vergeten aan te passen in de code.. overheen gelezen.. :O

Bedankt voor alle hulp!:thumb: werkt echt super

Toch nog ergens achter gekomen, zodra ik de cel leegmaak waaruit de code de naam uithaalt krijg ik een foutmelding: Fout 13 tijdens uitvoering, Typen komen niet met elkaar overeen

De fout zou in het volgende stukje code zitten: If Not Target = Range("E6") Then

na veel #$^#$^ opgelost

Groeten,
Flawless