farbige Eintrage zählen



Excel-Version: 97
  

Re: farbige Eintrage zählen

von: Hajo
Geschrieben am: 14.04.2002 - 16:58:02


Hallo Herbert

falls es nicht mittels Bedingter Formatierung gemacht ist, mit einer Funktion für die Schriftfabe


Function Farbsumme(Bereich As Range, Farbe As Integer)
For Each zelle In Bereich
If zelle.Font.ColorIndex = Farbe Then
Farbsumme = Farbsumme + zelle
End If
Next
End Function

Eingabe=Fabsumme(A1:Iv1;3) für die schriftfarbe rot

Gruß Hajo

  

Re: Nachfrage

von: Herbert
Geschrieben am: 14.04.2002 - 17:08:32


Bin Anfänger!! Wie finde ich die Farbliste (Farbzahlen) u. wie kann ich diese Formeln einbinden.
Gruß Herbert

  

Re: Nachfrage

von: Hajo
Geschrieben am: 14.04.2002 - 17:16:05


Hallo Herbert

Kopiere folgenden Code in eine leere Datei und lasse Ihn lufen


Sub ListeFarben()
   On Error Resume Next
   For x = 1 To 56
      With Range("A" & x)
         .Interior.ColorIndex = x
         .Pattern = xlSolid
      End With
      Range("B" & x) = x
   Next x
End Sub

"wie kann ich diese Formeln einbinden."

wie im Beitrag geschrieben in die Zelle
=Fabsumme(A1:Iv1;3)

Gruß Hajo

  

Re: alles klar, danke

von: Herbert
Geschrieben am: 14.04.2002 - 17:55:59


Habe es jetzt geschnallt, alles klar, danke.
Gruß Herbert

nach unten

Betrifft: farbige Eintrage zählen
von: Herbert
Geschrieben am: 14.04.2002 - 16:50:10

Hallo,
ich habe folgende Frage:
Wie kann ich farbige Einträge in einer Tabelle zeilenweise zählen.
Gruß Herbert

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "farbige Eintrage zählen"