Thema Datum  Von Nutzer Rating
Antwort
Rot Kopf und Fusszeile 1. Seite
11.01.2018 13:11:26 Manuel
NotSolved

Ansicht des Beitrags:
Von:
Manuel
Datum:
11.01.2018 13:11:26
Views:
182
Rating: Antwort:
  Ja
Thema:
Kopf und Fusszeile 1. Seite
Hallo! 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!!!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Kopf und Fusszeile 1. Seite
11.01.2018 13:11:26 Manuel
NotSolved