anfrage@excel-inside.de | 
0160-93 82 19 37 | Nehmen Sie Kontakt auf, um Ihre Anforderung zu besprechen. NEU: Besuchen Sie unser Diskussionsforum Office-Fragen.de
112007
Mit dieser Prozedur, werden alle markierten Zellen summiert.
Diese Prozedur einfach inn ein Modul einfügen und los gehts.
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
Aktuell sind 25 Gäste und keine Mitglieder online
      |
|
|
|
 |
 |
|
| Maßgeschneiderte Individuallösungen für Ihren Erfolg |
|
Office-Fragen.de ist das Forum rund um Microsoft Office, PALO und LibreOffice.
[Excel, Word, Outlook, Access, Visio, Office365, Office mac: u.v.m.]
Wenn Sie Fragen haben, dann können Sie diese jederzeit gerne im Forum stellen. Die anwesenden Moderatoren und ggf.
auch andere Forumsteilnehmer werden Ihre Problemstellung schnellstmöglich bearbeiten.
Möchten Sie Ihr Wissen weitergeben? Dann sind Sie selbstverständlich auch jederzeit herzlich im Forum willkommen.
Jeder registrierte Benutzer erhält das kostenlose E-Book "Die 100 wichtigsten Formeln und Funktionen" für Excel.
Registrieren Sie sich noch heute und sichern Sie sich das kostenlose Willkommensgeschenk.
