Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.09.2008 07:56:49 |
sabine |
|
|
Aw:Farben auslesen und zählen |
05.09.2008 13:54:20 |
Holger |
|
|
|
05.09.2008 15:30:29 |
Sabine |
|
|
|
05.09.2008 19:47:43 |
Holger |
|
|
|
08.09.2008 11:43:53 |
sabine |
|
|
|
08.09.2008 17:56:39 |
Holger |
|
|
|
15.09.2008 10:05:49 |
Sabine |
|
|
Von:
Holger |
Datum:
05.09.2008 13:54:20 |
Views:
1047 |
Rating:
|
Antwort:
|
Thema:
Aw:Farben auslesen und zählen |
Hallo Sabine,
quick and dirty. Du musst das Makro an deine Gegebenheiten anpassen (Zellbereiche). Es wertet sowohl Text- als auch Hintergrundfarben an. Ob die Indexwerte deinen Farben entsprechen, musst du auch prüfen!
Sub farbenauslesen()
Suchspalte = 4 'Spalte mit de 'offen'
rZ = 1 'Zahlzelle für rot, Zeile
rS = 5
grZ = 2 'Zahlzelle für grün
grS = 5
geZ = 3 'Zahlzelle für gelb
geS = 5
For Each z In Range("A1:C5") 'Dein Suchbereich
If Cells(z.Row, Suchspalte) <> "offen" Then
a = z.Interior.ColorIndex
If a = 3 Then Cells(rZ, rS) = Cells(rZ, rS) + 1
If a = 4 Then Cells(grZ, grS) = Cells(grZ, grS) + 1
If a = 6 Then Cells(geZ, geS) = Cells(geZ, geS) + 1
a = z.Font.ColorIndex
If a = 3 Then Cells(rZ, rS) = Cells(rZ, rS) + 1
If a = 4 Then Cells(grZ, grS) = Cells(grZ, grS) + 1
If a = 6 Then Cells(geZ, geS) = Cells(geZ, geS) + 1
End If
Next
end sub
Gruß
Holger
sabine schrieb am 05.09.2008 07:56:49:
Hallo zusammen ,
habe folgendes Problem.
Ich möchte mit VBA in einem Zellbereich, rot grün oder gelb auslesen, wenn diese Farben vorhanden sind, soll in einer anderen Spalte geprüft werden, ob dort nicht "offen" steht. Zeilen auf die diese Kriterien zu treffen, sollen gezählt und in einer Zelle ausgegeben werden.
Ich bin um schnelle Hilfe dankbar.
Gruß Sabine |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.09.2008 07:56:49 |
sabine |
|
|
Aw:Farben auslesen und zählen |
05.09.2008 13:54:20 |
Holger |
|
|
|
05.09.2008 15:30:29 |
Sabine |
|
|
|
05.09.2008 19:47:43 |
Holger |
|
|
|
08.09.2008 11:43:53 |
sabine |
|
|
|
08.09.2008 17:56:39 |
Holger |
|
|
|
15.09.2008 10:05:49 |
Sabine |
|
|