Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Farbige Zellen je Zeile zählen

Farbige Zellen je Zeile zählen
01.04.2015 22:54:08
Rolf
Hallo zusammen
Ich möchte in einem grösseren Bereich alle farbigen Zellen pro Zeile zählen und in der Spalte C pro Zeile die Anzahl der farbigen Zellen dieser Zeile eintragen. Mit Folgendem Link kann ich alle farbigen Zellen ermitteln und in Zelle C10 schreiben - das ist aber nun nicht mehr ausreichend. Nun muss ich es je Zeile separat haben. Ich bring's nicht hin.... kann mir jemand helfen den Code abzuändern?
Mein aktueller Code:
  • Sub Zählen_je_Zeile3()
    Dim anzahl As Long
    Dim Zelle As Range
    For Each Zelle In Range("D6:EA15")
    anzahl = 0               ' xlNone Then
    anzahl = anzahl + 1
    End If
    Next Zelle
    Range("C10").Value = anzahl   '


  • Grüsse
    Rolf

    Anzeige

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Farbige Zellen je Zeile zählen
    02.04.2015 00:03:11
    Alexander
    Hallo Rolf
    so in der Art?
    Sub FarbigeZellenZaehlen()
    Dim Anzahl As Long
    Dim Zeile As Integer
    Dim Spalte As Integer
    For Zeile = 6 To 15
    Anzahl = 0
    For Spalte = 4 To 131
    If Cells(Zeile, Spalte).Interior.ColorIndex  xlNone Then
    Anzahl = Anzahl + 1
    End If
    Cells(Zeile, 3).Value = Anzahl
    Next m
    Next n
    Anzahl = 0
    End Sub
    
    Gruß Alex

    Anzeige
    AW: Farbige Zellen je Zeile zählen
    02.04.2015 00:12:40
    Alexander
    Hallo Rolf,
    besser ist das. Denn in der anderen Version sind Fehler drin.
    Ich hatte wegen der späten Stunde anscheinend einen kleinen Aussetzter :)
    Sub FarbigeZellenZaehlen()
    Dim Anzahl As Long
    Dim Zeile As Integer
    Dim Spalte As Integer
    For Zeile = 6 To 15
    Anzahl = 0
    For Spalte = 4 To 131
    If Cells(Zeile, Spalte).Interior.ColorIndex  xlNone Then
    Anzahl = Anzahl + 1
    End If
    Next Spalte
    Cells(Zeile, 3).Value = Anzahl
    Next Zeile
    Anzahl = 0
    End Sub
    
    Gruß Alex

    Anzeige
    AW: Farbige Zellen je Zeile zählen
    02.04.2015 15:54:01
    Rolf
    Hey Alex
    Vielen Dank!!! Funktioniert super!! Merci.
    Grüsse
    Rolf
    ;

    Forumthreads zu verwandten Themen

    Anzeige
    Anzeige
    Anzeige
    Anzeige
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    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