Функция SUM в VBA с использованием NAMED RANGES показывает только ошибки

Question

Я определил два именованных диапазона;один (myplace) для местоположения, в которое нужно записать результат, и один (myrange) для диапазона, который необходимо суммировать.Компилятор возвращает ошибку

Пробовал метод формулы для суммы, но это возвращает ошибку "#NAAM"

Это простой код, который я использовал:

Sub optelsom()

myplace = Range("plaats") 
myrange = Range("deelsom")

Range(myplace).Value = Application.WorksheetFunction.Sum(myrange)

End Sub

Answer 1

(1) Привыкайте объявлять переменные (согласно предложению PEH, используйте Option Explicit: в редакторе VBA перейдите в Инструменты ›Параметры› Требовать объявление переменных)

(2) Вам нужно установитьпри назначении объектным переменным, таким как диапазоны

(3) myplace уже диапазон, поэтому нет необходимости в 'обертке'

Sub optelsom()

Dim myplace as range, myrange as range

Set myplace = Range("plaats") 
Set myrange = Range("deelsom")

myplace.Value = Application.WorksheetFunction.Sum(myrange)

End Sub