Übertrag auf neue seite
07.04.2003 19:29:50
Ralf
Ich habe folgendes Problem.
Ich habe ein Formular wo Leistungsbeschreibungen eingefügt werden nun kommt es öfters for, das dies über eine Seite hinausgeht.
Ich habe hier schon ein Makro, mit dem ich alle Werte in Spalte G auf der 1 gedruckten Seite zusammenzählen möchte und diese summe soll dann auf dem 2 Blatt oben in eine Zelle ( F )als Übertrag eingefügt werden. Aber irgenwias stimmt mit dem Makro nicht es passiert gar nichts.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo ende
With ActiveSheet.PageSetup
.CenterHeader = WorksheetFunction.Sum(Range("G1:G" & ActiveSheet.HPageBreaks(1).Location.Row - 1))
End With
ende:
End Su