Kopfzeile
22.05.2003 12:37:34
Ralf
Ich habe hier ein Makro, mit dem ich den seitenumbruch feststelle und die summe der werte in Spalte F als übertrag auf die nächste Seite in der esten Spalte in E Einfügt jetzt möchte ich wissen, ob man den wert der in e Eingefügt wird auch in der Kopfzeile erscheinen lassen Kann
Sub AutoForm1_BeiKlick()
Dim varPB As Variant
Dim iPage As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
iPage = 1
Do While IsError(varPB) = False
varPB = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iPage & ")")
If IsError(varPB) Then
Exit Sub
Else
Cells(varPB + 1, 5) = Application.Sum(Range(Cells(1, 6), _
Cells(varPB - 1, 6)))
End If
iPage = iPage + 1
ActiveSheet.PageSetup.RightHeader = Cells(1, 1)
Loop
End Sub
MfG
Ralf
Anzeige