Kopfzeile kopieren - Problem ?
26.04.2005 20:35:38
Peter_1960
Stehe im Moment mit einem Problem so ziemlich im Wald und bräuchte Eure Hilfe.
In einer Excel 97 Datei mit mehreren Blättern lasse ich per Makro einige Daten
des ersten Tabellenblatts in die Kopfzeile eintragen und danach werden diese
Daten auf alle anderen Blätter weiter kopiert.
Sind die Felder noch nicht ausgefüllt läuft das Makro ganz normal durch und alle
Kopfzeilen sind in allen Blättern leer.
Mit Daten läuft das Makro nur bis zu einem bestimmten Blatt und bricht dann mit der Meldung ab "Die Left/CenterHeader-Eigenschaft des Pagesetup-Objekts kann nicht festgelegt werden".
Habe das ganze jetzt schon so weit eingekreist, dass es sich tatsächlich nur um dieses eine Blatt handelt wo es nicht funktioniert.
Ganz egal an welche Stelle in der Mappe ich das Blatt schiebe, alle Blätter davor werden richtig ausgefüllt, dahinter nicht mehr?
Hier auch noch einmal der Code, aber ich glaube nicht das es daran liegt, oder?
Private Sub btnHeader_Click()
Dim psQuelle As PageSetup, psZiel As PageSetup, wks As Worksheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.PageSetup.LeftHeader = "&""Arial,Fett""&9" & vbLf & [a3] & " " & [b3] & vbLf & [a4] & " " & [b4] & vbLf & [a5] & " " & [b5] & vbLf & [a6] & " " & [b6] & vbLf & [d3] & " " & [e3]
ActiveSheet.PageSetup.CenterHeader = "&""Arial,Fett""&12&U" & [b2]
Set psQuelle = Worksheets("Proj Dat").PageSetup
For Each wks In Worksheets
With wks.PageSetup
.LeftHeader = psQuelle.LeftHeader
.CenterHeader = psQuelle.CenterHeader
End With
Next wks
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False
End Sub
Hat jemand vielleicht eine Idee wie man das beheben kann?
Gruß
Peter