Text aus Zelle in Fußzeile
25.07.2006 09:25:04
Thomas
ich möchte einen Text aus einer Zelle (AE1) automatisch in die Fußzeile (CenterFooter) übernehmen.
Ich hab hier schon gesucht, auch was gefunden, s. u.
Nur ich bekomm es nicht hin. Wie bring ich das Macro zum Funktionieren.
Wie muss es eingebunden werden? Muss ich ein Befehl in die Fußzeile schreiben?
Im Forum gefundene Macros:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$Ae$1" Then
ActiveSheet.PageSetup.CenterFooter = Target
End If
End Sub
...........................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
Me.PageSetup.CenterFooter = Range("B1").Text
End If
End Sub
Vielen Dank für Eure Hilfe.
Grüße
Thomas
Anzeige