Farbige Zellen kopieren

Hallo und servus,
ich habe folgendes Problem. Ich möchte gerne in einer Excel Datei (Test.xls)
die Spalten D bis K kontrollieren und nach der Schriftfarbe grün und rot untersuchen. Nun möchte ich in einer anderen Datei (Kontrolle.xls)angezeigt bekommen wieviele Zellen eine rote bzw. grüne Schrift hatten. Jetzt noch folgendes in der Zeile C110 z.B. der Datei (Test.xls) steht das Datum 18. April 2005 in dem Bereich D bis K gibt es 2 mal rot und 1 mal grün. In der Datei (Kontrolle.xls) steht auch in der Zelle C110 das Datum 18. April 2005 nun soll in die Zelle D110 die Anzahl der Zellen mit roter Schrift und die Zelle E110 die Anzahl der Zellen mit grüner Schrift eingetragen werden. Folgender Hintegrund ich möchte eine Datei erstellen, die mir anzeigt an welchem Tag wie oft die rote bzw. die grüne Schrift eingetragen wurde.
Ich hoffe man kann der Beschreibung folgen und Ihr habt eine Idee.

Danke euch schon mal
Gruß Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function FarbsummeS(Bereich As Range, Farbe As Integer) ' Schriftfarbe Dim Zelle As Object Application.Volatile For Each Zelle In Bereich If Zelle.Font.ColorIndex = Farbe Then FarbsummeS = FarbsummeS + 1 End If Next End Function

Function FarbsummeS(Bereich As Range, Farbe As Integer) ' Schriftfarbe Dim Zelle As Object Application.Volatile For Each Zelle In Bereich If Not IsEmpty(Zelle) And Zelle.Font.ColorIndex = Farbe Then FarbsummeS = FarbsummeS + 1 End If Next End Function

Servus Paulchen,
ich hätte noch mal ein Problem. Aktuell wird ein Bereich durchsucht kontrolliert ob etwas drinsteht was die Schriftfarbe rot hat und gezählt wie oft das vorkommt. Jetzt mein Problem ich kontrolliere z.B. die Spalte A-E in der Spalte B steht Meier in Roter Schrift und in Spalte E noch mal Meier in Rot jetzt bekomme ich eine 2 angezeigt. Ich würde aber gerne die doppelten Zellen nur einmal zählen. Also Meier in Spalte B und Meier in Spalte E alles in Rot, und angezeigt werden soll 1, da der Name doppelt ist.


Function FarbsummeS(Bereich As Range, Farbe As Integer)
'   Schriftfarbe
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Not IsEmpty(Zelle) And Zelle.Font.ColorIndex = Farbe Then
FarbsummeS = FarbsummeS + 1
End If
Next
End Function

Ich hoffe jemand hat eine Idee
Danke Euch schon mal vielmals
Gruß Markus

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread