Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.11.2023 14:52:42
PDF Dateien selectieren und verschieben
30.11.2023 14:44:49
Textbox Vertikale Bildlaufleiste immer am Anfang
30.11.2023 14:02:49
Hallo Piet Finde keine Lösung zu meinem Problem
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Autofilter zeigt nicht alles an
thomas

Hallo,
In einem Tabellenblatt sind 1752 Zeilen ausgefüllt. Der Autofilter zeigt in seiner Auflistung nur 1426 Zellwerte an.
Weis jemand woran das liegt?
Danke für die Hilfe
thomas
29.08.2008 15:59:23
Thread-ID: 1005882
4 Beiträge
Summenprodukt mit Malzeichen oder ohne?
gatinho77

Hallo,
ich möchte aus folgender Tabelle die Zahlen addieren mit Kennzeichen "a" und"März":
a 2 januar
a 8 märz
b 1 april
a 8 märz
c 7 september
Ich nutze dafür die Formel Summewenn folgendermaßen:
=SUMPRODUCT((G20:G24="a")*(I20:I24="märz")*(H20:H24)) So wi...
08.09.2008 16:05:00
Thread-ID: 1008189
7 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige