Thema Datum  Von Nutzer Rating
Antwort
06.03.2019 07:33:11 Lars
Solved
06.03.2019 14:22:21 Gast59599
NotSolved
Rot Macro zum Setzen der Seitennummerierung, ausgeblendete Daten zurücksetzen im Makro
 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:
AlterDresdner		 Datum:
06.03.2019 18:31:05		 Views:
454		 Rating:
     
Antwort:
  Ja
Thema:
Macro zum Setzen der Seitennummerierung, ausgeblendete Daten zurücksetzen im Makro

Hallo Lars,

 Sub SetPagesInfo()
'Macro zum Setzen der Seitennummerierung
'(c) hgs 23.08.08
    Dim PageInfo, temp As String, datum As Date, anz As Long, nr As Long
                      
    For i = 1 To Sheets.Count 'Seitenzahlen ermitteln
      If Sheets(i).Visible Then anz = anz + 1
    Next i
    For i = 1 To Sheets.Count
      If Sheets(i).Visible Then 'nur wenn sichtbar
        nr = nr + 1
        '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 " & nr & " von/of " & anz & " "
        '... und in letzte Zeile/letzte Spalte schreiben
        'Sheets(i).Range(temp).Formula = PageInfo
      End If
    Next i
  End Sub

Gruß der Martin

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
06.03.2019 07:33:11 Lars
Solved
06.03.2019 14:22:21 Gast59599
NotSolved
Rot Macro zum Setzen der Seitennummerierung, ausgeblendete Daten zurücksetzen im Makro
 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