Supportnet Computer
Planet of Tech

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.

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: