Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte zusammen zählen

Forumthread: Inhalte zusammen zählen

Inhalte zusammen zählen
05.06.2023 17:15:27
Eberhard Daniel

Guten Tag
Ich möchte, dass es in Spalte "B" ab Zeile "2" alle rot markierten Zellen (Werte), den Inhalt der Zellen zusammenzählt und das Total in einer msgbox ausgibt.

Mit folgendem Code komme ich leider nicht mehr weiter!

 
For Each rngBereich In ws.Range("B2:B" & rngLetzte)
        If rngBereich.Font.ColorIndex = 3 Then

              Da komme ich nicht mehr weiter.......

        End If
Next rngBereich

msgbox Total


Besten Dank für Eure Hilfe.

Freundliche Grüsse
Daniel Eberhard

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte zusammen zählen
05.06.2023 17:25:44
onur 
For Each cel In ws.Range("B2:B" & rngLetzte)
    If cel.Font.ColorIndex = 3 Then Total=Total + cel.value
Next cel
msgbox Total


AW: Inhalte zusammen zählen
05.06.2023 17:42:26
Eberhard Daniel
Hallo onur

Das ging aber schnell. Funktioniert super.
Einzige was ich vergessen habe ist, dass in den Zellen auch Komastellen vorhanden sind. Mit deinem Vorschlag rundet er mir zum Beispiel die Zahl 3.50 auf 4 auf. Dies sollte jedoch nicht passieren!
Kanns Du mir da auch noch behilflich sein?

Gruss Daniel Eberhard


Anzeige
AW: Inhalte zusammen zählen
05.06.2023 17:44:29
onur
entweder hast du die Zellen als text formatiert oder die Variable Total als Integer deklariert.


AW: Inhalte zusammen zählen
05.06.2023 17:50:59
GerdL
Moin Daniel!
Sub Totalredfont()

    Dim ws As Worksheet, rngBereich As Range, rngZelle As Range, dblSumme As Double
    
    
    Set ws = Worksheets("Tabelle1")
    Set rngBereich = ws.Range(ws.Cells(2, 2), ws.Cells(ws.Rows.Count, 2).End(xlUp))
    
    For Each rngZelle In rngBereich.Cells
            If rngZelle.Font.ColorIndex = 3 Then
               If IsNumeric(rngZelle) Then
                   dblSumme = dblSumme + rngZelle.Value
               End If
            End If
    Next rngZelle
    
    MsgBox dblSumme


End Sub
Gruß Gerd

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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