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
Anfrageformular öffnen 
Jetzt anrufen: +49 (0)151 164 55 914 
Anfrage per E-Mail senden 
Weitere Informationen 
