inhoud cel in voet-/koptekst

[mooske04]

Luitjes,

ik wil graag de inhoud van cel D14 op Blad 1 opnemen in de voettekst van mijn excelbestand in blad 2 en blad 3, zodat wanneer deze inhoud gewijzigd wordt, deze ook doorgevoerd wordt in de voettekst. Hoe doe ik dat??

 

[spaarie]

Plaats onderstaande code in de module van je Blad1 in je bestand

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim voetnoot As String
voettekst = Sheets(1).Range("D14").Value
If Range("D14").Value <> 0 Then
For i = 2 To Sheets().Count
   With Sheets(i).PageSetup
        .CenterFooter = voettekst
    End With
Next i
End If
End Sub

 

[mooske04]

Hmm, werkt nog niet. Ik gok dat ik "sheets (1)" moet vervangen door de naam van mijn "blad 1" ?

 

[mooske04]

Herstel, het werkt wel, maar ik wil er nog graag een stukje tekst aan toevoegen, "behoort bij" en dan de waarde uit D14....

 

[koster1984]

Pas onderstaand stukje aan:

voettekst = [COLOR="#FF0000"]"Behoort bij: " & [/COLOR]Sheets(1).Range("D14").Value

 

[mooske04]

Helemaal top!!! bedankt!