Sub SelectSum()
    Dim Zelle As Range
    For Each Zelle In Selection
        If Zelle.Value <> "" And IsNumeric(Zelle.Value) Then
            Summe = Summe + Zelle.Value
        End If
    Next Zelle
    MsgBox "Summe der ausgewählten Zellen: " & Summe, vbInformation
End Sub