Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

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

 

   

Relevante Artikel

  • Sicherheitseinstellungen für Makros

    Nachfolgend erhalten Sie eine Übersicht über die Einstellmöglichkeiten der Makrosicherheit in den unterschiedlichen Excel-Versionen: Die jeweiligen Einstellungen können Sie wie folgt verändern:...

  • Versionen von Windows und Excel ermitteln

    Mit dem folgenden Makro können Sie ganz einfach die installierte Windows- und Excel-Version ermitteln. Sub Info_Windows_Excel() 'Ermittlung der installierten Windows- und der Excelversion    antw = MsgBox("Betriebssystem: " & Application.OperatingSystem & Chr(10) & _    "Excel-Version: " & Application.Version, vbInformation, "Info") End Sub Die...

  • Zellinformationen per Funktion auslesen

    112019 Diese Funktion liest verschiedene Zellinformationen aus und zeigt diese an.Public Function zellinfo(zelle As Range, i As Integer)Select Case iCase 1    zellinfo = zelle.AddressCase 2    zellinfo = zelle.ValueCase 3    zellinfo = zelle.FormulaLocalCase 4    If zelle.HasFormula = True Then        zellinfo = "Formel"    ElseIf IsNumeric(zelle) Then        zellinfo = "Zahl"    Else: zellinfo = "Text"    End IfCase Else    zellinfo = "nicht vergeben"End SelectEnd FunctionDie Funktion rufen Sie wie folgt auf:=zellinfo(zelle;paramter) Folgende...

  • VBA Passwort über ein VBA-Makro automatisch aufheben

    In diesem Beitrag erfahren Sie, wie per VBA-Makro ein mit Passwort gesichertes VBA-Makro automatisch entsperrt werden kann. Es geht nicht darum, den VBA-Schutz zu haken. Bei der vorgestellten...

  • CPU Informationen auslesen

    Mit Hilfe des untenstehenden VBA-Codes können verschiedene CPU Informationen ausgelesen werden. Folgende Informationen werden im Direktfenster ausgegeben: 1. die Geräte-ID2. die...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013