Cal--Zellinhalt in Fußzeile

[Meri]

Ich möchte eine Tabellenformatvorlage erstellen in der der Fußzeile u. a. der Inhalt einer bestimmten Zelle der Tabelle zugewiesen wird. Die Standardfenster bietet ja nur die Auswahl "fest eingegebener Text" oder/und die aufgeführten Feldbefehle "Seitenzahl......etc..." aber wie kann ich in die Fußzeile z.Bsp. den Inhalt der Zelle b7 einfügen ?
Eine Lösung habe ich hier noch nicht gefunden.....kann jemand helfen?

[yeti]

Hi,

Inhalte aus Zellen in die Fusszeile, funktioniert über Makros.
Ich habe hier im Forum (viewtopic.php?f=18&t=12916&start=0&hilit=fusszeile) ein Beispiel gefunden und für dich angepasst. Hier wird der Inhalt der Zelle A1 ausgegeben. Kannst du leicht anpassen.

Code: Alles auswählen

Sub WertFusszeile
   myDoc = thiscomponent
   StyleFamilies = myDoc.StyleFamilies
   PageStyles = StyleFamilies.getByName("PageStyles")
   DefPage = PageStyles.getByName("Standard")
   DefPage.HeaderIsOn = False 'Kopfzeile ausgeschaltet
   DefPage.FooterIsOn = True 'Fusszeile eingeschaltet
   HContent = DefPage.RightPageFooterContent
   myDoc = thisComponent
   mySheet = myDoc.sheets(0) 'Erstes Tabellenblatt
   mycell = mysheet.getCellRangeByName("A1") 'Wert Zelle A1
   myvalue=mycell.string
   HContent.RightText.String = myvalue
   HContent.LeftText.String = "" 'kein Text linker Bereich
   HContent.CenterText.String = "" 'kein Text rechter Bereich
   DefPage.rightPageFooterContent = Hcontent   
End Sub

Gruß Yeti

[Meri]

prima.......danke yeti