Office: Autostart Makro vor Druck und Speichern

Hallo Schatzi und andere Excel Götter!

Hab wieder mal eine Frage:

Ich würde gerne dieses Makro automatisch vor dem Drucken und vor dem Speichern abrennen lassen:

Code:

Sub Alle_Kopfzeilen()
     y = "Design by xy"
      For x = 1 To ActiveWorkbook.Sheets.Count
         ActiveWorkbook.Sheets(x).PageSetup.LeftHeader = y
         
      Next
   End Sub

Es soll deshalb automatisch rennen, damit dieser Design Hinweis immer drinnen ist, auch wenn jemand anderer die Kopfzeile ändert.

Hab schon im WWW gesucht und herausgefunden dass man ein Klassenmodul benutzen muss, hab das aber mit dem Code (der für ein anderes Beispiel war) nicht kapiert)

Danke schon mal im Voraus!

Lg
Herbert

 

Hallo!

Wenn du im VBA-Editor auf "DieseArbeitsmappe" doppelklickst, findest du über dem Codefenster zwei ComboBoxen.
Wähle in der ersten "Workbook" und in der zweiten einmal "BeforeSave" und einmal "BeforePrint".
Nun müsstest du zwei Coderümpfe sehen, die so ausschauen:

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Füge hier jeweils deinen Code (ohne Sub und End Sub) ein.

 

Danke Excelgott!

Werde es morgen gleich ausprobieren!

 

Servus Schatzi!

Hab den Code so eingefügt (mit den Combo Boxen)

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 y = "Designed by ECO"
      For x = 1 To ActiveWorkbook.Sheets.Count
         ActiveWorkbook.Sheets(x).PageSetup.LeftHeader = y
          
      Next
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 y = "Designed by ECO"
      For x = 1 To ActiveWorkbook.Sheets.Count
         ActiveWorkbook.Sheets(x).PageSetup.LeftHeader = y
          
      Next
End Sub

Das Problem ist - beim Speichern rechnet das Programm ziemlich lange - dort wo sonst "Bereit" steht, zeigt Excel 2003 beim Speichern nach der Reihe 1 bis 5 - und das rennt das Programm dreimal durch.

Ist das normal, dass die Berechnung so lange braucht - am Rechner selbst sollte es nicht liegen.

Hast du eine Idee das ganze zu beschleunigen?!?

Mfg
Herbert

 

Die Zugriffe auf das Pagesetup-Objekt dauern ekelhaft lange. Da scheint sich auch nichts dran drehen zu lassen.

Ich lasse oft per Code ein Tabellenblatt erstellen und passe es dann mittels Pagesetup an. Da kann es schon passieren, daß man 10 oder mehr Sekunden vor einem leeren Tabellenblatt sitzt, in der sich nur rechts oben ein leichtes Blinken bemerkbar macht.

Gruß, Michael

 

solange sich die Laufzeit in Grenzen hält, ist es verkraftbar - aber danke für den Hinweis.

Hab noch ein Problem - habe den Code etwas abgeändert

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    For x = 1 To ActiveWorkbook.Sheets.Count
         
         ActiveWorkbook.Sheets(x).PageSetup.CenterHeader = Range("Header").Value
         ActiveWorkbook.Sheets(x).PageSetup.RightHeader = Range("QuartalsberichtNr").Value
               
    Next
                
End Sub

Funktioniert auch super (besonders gut ist es die Zellen auf die man sich beziehen will mit einem Namen zu definieren, weil ansonsten checkt das VBA nicht wenn man oberhalb Zeilen einfügt oder löscht - oder wisst ihr was besseres?)

Möchte jetzt aber auch noch eine Formatierung der Kopzeile vornehmen

Befehl wäre:

Code:

         ActiveWorkbook.Sheets(x).PageSetup.CenterHeader = "&""Verdana,Fett""BEISPIELTEXT"
         
  

Das Problem ist - wie gebe ich VBA anstatt des "BEISPIELTEXT" die Zelle an aus der der Wert kommen soll?

Lg
Herbert

 

Für "einmalig": Ersetze "BEISPIELTEXT" mit

Code:

trim$(workbooks(b).worksheets(s).cells(y,x).value & " ")

(Das trim$ und das angehängte " " benutze ich manchmal, um Probleme mit NULL-Werten zu verhindern. Kann sein, daß es hier völlig überflüssig ist.)

Aber ich tippe mal, Du möchtest die Kopf/Fußzeile dynamisch mit ändern lassen, wenn sich der Inhalt der entsprechenden Zelle ändert? Öhm, sorry, weiß jetzt gar nicht, ob das dort überhaupt möglich ist.

Ein Ansatz könnte aber über das Ereignis OnChange (des worksheets) sein, wo Du dann die PageSetup-Eigenschaft jeweils neu setzen könntest, wenn sich die Zelle ändert.

Gruß, Michael

 

Servus Mikri!

hab die ganze Prozedur ein bischen abgekürzt:

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 y = "Designed by xy"


For x = 1 To ActiveWorkbook.Sheets.Count
      If ActiveWorkbook.Sheets(x).PageSetup.LeftHeader = y Then
      
      Else
      ActiveWorkbook.Sheets(x).PageSetup.LeftHeader = y
      End If
      
      Next
      

End Sub

Das if then else - ich schwöre es - halbiert die Zeit locker wenn nichts geändert wurde!