vba selectie cellen in kolom optellen uitkomst msgbox

[userJan]

Goededag dames en heren,
vraag hoe kan ik met vba in een kolom een aantal willekeurige cellen selecteren de getallen optellen.
de uitkomst in een msgbox
ik heb deze code gebruikt echter deze telt het aantal rijen op.


Sub test10()
MsgBox Selection.Rows.Count
End Sub
mvg Jan

 

[emields]

code aangepast in uw voorbeeld.

 

[AHulpje]

Sub test()
    For Each c In Selection
        som = som + c.Value
    Next
    MsgBox som
End Sub

 

[HSV]

Of

sub hsv()
msgbox evaluate("sum(" & selection.address & ")")
end sub