Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
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
Inhaltsverzeichnis

Differentfirstpage?

Differentfirstpage?
11.01.2018 12:05:37
Manuel
Hallo!
Hier nochmals mein Code.
Ich bringe es leider nicht auf die Reihe die Kopfzeile/Fusszeile der 1. Seite zu befüllen 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?
Bitte um dringende Hilfe!
Danke euch im voraus!!!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelter Post
11.01.2018 12:12:56
Burak
Bitte nicht doppelt posten!!!
AW: doppelter Post
11.01.2018 14:29:50
Manuel
Ich weiss - sorry! Braeuchte nur dringend Hilfe und auf mein erstes Posting hat keiner geantwortet, reine Verzweiflungstat 😂
AW: doppelter Post
11.01.2018 14:37:15
SF
Hola,
und dann auch noch in verschiedenen Foren ohne zu verlinken..
Gruß,
steve1da
AW: doppelter Post
11.01.2018 14:57:06
Manuel
Dir auch einen Gruss, aber war nicht bösse gemeint!
Vielleicht kannst du mir ja helfen? 😉

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige