Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Farben zählen bedingte Formatierung

2 Farben zählen bedingte Formatierung
13.12.2004 21:23:01
Rene
Hallo
Ich möchte in einigen Spalten die Farben zählen (Azahl rote + Anzahl grüne Felder)pro Spalte
Die Farben stammen aus einer bedingten Formatierung (Formel)nicht Zellwert.
Habe mal einen Beitrag gefunden
Bei dieser Lösung wird aber nur die Bedingung der ersten bedingten
Formatierung erfüllt. (d.h Ist die erste bedingte Formatierung = rot werden nur die roten gezählt Bedingung 2 (grün) wird nicht beachtet.
Kann mir jemand weiterhelfen ?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Farben zählen bedingte Formatierung
Ramses
Hallo
zeig doch mal den Code den du gefunden hast.
Gruss Rainer
AW: 2 Farben zählen bedingte Formatierung
14.12.2004 07:14:49
Rene
Hier der Code
Dim Formel As Integer
Dim Formel2 As Integer

Function BedZählen(Bereich As Range)
s = 0
gefunden = False
For Each c In Bereich.Cells
If c.FormatConditions.Count > 0 Then
gefunden = True
If c.FormatConditions(1).Type = xlCellValue Then
Formel = c.FormatConditions(1).Formula1
OP = c.FormatConditions(1).Operator
Select Case OP
Case 0
Case xlBetween
Formel2 = c.FormatConditions(1).Formula2
Bed = Formel <= c.Value And c.Value <= Formel2
Case xlEqual
Bed = c.Value = Formel
Case xlGreater
Bed = c.Value > Formel
Case xlGreaterEqual
Bed = c.Value >= Formel
Case xlLess
Bed = c.Value < Formel
Case xlLessEqual
Bed = c.Value <= Formel
Case xlNotBetween
Formel2 = c.FormatConditions(1).Formula2
Bed = Formel > c.Value Or c.Value > Formel2
Case xlNotEqual
Bed = c.Value <> Formel
End Select
If Bed Then
s = s + 1
End If
End If
Else
If gefunden = False Then
BedZählen = ""
End If
End If
Next
If gefunden = True Then
BedZählen = s
End If
End Function

Anzeige
AW: 2 Farben zählen bedingte Formatierung
14.12.2004 11:46:30
Rene
Hier der Code
Dim Formel As Integer
Dim Formel2 As Integer

Function BedZählen(Bereich As Range)
s = 0
gefunden = False
For Each c In Bereich.Cells
If c.FormatConditions.Count > 0 Then
gefunden = True
If c.FormatConditions(1).Type = xlCellValue Then
Formel = c.FormatConditions(1).Formula1
OP = c.FormatConditions(1).Operator
Select Case OP
Case 0
Case xlBetween
Formel2 = c.FormatConditions(1).Formula2
Bed = Formel <= c.Value And c.Value <= Formel2
Case xlEqual
Bed = c.Value = Formel
Case xlGreater
Bed = c.Value > Formel
Case xlGreaterEqual
Bed = c.Value >= Formel
Case xlLess
Bed = c.Value < Formel
Case xlLessEqual
Bed = c.Value <= Formel
Case xlNotBetween
Formel2 = c.FormatConditions(1).Formula2
Bed = Formel > c.Value Or c.Value > Formel2
Case xlNotEqual
Bed = c.Value <> Formel
End Select
If Bed Then
s = s + 1
End If
End If
Else
If gefunden = False Then
BedZählen = ""
End If
End If
Next
If gefunden = True Then
BedZählen = s
End If
End Function

Anzeige

310 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
über Farbe der Zelle Zellen dynamisch sperren
Sucher

Hallo liebes Forum,
kann mir hier im Forum eine/einer weiterhelfen.
Das Makro soll wenn Colerindex = 2 Zellen dynamisch entsperren alle anderen Zell- Farben sollen gesperrt werden!
Ist Situation:
Ich habe mit Excel einen Rechner gebastelt der von anderen Anwendern benutzt werde...
11.12.2008 09:18:42
Thread-ID: 1031921
13 Beiträge
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Anzeige
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
Diagramm Linienfarbe aus Zellfarbe "auslesen"
StefanK

Hallo Herber-Excel-Freunde,
ich habe ein Diagramm (Punkt XY - Untertyp: Punkte mit Linien ohne Datenpunkte) rstellt.
Dabei formatiert Excel erst einmal die Farben automatisch.
Bislang markiere ich dann die einzelnen Linien im Diagramm und formatiere die Farben um.
Jetzt meine A...
16.02.2009 19:50:00
Thread-ID: 1051268
11 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Farbe von bedingte Formatierung übertragen
bedingte

Hallo,
Wie kann ich die Farbe von bedingte Formatierung von ZellBereich 2 übertagen nach ZellBereich 1
Hintergrund ist dass in Bereich 2 Prozentuelle anteilige Wert je Warengruppe (WGR) ausgerechnet wird.
Ich suche ein möglichkeit diese Farbe eins zu eins von Bereich 2 nach Bereic...
05.03.2009 12:14:23
Thread-ID: 1056767
3 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
10
12
9
7
9
10
5
2
3
5
2
3
2
6
3
17
14
2
3
2
3
7
3
2