VBA Excel: Einfügen von SUM Funktion, aber es ist immer gleich Null

Question

Ich bereinig eine Datei und ich versuche SUM Werte zusammen, aber die Summe ist immer gleich Null. Mein Code gibt den richtigen Bereich, und hat die richtige Formatierung ... Nur eben nicht die Summe etwas zu zeigen, aber 0.

Sub AddBlankRows() 
' 
Dim iRow As Integer, iCol As Integer 
Dim oRng As Range 
Dim fRow As Integer 

Set oRng = Range("e2") 

iRow = oRng.Row 
iCol = oRng.Column 
fRow = iRow 

Do 
' 
    If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then 
    Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown 
    iRow = iRow + 1 
    Range("k" & iRow).Font.Bold = True 
    Range("k" & iRow).Value = "Total" 
    Range("l" & iRow).Font.Bold = True 
    Range("l" & iRow).Formula = "=sum(l" & CStr(fRow) & ":l" & CStr(iRow) & ")" 
    iRow = iRow + 1 
    fRow = iRow 
Else 
    iRow = iRow + 1 
End If 
' 
Loop While Not Cells(iRow, iCol).Text = "" 
' 
End Sub 

Picture of Sheet and Error

Answer 1

Sie sind ein einen zirkulären Verweis bekommen hier "=sum(l" & CStr(fRow) & ":l" & CStr(iRow) & ")" Schaffung

Sum Formelzelle ist im Summenbereich enthalten.

Ändern Sie diese zu

"=sum(l" & CStr(fRow) & ":l" & CStr(iRow-1) & ")", sollte funktionieren.