MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 18.10.2017, 10:08   #1
CLG
MOF User
MOF User
Standard Excel 2013 - Kopfzeile mit Wert aus Zelle + Schriftgrösse + Farbe

Guten Tag Forum

Ich versuche den Text in der Kopfzeile mitte mit einem Wert aus der Tabelle1 A1 zu bezeichnen. Dazu soll die Schriftgrösse 20 in Arial fett in roter Farbe angepasst werden. Ich verwende dafür diesen Code:
Code:

Worksheets("Tabelle1").PageSetup.CenterHeader = Worksheets("Tabelle1").Range("A1")
Wie muss ich den Code ergänzen, dass die gewünschte Schriftart wie vorhin genannt, angepasst wird?


Ausserdem möchte ich in der Fusszeile links einen Eintrag mit einer Zeilenschaltung und Text aus einer Zelle der Tabelle1 , z.B:
Erstellt von: (Wert aus Tabelle1; A2)
Geprüft von: (Wert aus Tabelle1; A3)

Wie sieht dieser Code dafür aus?

Vielen Dank schon im Voraus für eure Hilfe!
CLG
CLG ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.10.2017, 12:47   #2
Uwi63
MOF User
MOF User
Standard

Hallo,
z.B. so:
Code:

Sub EinrichtenKopfFusszeile()

' Druckformat
    With ActiveSheet.PageSetup

' Oben
        .LeftHeader = ""
        .CenterHeader = "&""Arial,Fett""&20&KFF0000" & Sheets("Tabelle1").Range("A1")
        .RightHeader = ""
        
' Unten
        .LeftFooter = "Erstellt von: " & Sheets("Tabelle1").Range("A2") & Chr(10) & _
                    "Geprüft von: " & Sheets("Tabelle1").Range("A3")
        .CenterFooter = ""
        .RightFooter = ""
    End With
    
End Sub

__________________

Gruß
Uwe


über Feedback würde ich mich freuen
Uwi63 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 10:10   #3
CLG
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Uwe

Das funzt! Wie so oft werden Begehrlichkeiten geweckt wenn man den kleinen Finger bekommen hat ...!

Excel bietet ja die Möglichkeit, dass die Kopf- / Fusszeile auf der ersten Seite anders ist als auf den folgenden Seiten.

Wie müsste man den Code dazu erweitern / ergänzen?

Besten Dank aber schon mal für die bestehende Lösung!
Schöne Grüsse
CLG
CLG ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 10:18   #4
MisterBurns
MOF Profi
MOF Profi
Standard

Code:

Sub EinrichtenKopfFusszeile()

' Druckformat
    With ActiveSheet.PageSetup

' Oben
        .LeftHeader = ""
        .CenterHeader = "&""Arial,Fett""&20&KFF0000" & Sheets("Tabelle1").Range("A1")
        .RightHeader = ""
        
' Unten
        .LeftFooter = "Erstellt von: " & Sheets("Tabelle1").Range("A2") & Chr(10) & _
                    "Geprüft von: " & Sheets("Tabelle1").Range("A3")
        .CenterFooter = ""
        .RightFooter = ""

      .DifferentFirstPageHeaderFooter = True

    End With

End Sub
Den Makrorekorder zu benutzen ist übrigens erlaubt!

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 14:35   #5
CLG
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hi MisterBurns

Vielen Dank für deinen Input und Hilfe zur Lösung!
Natürlich hast du recht mit dem Makrorekorder. Leider hatte ich die angezeigten Code-Teile nicht ganz verstanden.
Aber mit deinem Hinweis ist es mir nun klar geworden.

Nochmals dir und Uwe besten Dank!
Beste Grüsse
CLG
CLG ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:42 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.