Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbfunktion wenn Bedingung erfüllt

Forumthread: Farbfunktion wenn Bedingung erfüllt

Farbfunktion wenn Bedingung erfüllt
20.02.2009 13:49:00
Katja
Hallo Leute,
ich habe in einer Spalte rot und blau hinterlegte Zellen.
Jetzt möchte ich die Anzahl zählen, wenn eine Bedingung, in meinem Beispiel Spalte C den Namen der Abteilung z.B. "AC".
Nur die Anzahl der roten und blauen Zellen zu zählen geht über die Farbfunktion =anzahlrot(D1:D100),
aber wie kombiniere ich das mit meiner Bedingung?
Gruß
Katja
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbfunktion wenn Bedingung erfüllt
20.02.2009 14:04:00
Hajo_Zi
Hallo Katja,
die Funktion anzahlrot muss schon eine eigene Funktion sein. Da wäre der VBA Code nicht schlecht. Dann könnte man es dort einbauen.

AW: Farbfunktion wenn Bedingung erfüllt
20.02.2009 14:09:00
Katja
Hallo Hajo,
der Code für die Farbfunktion lautet:

Public Function AnzahlRot(Bereich As Object) As Double
Dim s As Double
Dim a As Object
Application.Volatile
s = 0
For Each a In Bereich
If a.Interior.ColorIndex = 3 Then
s = s + 1
End If
Next
AnzahlRot = s
End Function




Public Function AnzahlSchwarz(Bereich As Object) As Double
Dim s As Double
Dim a As Object
Application.Volatile
s = 0
For Each a In Bereich
If a.Interior.ColorIndex = 1 Then
s = s + 1
End If
Next
AnzahlSchwarz = s
End Function




Public Function AnzahlGrau(Bereich As Object) As Double
Dim s As Double
Dim a As Object
'Grau 50%
Application.Volatile
s = 0
For Each a In Bereich
If a.Interior.ColorIndex = 16 Then
s = s + 1
End If
Next
AnzahlGrau = s
End Function




Public Function AnzahlBlau(Bereich As Object) As Double
Dim s As Double
Dim a As Object
Application.Volatile
s = 0
For Each a In Bereich
If a.Interior.ColorIndex = 5 Then
s = s + 1
End If
Next
AnzahlBlau = s
End Function


Hoffe, es hilft Dir weiter. Danke schonmal.
Gruß
Katja

Anzeige
AW: Farbfunktion wenn Bedingung erfüllt
20.02.2009 14:23:00
Hajo_Zi
Hallo Katja,

Option Explicit
Public Function AnzahlRotGruppe(Bereich As Object) As Double
Dim a As Object
Application.Volatile
For Each a In Bereich
If a.Interior.ColorIndex = 3 And Cells(a.Row, 3) = "AC" Then
AnzahlRotGruppe = AnzahlRotGruppe + 1
End If
Next
End Function


Gruß Hajo

Anzeige
AW: Farbfunktion wenn Bedingung erfüllt
20.02.2009 15:21:00
Katja
Hallo Hajo,
vielen Dank.
Wie muss jetzt die Funktion heißen:
=anzahlrot(D1:d100;c1:c100="AC") - wird mir immer WERT angezeigt.
Gruß
Katja
AW: Farbfunktion wenn Bedingung erfüllt
20.02.2009 15:43:00
Hajo_Zi
Hallo Katja,
es war nicht die Rede davon das AC flexible. Die Formel in der Zelle muss nicht verändert werden.

Option Explicit
Public Function AnzahlRotGruppe(Bereich As Object, StGruppe As String, InSpalte As Integer) As  _
Double
Dim a As Object
Application.Volatile
For Each a In Bereich
If a.Interior.ColorIndex = 3 And UCase(Cells(a.Row, InSpalte)) = UCase(StGruppe) Then
AnzahlRotGruppe = AnzahlRotGruppe + 1
End If
Next
' Formel in Zelle  =StGruppe(S1:S25;"AC"; 3)  ' Bereich rot; Suchwert; Spalte für Suchwert
End Function


Gruß Hajo

Anzeige
;

Forumthreads zu verwandten Themen

SVERWEIS in Funktion
RolfK

Hallo Forum,
ich habe die folgende Funktion erstellt, die im Normalfall auch einwandfrei funktioniert. Die Funktion zerlegt den übergebenen String in seine Bestandteile und holt zu jedem Bestandteil eine Anzahl aus der gegebenen Matrix.
'Beispielaufruf
Sub Test() MsgBox AnzahlTln(...
08.08.2008 18:38:09
Thread-ID: 1000391
3 Beiträge
Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Indirekt-Formel mit Wenn-Funktion?
Ingrid

Hallo, hab noch ein Problem...
Gibts auch die Möglichkeit diese Indirekt-Formel (wie schon in "Auto-Ausfüllen: Zelle gleich - anderes Tabellenblatt" besprochen) mit einer Wenn-Funktion zu versehen?
=INDIREKT("'" &ZEILE(D1) &"'!B16")
Wenn B16="" Dann C16
LG
Ingrid
11.09.2008 14:37:28
Thread-ID: 1009130
5 Beiträge
OptionButtons in Wenn-Funktion
Peter

Hallo zusammen,
ich möchte gerne eine WENN-Funktion schreiben, die beinhaltet:
=WENN("OptionButton1 auf Tabellenblatt 1"=Aktiv; Bezug zu Zelle A1 auf Tabellenblatt 2; WENN "OptionButton2 auf Tabellenblatt 1"=Aktiv; Bezug zu Zelle A2 auf Tabellenblatt 2;0))
Geht so was? Wie lautet...
15.09.2008 14:46:00
Thread-ID: 1009790
5 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wenn-Formel oder Sverweis?
Gerd

Tach auch!
Eine wahrscheinlich einfache Frage.
In Zelle A1 kann eine Angabe stehen (drei Variabeln: X, Y oder Z). In Zelle A2 soll entsprechend etwas dazu ausgewiesen werden:
Wenn A1 = X dann 1
Wenn A1 = Y dann 2
Wenn A1 = Z dann 3
Wie mache ich das am klügsten? Danke fü...
30.10.2008 10:28:00
Thread-ID: 1020502
6 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Wenn Funktion mit *
Stan

Hallo,
Ich habe eine WENN Funktion eingebaut die prüft Inhalt G2 und dann multipliziert andere Zellen.
Beispiel ==WENN(G2="A12";M2*4;WENN(G2="B12";M2*2;"Fehler")). Es kommen verschiedene Werte nach A und B vor (A12, A22, A27 usw.)
Kann ich nur erste Stelle Abfragen und die nächsten...
21.11.2008 13:27:00
Thread-ID: 1026711
3 Beiträge
Buchstaben als Ergebnis einer Wenn- Funktion
Mario

Grüßt euch,
ich rätsel gerade, wie sich auch Buchstaben als Ergebnis einer Wenn-Funktion übernehmen lassen.
Meine Formel:
=WENN(Maße!B11=1;Maße!K6)+WENN(Maße!B11=2;Maße!K7)+WENN(Maße!B11=3;Maße!K8)+WENN(Maße!B11=4;Maße!K9) +WENN(Maße!B11=5;Maße!K10)
Stehen in K6, K7,...
21.11.2008 22:21:55
Thread-ID: 1026853
3 Beiträge
Sverweis, Wenn dann -> richtige Preise auswählen
Till

Hallo Excel Freunde,
ich habe mal wieder ein Problem.
In folgender Liste muss ich mehrere Entscheidungen durchführen.
Im Bildanhang die Liste:

D.h. in einer Kalkulation stehen jetzt nur 20 Stück von Produkt A und Excel soll dann den richtigen Preis (also in diesem Fall 230...
26.11.2008 11:51:00
Thread-ID: 1027984
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige