Supportnet / Forum / Tabellenkalkulation
Excel XP - Zelleintrag in Fusszeile übernehmen
Frage
Ich möchte gerne den Inhalt einer Zelle automatisch in die Fusszeile übernehmen:
In der Zelle A38 des Tabellenblattes "Dateneingabe" steht eine Versionsnummer "V2-2005", diese möchte ich gerne beim Drucken des Tabellenblattes "Auswertung 1" in die Fusszeile übernehmen und zusammen mit dem Dateinamen ausgeben (Beispiel: "Berechnungs.xls / V2-2005".
Wer kann mir helfen, danke?
Antwort 1 von coros
Hallo Urs,
gestatte mir zum Anfang eine kleine Anmerkung. Ein Hallo am Anfang und ein Gruß am Ende würde Deinen Beitrag gleich viel netter aussehen lassen. Denn die Leute, an die Du Deine Frage richtest, sitzen zwar am PC, sind aber dennoch Menschen.
Nun zu Deiner Frage. Ich habe da mal eine VBA Lösung anzubieten. Kopiere nachfolgenden Code in das VBA Projekt "DieseArbeitsmappe" Deiner Datei.
Bei dem Code wird immer vor dem Drucken der Dateiname gefolgt von einem Slash und dem Eintrag aus Blatt Dateneingabe Zelle A38 in die Fußzeile eingetragen.
Ich hoffe, Du kommst klar.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann die Anleitungsnummer 1 nach. Dort habe ich das beschrieben.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
gestatte mir zum Anfang eine kleine Anmerkung. Ein Hallo am Anfang und ein Gruß am Ende würde Deinen Beitrag gleich viel netter aussehen lassen. Denn die Leute, an die Du Deine Frage richtest, sitzen zwar am PC, sind aber dennoch Menschen.
Nun zu Deiner Frage. Ich habe da mal eine VBA Lösung anzubieten. Kopiere nachfolgenden Code in das VBA Projekt "DieseArbeitsmappe" Deiner Datei.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "&8" & ActiveWorkbook.Name & " / " & Sheets("Dateneingabe").Range("A38")
End SubBei dem Code wird immer vor dem Drucken der Dateiname gefolgt von einem Slash und dem Eintrag aus Blatt Dateneingabe Zelle A38 in die Fußzeile eingetragen.
Ich hoffe, Du kommst klar.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann die Anleitungsnummer 1 nach. Dort habe ich das beschrieben.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Urs
Hallo coros und liebe Supporter.
Es war nicht meine Absicht unfreundlich zu erscheinen, ich wollte einfach kurz und bündig sein. Ich werde mich das nächste mal bessern.
coros: herzlichen Dank für Deine Hilfe. Es funktioniert einwandfrei.
Es war nicht meine Absicht unfreundlich zu erscheinen, ich wollte einfach kurz und bündig sein. Ich werde mich das nächste mal bessern.
coros: herzlichen Dank für Deine Hilfe. Es funktioniert einwandfrei.