Supportnet / Forum / Tabellenkalkulation
Makro für Fusszeile in Excel?
Frage
Hallo Zusammen,
ich arbeite gerade an einem Formular in Excel und möchte abschließend eine benutzerdefinierte Fuss-/Kopfzeile einfügen.
Was für Eigenschaften soll diese haben?
- Sie soll erst ab der 2 Seite zu sehen sein
- Sie soll bestimmte Werte aus der vorherigen Seite übernehmen, also aus einer bestimmten Zelle (I 51) der Seite 1 in die Kopfzeile der Seite 2 und aus der Zelle (I 51) der Seite 2 in die Kopfzeile der Seite 3 usw.
Dadurch soll bei einem Seitenumbruch Zeit gespart werden.
Hoffe ihr könnt mir dabai helfen! Vielen Dank
Edwin
Antwort 1 von Hajo_Zi
Hallo Edwin,
unterschiedliche Kopf- und Fusszeilen bekommst Du nur hin, wenn Du das Drucken über ein Makro machst. Es ist mir zu aufwendig, DEine Bedngungen umzusetzen. Darum nur der Ansatz für untershiedliche Zeilen.
Gruß Hajo
unterschiedliche Kopf- und Fusszeilen bekommst Du nur hin, wenn Du das Drucken über ein Makro machst. Es ist mir zu aufwendig, DEine Bedngungen umzusetzen. Darum nur der Ansatz für untershiedliche Zeilen.
Option Explicit
Sub Drucken()
´ Bilder in Kopfzeile nur für XP
´ ich glaube der Ansatz ist von Ramses (Rainer)
Dim iPage As Integer
For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
With Worksheets("Tabelle1")
If iPage = 1 Then
.PageSetup.CenterFooter = "Seite 1"
.PageSetup.RightHeaderPicture.Filename = _
"E:\Eigene Dateien\Eigene Bilder\Bilder\bbapril_big08.jpg"
Else
.PageSetup.CenterFooter = "größer Seite 1"
.PageSetup.RightHeaderPicture.Filename = _
"E:\Eigene Dateien\Eigene Bilder\Bilder\bbtracy_big10.jpg"
End If
.PrintOut from:=iPage, To:=iPage
End With
Next iPage
End Sub
Gruß Hajo