Summenformel in VBA

Ich versuche zu berechnen, die Summe zu ändern einen Zellbereich in vba. Leider ist die Zelle Werte sind Variablen. Ich kann nicht scheinen, um die folgende Formel zu arbeiten.

Private Sub calcOverheadRate(startCell As Integer, endCell As Integer)
     Total = endCell + 1
     Range("D" & Total).Formula = "=SUM("D" & startCell & ":" & "D" & endCell)"
End Sub

Bekomme ich kompilieren-Fehler: "Erwartet: Ende Anweisung

Dieses problem zu lösen, änderte ich die Funktion,

Private Sub calcOverheadRate(startCell As Integer, endCell As Integer)

    Dim start As String
    Dim endC As String

    start = "D" & CStr(startCell)
    endC = "D" & CStr(endCell)

    Total = endCell + 1

    Range("D" & Total).Formula = "=SUM(start:endC)"

End Sub

Die Funktion kompiliert in Ordnung, wenn ich es laufen lasse, wird der Wert in der Zelle "#NAME", wo es Verweise SUM(start:endC) nicht SUM(D5:D23)....

Irgendwelche Gedanken darüber, wie man dieses Problem lösen würde geschätzt werden.

InformationsquelleAutor user1155383 | 2012-07-05

Schreibe einen Kommentar