Supportnet / Forum / Tabellenkalkulation

Hallo, hoffe Ihr könnt mir helfen. Ich habe Excel 2002 und ich würde gern wissen ob mann eine Wenn Funktion bezogen auf farbige zellen machen kann. z.B.: WENN A4 "Grün" DANN zähle 1 dazu. Gruß Sven

Mit einer Formel, denke ich nicht.
Mit einem Makro allerding schon:

If Range("A1").Interior.ColorIndex = 4 Then
    Range("A2").Value = Range("A2").Value + 1
End If

Bedeutet:
Wenn A1 Grün wird in A2 eines dazu addiert.
Das könntest Du z.B. mit einer Schaltfläche ausführen

Hallo Sven,

ich widerspreche Locke nur ungern,
aber grundsätzlich gäb es schon eine Möglichkeit; sorry Locke!! :-))

Hängt aber ein wenig davon ab, wie Dein "Grün" zustande kommt!

a) Grün = manuelle Eingabe???
b) Grün = bedingte Formatierung???

bei a) hat Locke "gewonnen"! :-))
bei b) kannst Du die Formel evtl. in Deine Wenn-Funktion einbinden!

gruss
pelle

@Pelle
Das würde mich aber interessiern wie?
Gib bitte mal ein Beispiel.

Außerdem kannst Du mir gerne widersprechen, ich bin ja nicht der liebe Gott ;-)
Ich lerne auch gern etwas dazu.

Hallo Locke,

Beispiel ist unterwegs!

Ich weiß zwar nicht, ob es das Problem von Sven löst,
aber es wäre vielleicht ein Weg!

Hallo Sven, wie schaut es aus?
Schick Dir auch mal auf Verdacht die Tabelle!!!

gruss
pelle

Hallo ihr Excelianer,

ich teile Pelles Lösungsansatz.

DIe Zelle ist ja nicht "automatisch" grün, es muss ja irgendwas dafür verantwortlich sein.

Wenn es eine "maanuelle" Sache ist, dann würde ich eher überlegen, nach welchen Kriterien die Zelle "manuell" grün gekennzeichnet wird. Das müßte man eigentlich in eine bedingte Formatierung hineinbringen könen.

Und dieselbe Formel, die bei der bedingten Formatierung zur Anwendung kommt, kann auch dazu verwendet werden, um dann z.B. den Wert 1 hinzuzuzählen.

Sven müßte sich jetzt mal äußern, damit wir dann dann wissen, ob und wie es mit einer Formal weitergeht.

Cu
want2cu

Hallo Sven,

Deine Addy stimmt nicht OK!!
Meine stimmt; bei Interesse Mail!

gruss
pelle

Hallo Klaus,

bekommst die Tabelle auch!!!
Hast Du das andere bekommen??

gruss
pelle

Ich glaube, so ein ähnliches Problem war hier schon mal aktuell (ich find's aber nicht mehr).
Jedenfalls ist eine benutzerdefinierte Formel nicht mehr schwer, wenn man die Interior.ColorIndex-Eigenschaft (siehe Locke, Antwort 1) dazu nimmt.

Beispielfunktion:

Function Farbe(Zelle As Range) As Byte
'gibt die Farbindexnummer des Hintergrunds der angegebenen Zelle zurück
'Bei Farbänderungen ist Aktualisierung mit Taste F9 notwendig
Application.Volatile
If Zelle.Interior.ColorIndex > 0 Then Farbe = Zelle.Interior.ColorIndex Else Farbe = 0
End Function

Die IF-Abfrage habe ich reingenommen, weil bei "keiner Farbe" und "automatischer Farbe" der wert nicht definiert wäre. In diesem Fall gibt meine Fkt. 0 zurück.

Hier hab ich mal die Farbnummern der Standardpalette "abgelichtet" (sind auch in der Hilfe zu finden):
Excel-Standardpalette

[gau]

Ach so, die Verwendung in einer WENN-Formel wäre dann einfach

=WENN(Farbe(A1)=10;"Zelle A1 ist dunkelgrün";"Zelle A1 ist nicht dunkelgrün")

[gau]

Nochmal ich ;-)
Diese Funktion funktioniert nicht bei Farbzuweisung über bedingte Formatierung!

Hallo gau,

sorry, sei doch nicht so zynisch
Oder habe ich es falsch verstanden! :(((

Ich schick Dir mal meinen Lösungsansatz!!

Ist nur ein Vorschlag, es mag bessere Lösungen geben!

Viele Wege führen nach Rom!
Hauptsache einer führt nach Rom!!!

gruss
pelle

Hallo gau,

Meine Mail an Dich kam auch zurück!

OK!!!

gruss
pelle

@gau

bei Interesse Korrektur meiner Addy!

Statt - bitte _ kleiner, aber wirksamer Unterschied!!

gruss
pelle

Hi pelle,

versteh ich jetzt echt nicht - wieso zynisch :-(
Klingt irgendwas in meinem Posting so? Wenn ja, dann war das keinesfalls Absicht!

Übrigens, meine Hotmail-Addy ist korrekt. Hab gerade eben eine andere Mail dort erhalten. Aber wenn du willst, kannst du deine Lösung an die jetzt angegebene Addcom-Addy schicken...

[gau]

Ups, jetzt haben sich die Postings etwas überschnitten... ;-)

Hallo GAU,

habe es nochmal versucht!

Zynisch, sorry ist bei mir ein wenig so angekommen!!

Bitte um Entschuldigung, habe es wohl falsch verstanden!!

OK??

gruss
pelle

Hi @all, besonders an Pelle, freut mich mal wieder was geschriebenes von Dir zu sehen.

Habt ihr jetzt alle euere Mails erhalten? Eigentlich ist die Sache doch schon geklärt. Wenn wie schon bemerkt die Farbe manuell ohne bestimmte Voraussetzungen vergeben wurde, wird wohl bloß VBA übrig bleiben , ansonsten wenn über bedingte Formatierung zugewiesen, kann diese ja als Voraussetzung für die Werterhöhung dienen, z.B.

bedingte Formatierung: =A1<500 dann Zellhintergrund grün wäre als Formel: =WENN(A1<500;A1+1;was immer gewünscht wird)

Das nur als Anmerkung für alle, die jetzt nicht in die Rundmail mit eingeschlossen waren.
Ansonsten wünsche ich allen Anwesenden eine Gute Nacht.

PS : @Pelle, vielen Dank für die Weihnachtsgrüße, die ich immer noch nicht (schäm!!) beantwortet habe.

@aliba

no problem!!!

Hauptsache, Du kennst mich noch!! :-)))

gruss
pelle

• Excel - leere Zellen automatisch löschen
• Fett formatierte Zellen zählen
• Makro/ Funktion zum ausblenden von völlig leeren Zellen?
• Verweis auf Zellen mit Formeln
• Excel: Funktion Verweis mit Text statt Zahlen