Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
464to468
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
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopfzeile/Fusszeile als Standard

Kopfzeile/Fusszeile als Standard
05.08.2004 11:35:32
skudde
Hallo zusammen,
leider kann ich nirgendwo in Excel, oder auf Recherche etwas finden wo ich die Kopf- und Fusszeile als Standard einrichten kann.
Ich möchte gerne immer folgende Angaben als Standart haben:
Kopf - links: Tabellenblattname Mitte: Logo rechts: Datum
Fuss - links: Seitenangaben Mitte: leer Rechts: Pfad + Datei
Diese Angaben benötige ich eigentlich immer, daher würde ich Sie gerne schon bei einem leeren Tabellenblatt haben.
Vielleicht sehe ich den Wald vor lauter Bäumen nicht, wie dem auch sei für ein 'Anstubsen' in die richtige Richtung wäre ich sehr dankbar, da es mir ser viel Arbeit erspart.
lieben Dank und viele Grüsse
George

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

Betreff
Datum
Anwender
Anzeige
AW: Kopfzeile/Fusszeile als Standard
Ulf
Formatier dir eine Mappe und speicher sie als Vorlage ab(*.xlt).
Ulf
AW: Kopfzeile/Fusszeile als Standard
05.08.2004 12:06:16
Skudde
Hallo Ulf,
sowas hatte ich mir schon gedacht - hilft mir auch zu 2/3. Habe aber gehofft das es irgendwo eine versteckte Funktion gibt die beim aufruf eines Tabellenblattes gleich alle Einträge vorgibt. Warscheinlich ist dieses auch lösbar, evtl.über VBA (würde mich auch interessieren), - muss aber nicht unbedingt sein - daher habe ich den Thread erstmal als Beantwortet markiert.
Vielen Dank nochmal.
George
AW: Kopfzeile/Fusszeile als Standard
Panicman
Hallo Ulf,
der beitrag von Skudde war schon richtig. Öffene eine leere Tabelle, mache alle Formate und Seiteneinrichtung so, wie du sie willst und speicher dann diese Datei in das XLStart Verzeichnis mit der Endung .XLT (Muster-Vorlage) UND unbedingt unter dem Namen "Mappe.xlt". Das XLStart-Verzeichnis liegt normalenweise unter C:\Programme\Microsoft Office\Office\XLStart.
Wenn du das gemacht hast, ist jede neue Mappe in diesem Format.
Gruß
Holger
Anzeige
AW: Kopfzeile/Fusszeile als Standard
harry
hi,
hab mir ein solches makro geschrieben, hoffe es hilft dir:
Public pgForm As Boolean

Sub Kopf_Fuss()
Application.ScreenUpdating = False
Select Case pgForm
Case True
For i = 1 To Worksheets.Count
Sheets(i).Select
With ActiveSheet.PageSetup
.CenterHeaderPicture.Filename = _
'HIER FÜR ICH EIN LOGO EIN
End With
With ActiveSheet.PageSetup
.CenterHeader = "&G"
.LeftFooter = "&10&F "
.RightFooter = "&10Seite &P"
.LeftMargin = Application.CentimetersToPoints(2.75)
.RightMargin = Application.CentimetersToPoints(2.75)
.TopMargin = Application.CentimetersToPoints(4.5)
.BottomMargin = Application.CentimetersToPoints(2#)
.HeaderMargin = Application.CentimetersToPoints(0.9)
.FooterMargin = Application.CentimetersToPoints(0.9)
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Next i
Case False
For i = 1 To Worksheets.Count
Sheets(i).Select
With ActiveSheet.PageSetup
.CenterHeaderPicture.Filename = _
' HIER FÜR ICH EIN LOGO EIN
End With
With ActiveSheet.PageSetup
.CenterHeader = "&G"
.LeftFooter = "&10&F"
.RightFooter = "&10Seite &P"
.LeftMargin = Application.CentimetersToPoints(1.5)
.RightMargin = Application.CentimetersToPoints(1.5)
.TopMargin = Application.CentimetersToPoints(4)
.BottomMargin = Application.CentimetersToPoints(2#)
.HeaderMargin = Application.CentimetersToPoints(0.9)
.FooterMargin = Application.CentimetersToPoints(0.9)
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Next i
End Select
Application.ScreenUpdating = True
End Sub

liebe grüße,
harry
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige