AW: Briefkopf u Fuß per Makro in Kopf- und Fußzeil
21.02.2008 11:44:05
Stefanie2
Ja habe ich. Hab mich nun selbst noch mal an einem zunächst aufgezeichneten und dann "ausgemistetem" Makro versucht. Das war notwendig, da das aufgezeichnete zwar nachher funktionierte. Aber 8 Sekunden Ausführdauer hatte.
Nun geht es blitzschnell und funktioniert.
Sieht dann so aus:
Sub BriefKopfUndFuss()
' BriefKopfUndFuss Makro
ActiveSheet.PageSetup.FirstPage.CenterHeader.Picture.Filename = _
"Datei1.jpg"
With ActiveSheet.PageSetup
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = True
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.FirstPage.CenterHeader.Text = "&Z&I"
End With
Range("C1").Select
ActiveWindow.SmallScroll Down:=14
ActiveSheet.PageSetup.FirstPage.CenterFooter.Picture.Filename = _
"Datei2.jpg"
With ActiveSheet.PageSetup
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = True
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.FirstPage.CenterHeader.Text = "&Z&I"
.FirstPage.CenterFooter.Text = "&Z&I"
End With
End Sub
Problem ist also gelöst.
lieben Dank
k.A.: Warum das aufgezeichnete Makro vorher nicht wollte