Farbige Zellen mit Inhalt zählen Excel

Hallo,

deine Beschreibung ist nicht ganz klar? Wie ist deine Tabelle aufgebaut? Wie ist darin der Dienstag hinterlegt? Als Text oder als Datum? Was genau willst du nun zählen? Alle gelben Zellen ohne die Dienstage? Oder willst du Spalten zählen, die Ferien mit
einem Dienstag haben, aber den Dienstag nicht mitrechnen? Wie ist der Code deines Makros?

Claus

Super, vielen vielen Dank.

Wie würde die Formel aussehen, wenn ich Di, Mi und Fr zählen möchte z.b. ?

Also mehr als einen Tag mit gelben Hintergrund??

Gruß

Hallo,

etwas universeller, damit man verschiedene Wochentage berechnen kann. Außerdem funktioniert es mit Wochentag als Text ("Di") ebenso wie mit Di als formatiertem Datum:

Function FarbeWT(Bereich As Range, Farbe As Integer, _

   WT As String) As Integer

'Farbe: Rot=3,Grün=4,Blau=5,Gelb=6

'WT:"So", "Mo", "Di",....

Dim rngC As Range
For Each rngC In Bereich

   If InStr(rngC.Text, WT) And rngC.Interior.ColorIndex = Farbe Then

      FarbeWT = FarbeWT + 1

   End If

Next

End Function

Rufe die Funktion im Blatt auf für gelben Hintergrund und Donnerstag mit z.B.:

=FarbeWT(D121;6;"Do")

Claus

Hallo,

dann kannst du entweder die obige Funktion verwenden und addieren, z.B. für Di und Mi:

=FarbeWT(A1:A30;6;"Di")+FarbeWT(A1:A30;6;"Mi")

Oder du schreibst dir eine gesonderte Funktion:

Function FarbeWTArray(Bereich As Range, Farbe As Integer, _

   WT As Variant) As Integer

'Farbe: Rot=3,Grün=4,Blau=5,Gelb=6

'WT z.B.:"So,Mo,Di"
Dim rngC As Range

Dim i As Integer

If InStr(WT, ",") Then

   WT = Split(WT, ",")

   For i = LBound(WT) To UBound(WT)

      For Each rngC In Bereich

         If rngC.Interior.ColorIndex = Farbe And InStr(rngC.Text, WT(i)) Then

            FarbeWTArray = FarbeWTArray + 1

         End If

      Next

   Next

Else

   For Each rngC In Bereich

      If rngC.Interior.ColorIndex = Farbe And InStr(rngC, WT) Then

         FarbeWTArray = FarbeWTArray + 1

      End If

   Next

End If

End Function

Und rufst diese dann im Blatt auf mit z.B.:

=FarbeWTArray(A1:A30;6;"Di,Mi,Do")

Claus

Hallo,

dann schreibe dir dafür eine zweite Funktion:

Function AnzahlFarbenDi(Farbe, Bereich) As Integer

  'Rot=3,Grün=4,Blau=5,Gelb=6

Dim Anzahl As IntegerDim Zelle As Range
For Each Zelle In Bereich

   If Zelle.Interior.ColorIndex = Farbe And Zelle = "Di" Then

      Anzahl = Anzahl + 1

    End If

  Next

  AnzahlFarbenDi = Anzahl

End Function

Claus

Das ist der Hammer

Es funktioniert. Ich habe Tagelang im Internet recherchiert und alles versucht aber leider nicht hingekriegt.

Vielen vielen Dank.

LG