Thema Datum  Von Nutzer Rating
Antwort
28.11.2024 15:56:33 Andreas 1970
NotSolved
28.11.2024 17:23:01 Anderas 1970
NotSolved
28.11.2024 20:09:00 ralf_b
NotSolved
29.11.2024 08:19:49 Gast48335
NotSolved
Rot Kopfzeile per Makro aktualisieren
29.11.2024 18:01:59 ralf_b
*****
Solved
02.12.2024 15:06:48 Andreas 1970
NotSolved

Ansicht des Beitrags:
Von:
ralf_b
Datum:
29.11.2024 18:01:59
Views:
106
Rating: Antwort:
 Nein
Thema:
Kopfzeile per Makro aktualisieren

mit einer with klammer  with object.... end with   schaffst du einen Bereich ,in dem du die Eigenschaften des Objektes ohne den Objektnamen nutzen kannst. Es muß nur der Punkt davor stehen. Das war ja schon so im Code. With klammern kann man auch ineinander schachteln. 

Der Makrorekorder schreibt dir alle Pagesetupeigenschaften in das Makro. Aber du brauchst nur die zu behalten, die du auch verändern willst. Der Rest kann weg. das Pagesetup muß für jedes Blatt separat angesprochen werden. Mit einem Multiselect habe ich das noch nicht versucht. Kann natürlich auch klappen.

ActiveWindow.PageSetup.SelectedSheets

das ist quasi falsch herum Pagesetup ist ein Teil eines sheets und nicht eines Windows. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Header()
    '*******************************************************Header update bei Print ***************************************************************************************************
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    Application.PrintCommunication = True
    
    For Each sh In ActiveWorkbook.Worksheets
     
        Select Case sh.Name
            Case "Change History and Approvals", "Key"
            Case Else
                         
                With sh.PageSetup
                    .PageSetup.LeftHeader = Worksheets("Standards").Range("I6") & vbLf & "Rev.:" & " " & Worksheets("Standards").Range("I4") & vbLf & "Date (Rev.):" & " " & Worksheets("Standards").Range("I5")
                    .PageSetup.CenterHeader = ""
                    .PageSetup.RightHeader = "&G"
                    .PageSetup.LeftFooter = ""
                    .PageSetup.CenterFooter = "&""Arial,Fett""&9&K0070C0PFC" & Chr(10) & "Page &P of &N"
                    .PageSetup.RightFooter = ""
                    .OddAndEvenPagesHeaderFooter = False
                    .DifferentFirstPageHeaderFooter = False
                    .ScaleWithDocHeaderFooter = True
                    .AlignMarginsHeaderFooter = True
                End With
 
        End Select
    Next
    Application.PrintCommunication = False
    Application.ScreenUpdating = True
 
End Sub

 

 


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
28.11.2024 15:56:33 Andreas 1970
NotSolved
28.11.2024 17:23:01 Anderas 1970
NotSolved
28.11.2024 20:09:00 ralf_b
NotSolved
29.11.2024 08:19:49 Gast48335
NotSolved
Rot Kopfzeile per Makro aktualisieren
29.11.2024 18:01:59 ralf_b
*****
Solved
02.12.2024 15:06:48 Andreas 1970
NotSolved