Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Farbformate zählen

Betrifft: Farbformate zählen von: Serge
Geschrieben am: 23.08.2004 20:50:25

Ich möchte Zellfarbformate zusammenzählen.
Siehe Tabelle
https://www.herber.de/bbs/user/9992.xls
Wer kann mir helfen
Danke

  


Betrifft: AW: Farbformate zählen von: Piet
Geschrieben am: 23.08.2004 21:16:05

Gib mal in der Recherche ein: Farben zählen, 'zig Treffer.

Piet


  


Betrifft: AW: Farbformate zählen von: ExceL
Geschrieben am: 23.08.2004 21:24:34

hi

https://www.herber.de/bbs/user/9993.xls

Gruß
Christian


  


Betrifft: AW: Farbformate zählen von: Beni
Geschrieben am: 23.08.2004 22:04:26

Hallo Serge,
Gruss Beni

Sub Farbformate_zählen()
Dim Zelle As Range
[B38] = ""
[D38] = ""
[E38] = ""
[F38] = ""
For Each Zelle In Range(Cells(3, 1), Cells(33, 10))
If Zelle.Interior.ColorIndex = 35 Then [B38] = [B38] + 1 ' grün
If Zelle.Interior.ColorIndex = 40 Then [D38] = [D38] + 1 ' rosa
If Zelle.Interior.ColorIndex = 38 Then [E38] = [E38] + 1 ' pink
If Zelle <> "" And WorksheetFunction.Weekday(Zelle.Value, 2) > 5 Then [F38] = [F38] + 1  ' oliv
Next Zelle
End Sub



  


Betrifft: fast :-) von: ExceL
Geschrieben am: 23.08.2004 22:15:30

hi

die wochenenden sind mit bedingter formatierung gemacht
wenn er nun die farbe über die Wochenenden zieht kommt das falsche ergebnis raus
:-)
deshalb ziehe ich die wochenenden falls sie mit farbe versehen sind noch ab


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 38 Then Exit Sub
If Target.Column > 1 And Target.Column < 6 Then
For Each x In Range("aa")
    On Error Resume Next
    If x.Interior.ColorIndex = Target.Offset(-1, 0).Interior.ColorIndex Then
        If WorksheetFunction.Weekday(x.Value, 2) < 6 Then
            z = z + 1
        End If
    End If
Next
Target.Value = z
End If
Cancel = True
z = 0
End Sub


Gruß
Christian


  


Betrifft: AW: fast :-) von: andre
Geschrieben am: 24.08.2004 05:46:16

... oder ich gehe wirklich in die Recherche, da war vor ein paar Tagen was zur Zählung von bedingt formatierten Zelle drin, (ist schon aus der aktuellen Forum-Liste raus)


  


Betrifft: AW: Farbformate zählen von: Serge an Beni
Geschrieben am: 24.08.2004 08:53:45

Danke Beni
es ist super!
Serge