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

Summewenn in Verbindung mit "Zeichenformat"

Forumthread: Summewenn in Verbindung mit "Zeichenformat"

Summewenn in Verbindung mit "Zeichenformat"
12.03.2008 18:37:00
Michael
Hallo!
Ich möchte gern in einer Tabelle nur die Werte zusammenaddieren, die nicht die Schriftformatierung mit dem Effekt "Durchgestrichen" haben. Funktioniert hier die Funktion Summewenn? Oder gibt es da eine spezielle Formulierung für die alleinige Funktion "Wenn"?
Vielen lieben Dank vorab & Gruß
Michael

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Summewenn in Verbindung mit "Zeichenformat"
12.03.2008 20:18:00
Worti
Hallo Michael,
vielleicht mit einer UDF:


Function SummeOhneDurchgestrichene(Bereich As Range) As Double
     Application.Volatile
     Dim rngC As Range
     SummeOhneDurchgestrichene = 0
     For Each rngC In Bereich
         If IsNumeric(rngC) Then
            If Not rngC.Font.Strikethrough Then
               SummeOhneDurchgestrichene = SummeOhneDurchgestrichene + rngC.Value
            End If
         End If
     Next rngC
End Function

Und dann im Tabellenblatt so:
Was man im Bild nicht sieht: A1 und B1 sind durchgestrichen.
Gruß Worti

Anzeige
AW: Summewenn in Verbindung mit "Zeichenformat"
12.03.2008 20:39:42
Uwe
Hi,
fast genauso hatte ich mir gerade auch eine Funktion zusammengebastelt. War (mal wieder) zu langsam, macht aber trotzdem Spass.
Was mir aber aufgefallen ist: Es ist etwas Vorsicht geboten:
Wenn die Funktion irgendwo steht, und dann in der Liste ein Wert nachträglich durchgestrichen wird, löst das kein Ereignis aus, d.h. der Wert der Funktion wird nicht sofort neu berechnet. Erst wenn z.B. in einer irgendeiner Zelle was eingetragen oder geändert wird, wird der Wert neu berechnet.
Also VORSICHT FEHLERQUELLE !!!
Ich weiß leider auch keine Lösung für dieses Problem (:-|
Gruß
Uwe
(:o)

Anzeige
AW: Summewenn in Verbindung mit "Zeichenformat"
13.03.2008 18:30:00
Michael
Die Funktion klappt ausgezeichnet. Vielen Dank für Eure rasche Hilfe!
Gruß
Michael
;
Anzeige
Anzeige

Infobox / Tutorial

Summewenn und durchgestrichene Zahlen in Excel


Schritt-für-Schritt-Anleitung

Um in Excel Werte zu summieren, die nicht durchgestrichen sind, kannst Du eine benutzerdefinierte Funktion (UDF) erstellen. Folge diesen Schritten:

  1. Öffne Excel und gehe zu den Entwicklertools (falls sie nicht sichtbar sind, aktiviere sie über die Excel-Optionen).

  2. Klicke auf "Visual Basic", um den VBA-Editor zu öffnen.

  3. Wähle "Einfügen" > "Modul", um ein neues Modul zu erstellen.

  4. Kopiere und füge den folgenden Code in das Modul ein:

    Function SummeOhneDurchgestrichene(Bereich As Range) As Double
       Application.Volatile
       Dim rngC As Range
       SummeOhneDurchgestrichene = 0
       For Each rngC In Bereich
           If IsNumeric(rngC) Then
               If Not rngC.Font.Strikethrough Then
                   SummeOhneDurchgestrichene = SummeOhneDurchgestrichene + rngC.Value
               End If
           End If
       Next rngC
    End Function
  5. Schließe den VBA-Editor und gehe zurück zu Deinem Excel-Dokument.

  6. Verwende die Funktion in einer Zelle, indem Du =SummeOhneDurchgestrichene(A1:A10) eingibst, wobei A1:A10 der Bereich ist, den Du summieren möchtest.


Häufige Fehler und Lösungen

  • Problem: Die Funktion aktualisiert sich nicht sofort, wenn ein Wert durchgestrichen wird.

    • Lösung: Du musst eine Änderung in einer anderen Zelle vornehmen, um die Berechnung zu aktualisieren. Dies ist eine bekannte Fehlerquelle, da Excel das automatische Neuberechnen nicht auslöst, wenn sich nur die Schriftformatierung ändert.
  • Problem: Fehlermeldung bei der Funktion.

    • Lösung: Stelle sicher, dass Du die Funktion korrekt im VBA-Editor eingegeben hast und dass die Entwicklertools aktiviert sind.

Alternative Methoden

Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch folgende Methoden ausprobieren:

  1. Filtern: Filtere die durchgestrichenen Werte aus und verwende die Funktion SUMME() für die sichtbaren Zellen.
  2. Hilfsspalte: Erstelle eine Hilfsspalte, in der Du überprüfst, ob der Wert durchgestrichen ist, und benutze dann SUMMEWENN() basierend auf dieser Hilfsspalte.

Praktische Beispiele

Angenommen, Du hast eine Liste in den Zellen A1 bis A10. Einige Zahlen sind durchgestrichen. Mit der benutzerdefinierten Funktion SummeOhneDurchgestrichene summierst Du diese Werte einfach:

=SummeOhneDurchgestrichene(A1:A10)

Wenn A1 = 10, A2 = 20 (durchgestrichen), A3 = 30, dann gibt die Funktion das Ergebnis 40 zurück.


Tipps für Profis

  • Achte darauf, die Funktion nur in Bereichen zu verwenden, in denen Du sicher bist, dass die Formatierung konsistent ist.
  • Nutze die Funktion in Kombination mit anderen Excel-Funktionen, um komplexere Berechnungen durchzuführen.
  • Überprüfe regelmäßig den VBA-Code auf Syntaxfehler, um reibungslose Berechnungen sicherzustellen.

FAQ: Häufige Fragen

1. Kann ich die Funktion in Excel Online verwenden?
Nein, VBA-Funktionen sind nur in Desktop-Versionen von Excel verfügbar.

2. Wie kann ich sicherstellen, dass meine Daten immer aktuell sind?
Überprüfe, ob die Zellen, die durchgestrichen werden, keine Berechnungsfehler verursachen und erwäge, die Schaltfläche "Alle Berechnungen" zu verwenden, um manuell eine Neuberechnung auszulösen.

3. Gibt es eine maximale Anzahl an Zellen, die ich in der Funktion verwenden kann?
Theoretisch gibt es keine Begrenzung, aber sehr große Bereiche können die Berechnungszeit erheblich verlängern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige