Kopfzeile unterschiedlich auf jeder Seite



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Kopfzeile unterschiedlich auf jeder Seite
von: Thomas
Geschrieben am: 07.07.2002 - 23:02:45

Hallo,

ich habe folgendes Problem: würde gerne in einer Excel-Tabelle mit ca. 25 Seiten für jede Seite eine andere Kopfzeile einrichten. Ist dies in irgendeiner Form möglich. Bin für jeden Vorschlag sehr dankbar.Gruss Thomas

nach oben   nach unten

Re: Kopfzeile unterschiedlich auf jeder Seite
von: Silvio
Geschrieben am: 07.07.2002 - 23:25:09

Starte deine Arbeitsmappe , drücke die Tasten:
[Alt und F11] gleichzeitig...
Es öffnet jetzt der VB-Editor
Gehe im VB-Editor auf "Einfügen" - "Modul"
(und es wird ein leeres weißes Blatt auf der re. Seite des VB-Editors geöffnet)
Füge jetzt den Code in das weiße leere Blatt ein!


Sub Seite1_drucken()
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        With Sh.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .Zoom = 100
        End With
    Next Sh
    Application.ScreenUpdating = False
'#####################################
    Range("C1:H37").Select
'#####################################
    Selection.PrintOut Copies:=1
    Range("C7").Select
End Sub

In diesem Code findest du eine Zeile die mit Range beginnt
diese Zeile sollte angepaßt werden nach deinen eignen Zellen die gedruckt werden sollen.
Du müßtest jetzt in deiner Tabelle aus der Symbolleiste "Formular" einen -Button- einfügen und diesen anschließend mit diesem Makro verknüpfen...

Das alles solltest du für jede Seite wdh. die du ausgedruckt haben willst.

nach oben   nach unten

Re: Kopfzeile unterschiedlich auf jeder Seite
von: Thomas
Geschrieben am: 07.07.2002 - 23:37:18

Danke für diesen schnellen Lösungsvorschlag. Werde ihn ausprobieren.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Kopfzeile unterschiedlich auf jeder Seite"