Excelsheet header image based on cell value

[HSV]

Goedemorgen.

Calculatieblad zat niet in het meegeleverd bestand, dus kon ik niet weten.
Als er wijzigingen in een tabblad plaats vinden die voor een ander blad bestemd zijn, dan is 'Me' daarvoor niet de juiste opdracht.
Me verwijst in deze naar hetzelfde blad waarin de code staat.

Maak er dit van.

sheets("calculatieblad").pagesetup[/COLOR]

 

[TJ86]

Harry,

mijn nederige excuses om je alweer lastig te vallen.. Ik heb de hele zaterdag zitten proberen maar ik het lukt me niet. Op geen enkele manier...

Ik heb een voorbeeld bestandje gemaakt : Bekijk bijlage Header_HSV.xlsb

Het gaat om de velden J6 en J11. Deze zouden dus moeten leiden naar bijvoorbeeld "Verhuur_Nederlands.jpg" of "Machinehandel_Duits.jpg".

Ik gebruik de code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Address
 Case "$J$6"
  Range("j11").ClearContents
 Case "$J$11"
  Sheets("Calculatieblad").PageSetup.CenterHeader = "&G"
  Sheets("Calculatieblad").PageSetup.CenterHeaderPicture.Filename = "C:\headers\" & Range("J6") & "_" & Target.Value & ".jpg"
End Select
Application.EnableEvents = True
End Sub

Thanks alvast!
Gr. Alain

 

[HSV]

Hallo Alain,

Ik heb werkelijk geen idee waarom het niet werkt bij jou.
Je werkt toevallig niet op een Mac?
Ook weet ik niet met welk office versie je werkt, en of daar weer een verschil zit.

Ik werk hier met Office 2007 en het werkt hier prima.