VBA verwijzing naar cel.

[Severance1]

Hallo,

Ik ben bezig met pagina instellingen maar nu loop ik tegen een probleem aan.
Is het mogelijk dat ik in de pagina instellingen naar een cel verwijs.
Ik heb alles in een macro zitten.

Dit is het gedeelte van de macro:
.CenterHeader = "='Uren Totaal'!R34C4"

Ik zou hem nu graag naar die cel willen verwijzen maar krijg gewoon de tekst wat er letterlijk in staat.

Bij voorbaat dank,

Boudewijn.

 

[Hoornvan]

Severance1,

Ik heb de formule even met de recorder opgenomen en kwam tot dit resultaat.
Probeer hem even.

.CenterHeader = "='Uren Totaal'!R[34]C[4]"

 

[Severance1]

Severance1,

Ik heb de formule even met de recorder opgenomen en kwam tot dit resultaat.
Probeer hem even.

.CenterHeader = "='Uren Totaal'!R[34]C[4]"

Heb het geprobeerd maar werkt niet .

 

[Hoornvan]

Ik heb dus niet de gehele macro maar heb het voor me zelf even aangepast.

 

[Severance1]

Ik heb dus niet de gehele macro maar heb het voor me zelf even aangepast.

Sub Printen_32()
'
' Printen_test Macro
' De macro is opgenomen op 23-2-2010 door tiggelaarb.
'

'
ActiveSheet.ChartObjects("Grafiek 32").Activate
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
With ActiveChart.PageSetup
.LeftHeader = ""
.CenterHeader = "=UrenTotaal!R[34]C[4]"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = Format(Now, "DD mmmm YYYY")
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.ChartSize = xlFullPage
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.BlackAndWhite = False
.Zoom = 100
End With
Application.ActivePrinter = "\\ps01\K204 - HP2015 - LADE2 - LOGO op Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\ps01\K204 - HP2015 - LADE2 - LOGO op Ne04:", Collate:=True
ActiveSheet.ChartObjects("Grafiek 32").Activate
ActiveWindow.Visible = False
End Sub

Dit is de hele macro.

Het is de bedoeling dat .CenterHeader = verwijst naar een cel in de werkmap.

 

[Hoornvan]

Severance1,

Van een print macro heb ik helaas geen verstand.
Kun je dat stukje niet met de recorder opnemen en dan zonodig aanpassen?
Hier moet ik afhaken.

In mijn bestandje werkt het wel maar dit is andere koek.

Suc6

 

[Warme bakkertje]

.CenterHeader = [UrenTotaal!D34]

 

[Severance1]

.CenterHeader = [UrenTotaal!D34]

Jammer werkt niet . Toch bedankt

 

[Warme bakkertje]

Is je bladnaam nu aan elkaar geschreven of niet ?
in Post #1 schrijf je

.CenterHeader = "='Uren Totaal'!R34C4"

en bij je macro in Post #5 schrijf je

.CenterHeader = "=UrenTotaal!R[34]C[4]"

 

[Severance1]

Is je bladnaam nu aan elkaar geschreven of niet ?
in Post #1 schrijf je

en bij je macro in Post #5 schrijf je

Sorry voor de verwaring het is met een spatie er tussen.
Ik heb dit .CenterHeader = [Uren Totaal!D34] ook geprobeerd.
Het zijn trouwens de pagina instellingen van een grafiek, ik weet niet of dat nog relevant is.

 

[Warme bakkertje]

.CenterHeader = ['Uren Totaal'!D34]

 

[Severance1]

.CenterHeader = ['Uren Totaal'!D34]

Super het werkt zeer bedankt. Wat twee ' ' wel niet kunnen doen .