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
Anfrage per E-Mail 
Anfrage per Kontaktformular 
Hilfe-Forum 
Weitere Informationen 
