ich habe hier ein (kleines) Problem. Habe eine Tabelle mit beliebig vielen Zeilen. Vor dem automatischen Zeilenumbruch wird ein Zwischentotal eingefügt. Auf der letzten Zeile möchte ich nun das Total für die Spalte E bis AE von Zeile 11 bis x. Dazu zähle ich zuerst alle Zwischentotal zusammen (Variable erg), welche ich von der Summe abziehen will. Funkt alles Prima bis zur Stelle: "ActiveCell.Offset(0, s - 1).Formula = "=Summe(E11:E" & i2 - 1 & ")" & -erg", da immer die Spalte E berechnet wird. Habe schon mit FormulaR1C1 ausprobiert, gibt mir aber immer den Fehlerwert #Name$ zurück oder schreibt bloss =Sum(R11C5:R121C5) in die Zelle.
Ich hoffe, das ich mich verständlich ausgedrückt habe und mir jemand helfen kann. Vielen, vielen Dank. Gruss Thomas
Sub FormelTotal()
Dim erg As Currency
Dim i As Integer, i2 As Integer, s As Integer
Dim Zeile As Integer
Zeile = 11
Do While Cells(Zeile, 1) <> ""
Zeile = Zeile + 1
Loop
Range("A11").Select
erg = 0
For s = 5 To 31
For i = 1 To Zeile
If ActiveCell.Value = "Zwischentotal" Then
erg = ActiveCell(1, s).Value + erg
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next
Range("A65535").End(xlUp).Offset(0, 0).Select
i2 = ActiveCell.Row - 1
On Error Resume Next
ActiveCell.Offset(0, s - 1).Formula = "=Summe(E11:E" & i2 - 1 & ")" & -erg
Range("A11").Select
erg = 0
Next
Range("A11").Select
End Sub