Ich möchte gerne, wenn der Zellinhalt einer Zelle den Wert xyz hat eine benutzerdefinierte Fußzeile einfügen, ansonsten nicht. Geht das?
Liebe Grüße,
Martin
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = "" Then
ActiveSheet.PageSetup.LeftFooter = ""
Else
ActiveSheet.PageSetup.LeftFooter = "-" & Target.Value & "-"
End If
End If
End Sub
Gruß Matthias