Clever-Excel-Forum

Hallo liebe Gemeinde,

für ein mehrseitiges Rechnungsformular soll die Rechnungsnummer aus Zelle AG1 und der Bezeichnungstext aus Zelle W1 im LeftFooter dargestellt werden. Wenn ich das Makro händisch im Editor starte, bekomme ich das schon hin. Ich brauche es aber automatisch aktualisiert, wenn sich in Zelle AG1 der Wert ändert. Wo liegt mein Fehler?

Sub PfadInFusszeile(ByVal Target As Range)
Dim txt
Dim KeyCells As Range

Set KeyCells = Range("AG1")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
          Is Nothing Then

txt = Range("Rechnung!W1").Value & Range("Rechnung!AG1").Value
ActiveSheet.PageSetup.LeftFooter = txt

End If
End Sub

Vielen Dank für Eure Unterstützung,
Andreas

Hallo

dazu musst du ein Ereignis auslösen, Eingabe in die Zelle AG1. Der Code gehört nicht in ein Modul, sondern direkt in das Sheet "Rechnung".
Als Target Makro! Das geht einfacher ohne Intersect, weil es ja nur eine Zelle ist!

mfg Gast 123

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Txt As String
If Target.Address = "$AG$1" Then
Txt = Range("W1") & Range("AG1")
ActiveSheet.PageSetup.LeftFooter = Txt
End If
End Sub

Vielen Dank für Deine Unterstützung