Zellenwert in die Fußzeile einfügen
03.03.2003 14:03:38
Nicky
ich möchte der Wert der Zelle "D5" in den mittleren Fußzeilenbereich
einfügen. Der folgenden Code funktionert leider nicht:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim str As String
'On Error GoTo Fehler
str = Tabelle2.Range("d5").Value
Tabelle2.PageSetup.CenterFooter = str
Exit Sub
Fehler:
Exit Sub
End Sub
Kann mir jamand die richtige Lösung verraten?
Vielen Dank im vorraus
Nicky
Anzeige