Thema Datum  Von Nutzer Rating
Antwort
Rot Macro zum Setzen der Seitennummerierung, ausgeblendete Daten zurücksetzen im Makro
06.03.2019 07:33:11 Lars
Solved
06.03.2019 14:22:21 Gast59599
NotSolved
06.03.2019 18:31:05 AlterDresdner
NotSolved
07.03.2019 07:25:50 Gast90226
NotSolved
07.03.2019 10:14:26 Gast74786
Solved
08.03.2019 12:35:52 AlterDresdner
Solved

Ansicht des Beitrags:
Von:
Lars
Datum:
06.03.2019 07:33:11
Views:
83
Rating: Antwort:
 Nein
Thema:
Macro zum Setzen der Seitennummerierung, ausgeblendete Daten zurücksetzen im Makro

Hallo mein derzeitiges Makro,

 

Sub SetPagesInfo()
'Macro zum Setzen der Seitennummerierung
'(c) hgs 23.08.08
    Dim PageInfo, temp As String, datum As Date
                      
    For i = 1 To Sheets.Count
        'Druckbereich auslesen
        temp = Sheets(i).PageSetup.PrintArea
        'letzte Zelle des Druckbereichs finden
        temp = Mid(temp, InStr(temp, ":") + 1)
        temp = temp & ":" & temp
        'Seiteninfo aufbauen
        PageInfo = "Seite/Page " & i & " von/of " & Sheets.Count & " "
        '... und in letzte Zeile/letzte Spalte schreiben
        Sheets(i).Range(temp).Formula = PageInfo
       
    Next i

Meine Frage:

 

wenn ich Seiten ausblende dann soll sich die Zahl auch wieder verringern, beim Drucken. Kann mir da wer Helfen?

 

VG Lars


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Macro zum Setzen der Seitennummerierung, ausgeblendete Daten zurücksetzen im Makro
06.03.2019 07:33:11 Lars
Solved
06.03.2019 14:22:21 Gast59599
NotSolved
06.03.2019 18:31:05 AlterDresdner
NotSolved
07.03.2019 07:25:50 Gast90226
NotSolved
07.03.2019 10:14:26 Gast74786
Solved
08.03.2019 12:35:52 AlterDresdner
Solved