Text und Grafik in Fusszeile

Forumthread: Text und Grafik in Fusszeile

03.07.2008 08:48:15

Helmut

Hallo Excel-User,
ich möchte (muß) in die Fusszeile (im rechten Bereich) einen variablen Text zusammen mit einer Grafik (meinem Logo) unterbringen.
Dabei soll über VBA vor dem Ausdruck aus einer Zelle ein variabler Text eingelesen und zu der schon vorhandenen Grafik im rechten Fusszeilenbereich hinzugefügt werden.
Geht so etwas überhaupt, wenn ja, wie ?
(Bis jetzt habe ich das Problem so umgangen, und lass den variablen Text per VBA in den mittleren Bereich ohne Grafik einfügen. Das gefällt meinem Chef aber überhaupt nicht, der variable Text gehört zur Grafik!)
Vielen Dank für die Unterstützung.
Gruß Helmut

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text und Grafik in Fusszeile

03.07.2008 15:11:00

fcs

AW: Text und Grafik in Fusszeile

03.07.2008 15:11:00

fcs

Hallo Helmut,
es geht, dazu muss du "nur" dein schon vorhandenes Makro anpassen.
Um vollständig zu Automatisieren startest du das Makro mit dem Ereignismakro Workbook_BeforePrint.
Gruß
Franz


'Unter DieseArbeitsmappe:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Ausnahme1" 'Namen der Blätter bei denen Makro nicht ausgeführt werden soll
'do nothing
Case Else
Call FusszeileAktualisieren
End Select
End Sub
'in ein allgemeines Modul:
Sub FusszeileAktualisieren()
'Im Rechten Fusstext unterhalb der vorhandenen Grafik Text einfügen
With ActiveSheet.PageSetup
.RightFooter = "&G" & Chr(10) & Cells(1, 1) & " " & Cells(1, 4)
End With
End Sub

"&G" = Platzhalter für Grafik
Chr(10) = Zeilenschaltung

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine Grafik in die Excel-Fußzeile einzufügen und diese mit einem variablen Text zu kombinieren, kannst du die folgenden Schritte ausführen:

VBA-Editor öffnen:
- Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul hinzufügen:
- Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)".
- Wähle „Einfügen“ und dann „Modul“.

Makro erstellen:

Füge den folgenden VBA-Code in das Modul ein:

'Unter DieseArbeitsmappe:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
   Select Case ActiveSheet.Name
       Case "Ausnahme1" 'Namen der Blätter bei denen Makro nicht ausgeführt werden soll
           'do nothing
       Case Else
           Call FusszeileAktualisieren
   End Select
End Sub

'In ein allgemeines Modul:
Sub FusszeileAktualisieren()
   'Im rechten Fußtext unterhalb der vorhandenen Grafik Text einfügen
   With ActiveSheet.PageSetup
       .RightFooter = "&G" & Chr(10) & Cells(1, 1) & " " & Cells(1, 4)
   End With
End Sub

Grafik in die Fußzeile einfügen:
- Stelle sicher, dass du dein Logo bereits in der Fußzeile eingefügt hast. Dies kannst du unter „Seitenlayout“ -> „Seitensetup“ -> „Kopf- und Fußzeilen“ tun.
Variablen Text definieren:
- Stelle sicher, dass der Text, den du einfügen möchtest, in den entsprechenden Zellen (z.B. A1 und D1) steht.

Häufige Fehler und Lösungen

Fehler: Grafik wird nicht angezeigt.
- Stelle sicher, dass die Grafik in der Fußzeile bereits eingefügt wurde. Überprüfe auch, ob du den richtigen Platzhalter &G im Code verwendest.
Fehler: Variabler Text wird nicht aktualisiert.
- Vergewissere dich, dass die Zellen, die du für den variablen Text verwendest, die richtigen Werte enthalten, und dass das Makro ausgeführt wird, bevor du druckst.

Alternative Methoden

Wenn du eine Grafik in die Fußzeile einfügen möchtest, ohne VBA zu verwenden, kannst du die Fußzeile direkt über die Kopf- und Fußzeilen-Optionen in Excel anpassen:

Gehe zu „Seitenlayout“.
Klicke auf „Kopf- und Fußzeile“.
Wähle „Fußzeile bearbeiten“.
Füge die Grafik über die Schaltfläche „Grafik“ ein.

Praktische Beispiele

Beispiel 1: Logo und Text kombinieren

Wenn dein Logo in der Fußzeile ist und du den Text „Jahresbericht 2023“ aus Zelle A1 hinzufügen möchtest, stelle sicher, dass du den obigen VBA-Code entsprechend anpasst.

Beispiel 2: Fußnote in Zelle

Wenn du eine Fußnote in einer Zelle hinterlegen möchtest, kannst du dies einfach durch Eingabe in die gewünschte Zelle und Verwendung der Funktion „Fußnote Excel“ erreichen.

Tipps für Profis

Nutze die Möglichkeit, mehrere Makros zu kombinieren, um die Fußzeile dynamisch zu gestalten.
Experimentiere mit verschiedenen Layouts und Positionen in der Fußzeile, um die Lesbarkeit zu verbessern.
Speichere deine Makros in einer persönlichen Makroarbeitsmappe, um sie in allen Excel-Dateien nutzen zu können.

FAQ: Häufige Fragen

1. Kann ich mehrere Grafiken in der Fußzeile einfügen? Ja, du kannst mehrere Grafiken einfügen, indem du die Platzhalter entsprechend anpasst und den VBA-Code erweiterst.

2. Wie kann ich die Fußzeile kopieren? Du kannst die Fußzeile von einem Arbeitsblatt zu einem anderen kopieren, indem du die Einstellungen in „Seitenlayout“ -> „Kopf- und Fußzeilen“ überträgst.

Beliebteste Forumthreads (12 Monate)