Zwischensummen pro Seite
28.07.2005 12:57:25
kai
Ich möchte Zwischensummen pro Druckseite bilden.
Dazu habe ich das folgende Makro (Auszug).
Es setzt die Zwischensume einer Spalte in die Letzte Zeile einer Druckseite, z.B. =SUMME(H73:H108)
Nun möchte ich noch 3 weitere Zwischenergebnisse darüber für anderer Spalten. Dafür lasse ich das Makro mehrmals laufen mit folgen Änderungen:
Cells(myPSum - 3 : das -3 setzt das Ergebnis 3 Zellen hoch.
SUM(R[-" & myPSum - 4 : das -4 korrigiert die H73 (ohne H69)
Aber: in der Zelle steht dann =SUMME(E73:E105)
Frage: Wie bekomme ich die E105 korrigiert in E108
Danke für Hilfe, ich komme nicht weiter.
Grüße
Kai
'******Netto
'Summe aus welcher Spalte
QE4 = "e" 'Spalte Netto
CTLeft = Range(QE4 & "1").Column
For n = 1 To ExecuteExcel4Macro("Get.Document(50)")
If n = 1 Then
myPSum = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1)") - 1
Cells(myPSum - 3, CTsum).FormulaR1C1 = "=SUM(R[-" & myPSum - 4 & "]C[" & CTLeft - CTsum & "]:RC[" & CTLeft - CTsum & "])"
Cells(myPSum - 3, CTsum - 1) = "Netto"
Cells(myPSum - 4, CTsum - 1) = "Zwischensummen"
RTsum = myPSum
Else
Cells(myPSum - 3, CTsum).FormulaR1C1 = "=SUM(R[-" & RTsum - 4 & "]C[" & CTLeft - CTsum & "]:RC[" & CTLeft - CTsum & "])"
Cells(myPSum - 3, CTsum - 1) = "Netto"
Cells(myPSum - 4, CTsum - 1) = "Zwischensummen"
End If
myPSum = myPSum + RTsum
Next n