title image


Smiley Alte Frage, neue Antwort
Hi Martin,



kopiere diesen Code in "DieseArbeitsmappe":







Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim c As Range

For Each c In Target

    If c.Address(0, 0) = "A1" Then ActiveSheet.PageSetup.RightFooter = c.Value

Next

End Sub





Code eingefügt mit Syntaxhighlighter 4.0





Wenn die Zelle A1 geändert wird, wird in der rechten Fußzeile der Text übernommen. Zelle und Fußzeilenbereich (Leftfooter oder Centerfooter) kannst du noch anpassen. Der Code gilt dann für die gesamte Mappe.


Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: