VBA сумма ячеек

Question

Я хочу сложить Cells(2,6) в Cells(4,6) друг с другом.

это мой код:

kosten = WorksheetFunction.Sum(Range(Cells(2, 6), Cells(4, 6)))
Cells(3, 10) = kosten

но на выходе получается 0, а должно быть 1406.

Может кто-нибудь помочь мне, пожалуйста?

Answer 1

Попробуйте приведенный ниже код для изменения листа:

Option Explicit

Sub LOf()

    Dim kosten As Double

    With ThisWorkbook.Worksheets("Sheet1") 'Change if needed
        kosten = Application.Sum(.Range(.Cells(2, 6), .Cells(4, 6)))
        .Range(3.10).Value=kosten
    End With

End Sub