AW: Text in Fußzeile aus Zelle ziehen
29.01.2009 15:46:00
Oberschlumpf
Hi Sandra
Ändere den Code im Tabellenblatt "Erste Seite" so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" Then
MeineFussZeile ActiveSheet.Name
End If
End Sub
Schreib in dein Tabellenblatt mit dem Namen "Tabelle1" diesen Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" Then
MeineFussZeile ActiveSheet.Name
End If
End Sub
Ja, es ist derselbe Code wie auch in "Erste Seite", aber das ist auch genau so gewollt - und muss auch genau so eingetragen werden.
Dann ändere dein Makro mit dem Namen "MeineFusszeile" so:
Sub MeineFussZeile(ByVal blattname As String)
Dim XXText As String
Select Case blattname
Case "Erste Seite"
XXText = Sheets(blattname).Cells(6, 2)
Sheets("Erste Seite").PageSetup.LeftFooter = XXText
Case "Tabelle1"
XXText = Sheets(blattname).Cells(6, 2)
Sheets("DeineZweiteSeite").PageSetup.LeftFooter = XXText
Sheets("DeineDritteSeite").PageSetup.LeftFooter = XXText
End Select
End Sub
Anstelle von DeineZweiteSeite und DeineDritteSeite must du natürlich die richtigen Blattnamen eintragen, die ich nicht eintragen konnte, weil du sie nicht genannt hast.
Nun wird - in Abhängigkeit DES Tabellenblattes, in dem du den Wert in Zelle B6 geändert hast (also entweder "Erste Seite" oder "Tabelle1"), dort die Fußzeile geändert, wo du es wünschst.
Es funktioniert - ich hab es getestet ;-)
Läufts bei dir auch?
Nein, dann bitte eine vollständige Bsp-Datei.
Ciao
Thorsten