Excel VBA - Fußzeile mit versch. Formatierungen erzeugen
Liebes Forum,
vielleicht kann jemand helfen, ich komme nicht mehr weiter. In einem Tabellenblatt möchte ich mit Excel VBA eine recht aufwändige Fußzeile erzeugen. Aussehen soll sie im Ergebnis wie das beigefügte Bild. Ich habe mich zwar auch schon mit verschiedenen Ansätzen probiert, mal scheint da was zu gehen - dann ist aber da auch wieder alles kaputt.
Ich habe mit nachfolgenden Code das Ding sogar auch schon mal ohne die Farben hinbekommen, aber jetzt geht wieder nix mehr....
Hat einer on Euch eine Idee wie ich das besser machen könnte, wie es überhaut gehen könnte, oder oder.....
Vielen Dank für Unterstützung + freu mich auf Antwort!
Armin
vielleicht kann jemand helfen, ich komme nicht mehr weiter. In einem Tabellenblatt möchte ich mit Excel VBA eine recht aufwändige Fußzeile erzeugen. Aussehen soll sie im Ergebnis wie das beigefügte Bild. Ich habe mich zwar auch schon mit verschiedenen Ansätzen probiert, mal scheint da was zu gehen - dann ist aber da auch wieder alles kaputt.
Ich habe mit nachfolgenden Code das Ding sogar auch schon mal ohne die Farben hinbekommen, aber jetzt geht wieder nix mehr....
Sub Fussnote()
ActiveSheet.PageSetup
With ActiveSheet.PageSetup
.LeftHeader = "&""ARIAL,Fett""&24" & Range("N2") & Chr(10) & _
"&""ARIAL,Fett Kursiv""&12" & Range("N3") & Chr(10) & _
"&""ARIAL,Normal""&8" & Range("N4") & Chr(10) & Range("N5")
End With
End Sub
Vielen Dank für Unterstützung + freu mich auf Antwort!
Armin
4 Antworten
- LÖSUNG Meierjo schreibt am 22.02.2021 um 06:43:17 Uhr
- LÖSUNG Armin-K schreibt am 24.02.2021 um 18:45:03 Uhr
- LÖSUNG Meierjo schreibt am 25.02.2021 um 09:43:27 Uhr
- LÖSUNG Armin-K schreibt am 26.02.2021 um 14:22:53 Uhr
- LÖSUNG Meierjo schreibt am 25.02.2021 um 09:43:27 Uhr
- LÖSUNG Armin-K schreibt am 24.02.2021 um 18:45:03 Uhr
LÖSUNG 22.02.2021 um 06:43 Uhr
LÖSUNG 24.02.2021 um 18:45 Uhr
Hallo Meierjo,
sorry bin ein bisschen spät dran, vielen Dank schon mal vorab für Hilfe. Eine Beispieldatei stelle ich Dir gern zur Verfügung. Eigentlich setzt sich die Kopfzeile im Detail aus drei Einzelzeilen zusammen. Schwierig sind die zweite und dritte Zeile weil Farbe und eine andere Schriftart ins Spiel kommt. Bei dem Text wird keine Grafik genutzt, das Symbol entsteht aus der Schriftart "Wingdings" und dem Zeichen 253. Wird aus der Tabelle vielleicht deutlicher.....
Excel Datei
Wär genial - wenn Du helfen könntest, falls ich noch was beitragen kann selbstverständlich gern.....
Meine eigenen Versuche habe ich größtenteils wieder rausgeschmissen, teilweise war Excel dann nicht mehr nutzbar.
Also vielen Dank schon mal vorab + viele Grüße aus der Lüneburger Heide!
sorry bin ein bisschen spät dran, vielen Dank schon mal vorab für Hilfe. Eine Beispieldatei stelle ich Dir gern zur Verfügung. Eigentlich setzt sich die Kopfzeile im Detail aus drei Einzelzeilen zusammen. Schwierig sind die zweite und dritte Zeile weil Farbe und eine andere Schriftart ins Spiel kommt. Bei dem Text wird keine Grafik genutzt, das Symbol entsteht aus der Schriftart "Wingdings" und dem Zeichen 253. Wird aus der Tabelle vielleicht deutlicher.....
Excel Datei
Wär genial - wenn Du helfen könntest, falls ich noch was beitragen kann selbstverständlich gern.....
Meine eigenen Versuche habe ich größtenteils wieder rausgeschmissen, teilweise war Excel dann nicht mehr nutzbar.
Also vielen Dank schon mal vorab + viele Grüße aus der Lüneburger Heide!
LÖSUNG 25.02.2021 um 09:43 Uhr
Hallo
Probier mal das:
Gruss aus der sonnigen Schweiz
Probier mal das:
Sub Fusszeile()
With ActiveSheet.PageSetup
.LeftFooter = "&""Wingdings,standard""&8&KFF0000" & Range("A11").Value & "&""Arial,Standard""&10&K01+000" & " " & Range("C11").Value
.RightFooter = "&""Wingdings,standard""&8&K04+000" & Range("A13").Value & "&""Arial,Standard""&10&K01+000" & " " & Range("C13").Value
End With
End Sub
LÖSUNG 26.02.2021 um 14:22 Uhr
Hallo Meierjo,
eigentlich fällt mir nur ein "GRANATENG......" zu Deiner Lösung ein. Ein paar winzige Anpassungen mache ich noch-geht jetzt auch sicher. Für Deine Mühe und die Lösung noch ein ganz herzliches "DANKE", hätte ich sicher nicht hinbekommen.
Anfrage ist natürlich gelöst + noch viele Grüße aus der Lüneburger Heide!
Armin
eigentlich fällt mir nur ein "GRANATENG......" zu Deiner Lösung ein. Ein paar winzige Anpassungen mache ich noch-geht jetzt auch sicher. Für Deine Mühe und die Lösung noch ein ganz herzliches "DANKE", hätte ich sicher nicht hinbekommen.
Anfrage ist natürlich gelöst + noch viele Grüße aus der Lüneburger Heide!
Armin