Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopf und Fusszeile 1. Seite

Kopf und Fusszeile 1. Seite
11.01.2018 09:19:34
Manuel
Hallo!
Ich bringe es leider nicht auf die Reihe die Kopfzeile/Fusszeile zu programmieren. Ohne die rot gekennzeichneten Zeilen und somit ohne "1.Seite anders" funktionierts. 
Sub Tagesbericht_Format4() 'kopf und fusszeile
Dim TB1, TB2
Set TB1 = Sheets("Übersicht").PageSetup
Set TB2 = ThisWorkbook.Sheets(5).PageSetup
With TB2
.differentfirstpageheaderfooter = True
.FirstPage.LeftHeader = _
"&""Arial,Fett""&4" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&8 Veronica" & Chr(10) &  _
_
"Strasse 10/13" & Chr(10) & "6020 Innsbruck"
.FirstPage.CenterHeader = "&""Arial,Fett""&20TAGESBERICHT" & Chr(10) & "&11vom"
.FirstPage.LeftFooter = TB1.LeftFooter
.FirstPage.CenterFooter = TB1.CenterFooter
.FirstPage.RightFooter = TB1.RightFooter
.LeftFooter = TB1.LeftFooter
.CenterFooter = TB1.CenterFooter
.RightFooter = TB1.RightFooter
End With
With ActiveSheet.PageSetup
.FirstPage.RightHeaderPicture.Filename = _
"H:\Manuel\Bilder\Logo.jpg"
.FirstPage.RightHeader = "&G"
With ActiveSheet.PageSetup.FirstPage.RightHeaderPicture
.Height = 64.8
.Width = 113.4
End With
With ActiveSheet.PageSetup
.HeaderPicture.Filename = _
"H:\Manuel\Bilder\Logo.jpg"
.RightHeader = "&G"
With ActiveSheet.PageSetup.RightHeaderPicture
.Height = 64.8
.Width = 113.4
End With
With ActiveSheet.PageSetup
.ScaleWithDocHeaderFooter = False
End With
End With
End Sub

Hat jemand eine Idee?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopf und Fusszeile 1. Seite
11.01.2018 10:45:29
Manuel
Bitte kann mir jemand weiterhelfen!
Vielen Dank!
AW: Kopf und Fusszeile 1. Seite
13.01.2018 16:15:46
Dieter
Hallo Manuel,
mir ist zwar nicht ganz klar, welche Blätter du mit Kopf- und Fußzeilen versehen willst, aber wenn ich dein Programm mal als gegeben ansehe, dann funktioniert die folgende Version: 
Sub Tagesbericht_Format4() 'kopf und fusszeile
Dim PS1 As PageSetup
Dim PS2 As PageSetup
Dim pfad As String
pfad = ThisWorkbook.Path & "\"
Set PS1 = ThisWorkbook.Sheets("Übersicht").PageSetup
Set PS2 = ThisWorkbook.Sheets(5).PageSetup
With PS2
.DifferentFirstPageHeaderFooter = True
.FirstPage.LeftHeader.Text = _
"&""Arial,Fett""&4" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&8 Veronica" & Chr( _
10) & _
"Strasse 10/13" & Chr(10) & "6020 Innsbruck"
.FirstPage.CenterHeader.Text = "&""Arial,Fett""&20TAGESBERICHT" & Chr(10) & "&11vom " &  _
Format$(Date, "dd.mm.yyyy")
.FirstPage.LeftFooter.Text = PS1.LeftFooter
.FirstPage.CenterFooter.Text = PS1.CenterFooter
.FirstPage.RightFooter.Text = PS1.RightFooter
.LeftFooter = PS1.LeftFooter
.CenterFooter = PS1.CenterFooter
.RightFooter = PS1.RightFooter
End With
With ActiveSheet.PageSetup
.FirstPage.RightHeader.Picture.Filename = pfad & "Affen01.jpg"
.FirstPage.RightHeader.Text = "&G"
With ActiveSheet.PageSetup.FirstPage.RightHeader.Picture
.Height = 64.8
.Width = 113.4
End With
End With
With ActiveSheet.PageSetup
.RightHeaderPicture.Filename = pfad & "Affen01.jpg"
.RightHeader = "&G"
With ActiveSheet.PageSetup.RightHeaderPicture
.Height = 64.8
.Width = 113.4
End With
End With
With ActiveSheet.PageSetup
.ScaleWithDocHeaderFooter = False
End With
End Sub
Es gibt hier die folgende Falle, in die du gelaufen bist:
Die Eigenschaft LeftHeader des PageSetup-Objektes ist ein String.
Die Eigenschaft FirstPage des PageSetup-Objektes verweist auf ein Page-Objekt und dessen LeftHeader-Eigenschaft ist kein String, sondern enthält die Adresse eines HeaderFooter-Objektes. Um diesem Objekt einen Text zuzuweisen, musst du die Eigenschaft Text verwenden.
Also (PS1 enthält die Adresse eines PageSetup-Objektes):
PS1.LeftHeader = "Dein Text"
aber
PS1.FirstPage.LeftHeader.Text = "Dein Text"
Anstelle deines Logos habe ich hier das Bild "Affen01.jpg" verwendet. Ich habe es auch noch einmal in die beigefügte Arbeitsmappe eingefügt.
https://www.herber.de/bbs/user/118931.xlsm
Mfg
Dieter
Anzeige

300 Forumthreads zu ähnlichen Themen

Seitenrand bei Kopf und Fusszeile
TomTom

Hi,
ich habe eine ExcelSeite in Queerformat mit vielen Informationen drauf. Die Seite ist so eingestellt, dass der rechte und der linke Seitenrand auf 0,7 eingestellt sind. Nun wollte ich noch eine Kopf und eine Fusszeile einfügen.
Die Kopfzeile ist eine Überschrift (Text) und ich habe...
29.08.2008 10:16:00
Thread-ID: 1005710
2 Beiträge
Anzeige
Kopf- und Fußzeile schützen
Ulla

Hallo,
ich habe in Excel einige Formulare erstellt. Damit niemand die Kopfzeile und die Fußzeile verändern kann, möchte ich einen Schreibschutz drauflegen.
Ist das überhaupt möglich?
Wenn ja, wie?
Vielen Dank für Eure Unterstützung.
Grüße
Ulla
06.04.2010 11:18:07
Thread-ID: 1150296
2 Beiträge
Schutz von Kopf- und Fußzeile
Kopf-

Hallo zusammen,
habe die Strucktur meiner Tabellenblätter geschützt, nur kann trotz vg. Schutz die Kopf- und Fußzeile noch geändert werden, dies sollte jedoch nicht mehr änderbar sein.
Frage: Kann die Kopf- und Fußzeile auch geschützt werden und wenn ja wie?
Bitte um Antwort
Gr...
12.03.2011 07:20:17
Thread-ID: 1205352
5 Beiträge
Anzeige
Kopf- und Fusszeilen setzen
Pepi

Hallo zusammen
Wenn ich mit dem Makrorecorder die Kopf- und Fusszeilen setze, und danach das Makro mit einer neuen Tabelle laufen lasse funktioniert es nicht mehr. (Falsche oder gar keine Werte!)
Ich habe immer wieder neue Tabelle, die die gleiche oder eine ähnliche Seitervormatierung m...
13.04.2012 09:41:44
Thread-ID: 1259000
5 Beiträge
variable Kopf- und Fußzeilen
Hans

Hallo,
um die Fuß- und Kopfzeilen je Tabellenblatt unterschiedlich variabel zu beschriften, habe ich volgenden VBA-Code in der Arbeitsmappe: Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet = Sheets("Tabelle1") Then ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Range("P1"...
23.07.2012 17:09:50
Thread-ID: 1272351
6 Beiträge
Kopf- und Fußzeile
haw

Hallo Excelfreunde,
nun werkel ich schon seit 20 Jahren mit Excel und auch VBA. Ich habe folgenden Code, um die Kopf- und Fußzeile zu definieren:
Application.PrintCommunication = False
ws.PageSetup.PrintTitleRows = "$1:$1"
With ws.PageSetup
.CenterHeader = "&D"
.Righ...
12.09.2013 07:07:58
Thread-ID: 1330423
10 Beiträge
"&"-Zeichen verfälscht Kopf- und Fusszeile
Talia

Guten Morgen,
Ich habe ein Problem mit dem "&"-Zeichen.
In der Zelle A1 stehen Produktnamen z.B. "Dark Nut" oder aber auch "S&S Black".
Auf diese Zelle verweise ich in meinen Kopf-und Fusszeilen in VBA:
.LeftHeader = "&""Arial,Standard""&8" & Range("A1").va...
28.04.2014 08:12:14
Thread-ID: 1358808
12 Beiträge
Kopf- und Fusszeile mit VBA
Norbert

Hallo Spezialisten
ist es möglich, die Kopf- und Fusszeile so zu definieren wie im Bild?
Linke Kopfzeile:
Die gelbmarkierten Felder sollen über eine Messagebox eingefügt werden.
Kann die Messagebox auf einmal 4 Zeilen aufnehmen?
Mittig Kopfzeile:
Preisliste gültig ab als...
25.03.2015 10:27:32
Thread-ID: 1417010
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
1
4
1
4
5
9
11
4
4
12
6
7
1
2
2
2
1
2
8
3
3
1
3