Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Summe nicht kursiver Zahlen bilden

Forumthread: Summe nicht kursiver Zahlen bilden

Summe nicht kursiver Zahlen bilden
17.07.2003 11:05:12
Günther Marx
hallo!
habe folgendes problem: ich habe eine lange liste von zahlen, wobei ich nur jene summieren will die nicht kursiv sind! meine vb-kenntnisse sind leider nicht sonderlich gut...
grüsse
GM
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe nicht kursiver Zahlen bilden
17.07.2003 11:11:30
galenzo
Wechsel mit ALT+F11 zu VB. Füge dort ein neues Modul ein und trage dort diese Funktion ein:

Function SummeKursiv(Bereich As Range)
Dim z As Range
SummeKursiv = 0
Application.Volatile
For Each z In Bereich
If Not z.Font.Italic Then
SummeKursiv = SummeKursiv + 1
End If
Next
End Function


Anzeige
AW: Summe nicht kursiver Zahlen bilden
17.07.2003 11:47:16
Günther Marx
hallo galenzo!
danke für die hilfe, aber ich meinte mit summieren ein addieren der zahlen, und nicht ein summieren der anzahl der zellen!! kannst du mir dabei auch helfen?
Günther

AW: Summe nicht kursiver Zahlen bilden
17.07.2003 11:56:08
Galenzo
Sorry. Ändere dann bitte die 7. Zeile in:
SummeKursiv = SummeKursiv + z.Value
Das sollte es tun. mfg

Anzeige
;
Anzeige

Infobox / Tutorial

Summe nicht kursiver Zahlen in Excel berechnen


Schritt-für-Schritt-Anleitung

Um eine Summe der nicht kursiven Zahlen in Excel zu berechnen, kannst du eine benutzerdefinierte Funktion in VBA erstellen. Befolge diese Schritte:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA)-Editor zu starten.

  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul hinzuzufügen.

  3. Füge den folgenden Code in das Modul ein:

    Function SummeKursiv(Bereich As Range)
        Dim z As Range
        SummeKursiv = 0
        Application.Volatile
        For Each z In Bereich
            If Not z.Font.Italic Then
                SummeKursiv = SummeKursiv + z.Value
            End If
        Next
    End Function
  4. Schließe den VBA-Editor und kehre zu deinem Excel-Arbeitsblatt zurück.

  5. Verwende die Funktion =SummeKursiv(A1:A10) (ersetze A1:A10 durch den tatsächlichen Zellbereich), um die Summe der nicht kursiven Zahlen zu berechnen.


Häufige Fehler und Lösungen

  1. Fehler: "#NAME?" in der Zelle

    • Lösung: Stelle sicher, dass du den VBA-Code korrekt eingegeben hast und dass die Funktion im richtigen Modul gespeichert ist.
  2. Fehler: Summe wird nicht korrekt berechnet

    • Lösung: Überprüfe, ob der Zellbereich korrekt ist und ob die Zahlen tatsächlich nicht kursiv formatiert sind.

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du die Filterfunktion in Excel nutzen:

  1. Wähle die gesamte Liste der Zahlen aus.
  2. Gehe zu Daten und klicke auf Filter.
  3. Filtere die kursiven Zahlen aus und addiere die angezeigten Werte manuell oder mit =SUMME().

Praktische Beispiele

Angenommen, du hast folgende Werte in den Zellen A1 bis A5:

  • A1: 10 (nicht kursiv)
  • A2: 20 (kursiv)
  • A3: 30 (nicht kursiv)
  • A4: 40 (kursiv)
  • A5: 50 (nicht kursiv)

Wenn du die Funktion =SummeKursiv(A1:A5) verwendest, wird das Ergebnis 90 sein, da nur die nicht kursiven Zahlen 10, 30 und 50 summiert werden.


Tipps für Profis

  • Experimentiere mit der Application.Volatile-Anweisung, um sicherzustellen, dass deine Funktion bei jeder Berechnung aktualisiert wird.
  • Überlege, ob du die Funktion erweitern möchtest, um auch andere Textformatierungen zu berücksichtigen, wie z.B. fett oder Unterstrichen.

FAQ: Häufige Fragen

1. Kann ich die Funktion auch für andere Formatierungen verwenden? Ja, du kannst die Bedingung in der Schleife anpassen, um beispielsweise auch fett oder unterstrichene Zahlen zu berücksichtigen.

2. Funktioniert diese Methode in allen Excel-Versionen? Ja, die VBA-Funktion sollte in den meisten modernen Excel-Versionen, wie Excel 2010, 2013, 2016 und darüber hinaus, problemlos funktionieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige