Markierte Zellen summieren

 

Mit dieser Prozedur, werden alle markierten Zellen summiert.

Dabei wird geprüft, ob die einzelnen Zellen eine Zahl enthalten. Nur dann wird die Zelle in die Summenbildung mit einbezogen.

 

Geben Sie diese Prozedur in einem Code-Modul ein.

 
Sub Selecttion_Summme()
    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 "Das Ergebnis lautet: " & Summe, vbInformation
End Sub