title image


Smiley Blätter drucken mit durchlaufender Numerierung der Mappe
Hallo,



habe mit VBA eine Lösung gefunden.

Zuerst wird die gerade aktuelle Anzahl der Blätter ermittelt, dann wird das gerade aktive Blatt mit allen darauf befindlichen Seiten gedruckt.



Probier es mal aus.







      

Sub Seitennumerierung()

'In einer Mappe sollen die Seiten des aktiven Blattes gedruckt werden.

'Die Seitennumerierung soll aber auf die ganze Mappe bezogen sein.

Dim Seitenzahl1 As Long 'Anzahl der Seiten BIS zum aktiven Blatt

Dim Seitenzahl2 As Long 'Anzahl der Seiten gesamte Mappe

Dim Blatt As Long



Application.ScreenUpdating = False

Blatt = ActiveSheet.Index 'Index des Aktiven Blattes

If Blatt <> 1 Then 'Wenn es nicht das erste Tabellenblatt ist

    For i = 1 To Blatt - 1 'Seiten bis zum aktiven Blatt zählen

        Sheets(i).Select 'Blatt wählen

        ActiveWindow.View = xlPageBreakPreview ' Kommt ohne beim Zählen teilweise zu Fehlern

        Seitenanzahl1 = Seitenanzahl1 + ActiveSheet.HPageBreaks.Count + 1 'Summe bilden

        ActiveWindow.View = xlNormalView 'Normalansicht

    Next

End If

'Gesamtseiten ermitteln Logik wie vor

For i = 1 To Sheets.Count

    Sheets(i).Select

    ActiveWindow.View = xlPageBreakPreview

    seitenanzahl2 = seitenanzahl2 + ActiveSheet.HPageBreaks.Count + 1

    ActiveWindow.View = xlNormalView

Next

Sheets(Blatt).Select 'Druckblatt wieder wählen

ActiveWindow.View = xlPageBreakPreview

For i = 1 To ActiveSheet.HPageBreaks.Count + 1 'jedes Blatt einzeln drucken

    ActiveSheet.PageSetup.CenterFooter = "Seite " & Seitenanzahl1 + i & " von " & seitenanzahl2

    ActiveWindow.SelectedSheets.PrintPreview 'Auskommentieren wenn wirklich gedruckt werden soll

    'ActiveSheet.PrintOut from:=i, to:=i 'fürs drucken einkommentieren

Next

ActiveSheet.PageSetup.CenterFooter = "Seite &P von &N" ' Normale Fußzeile wieder setzen

ActiveWindow.View = xlNormalView 'Seitenansicht auf normal

Application.ScreenUpdating = True

End Sub 





Code eingefügt mit Syntaxhighlighter 3.0







Gruss Georg
Beiträge zu Excel 2002 in Verbindung mit Win XP

 A
1Tabellentool
2von StrgAltEntf


Gibts hier


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: