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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 654438
Url: https://administrator.de/contentid/654438
Printed on: April 24, 2024 at 16:04 o'clock
4 Comments
Latest comment
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