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

Zellen eines best. Formats ZÄHLEN

Forumthread: Zellen eines best. Formats ZÄHLEN

Zellen eines best. Formats ZÄHLEN
20.07.2004 14:04:03
Berta
Hallo, Profis,
in einem Zellbereich sind bestimmte Zellen mit Hintergrundfarbe "Gelbbraun" formatiert, sie haben alle unterschiedliche Inhalte (Werte); nun möchte ich die Anzahl der gelbbraun-formatierten Zellen zählen, komme weder mit ZÄHLENWENN noch ANZAHL weiter. Weiss jemand Rat (Excel oder VBA)? Dank vorab.
Berta-zu-blond-für-Excel
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen eines best. Formats ZÄHLEN
20.07.2004 14:17:39
ANdreas
Hallo Berta,
mit VBA:

Function FarbenZaehlen(rngParam As Range) As Long
Dim c As Range, lngAnzahl&
lngAnzahl = 0
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = ActiveCell.Interior.ColorIndex Then _
lngAnzahl = lngAnzahl + 1
Next c
FarbenZaehlen = lngAnzahl
End Function



Sub Beispiel()
MsgBox FarbenZaehlen(ActiveCell)
End Sub

Den Code in ein Standardmodul einfügen.
Wenn man das Beispiel ausführt, werden die Zellen im Tabellenblatt gezählt, die die gleiche Farbe wie die aktive Zelle haben.
Hoffe das hilft weiter,
Andreas
Anzeige
AW: Zellen eines best. Formats ZÄHLEN
20.07.2004 21:52:03
Berta
Hallo, ANdreas,
danke für deine Antwort, die Prozedur funktioniert auch soweit, nur daß sie halt wirklich alle gelbbraun-formatierten Zellen des gesamten Worksheet liefert, egal, was ich als Range-Parameter eingebe... (Ich hab's mühsam nachgezählt...)
Ich habe pro Zeilenbereich Namen definiert und hoffte, diese in VBA verwerten zu können;
so ist zB:
B10:AF10 = Januar
B11:AD11 = Februar
B13:AE13 = April usw.
in AJ10, AJ11, AJ13 usw. hätte ich dann gern die Anzahl der links davon (nämlich in den je nach Monat benannten Zellbereichen, siehe oben) befindlichen, kackgelben ('Tschuldigung: gelbbraunen) Zellen...
Deinen Code habe ich versucht dahingehend abzuwandeln; so habe ich in der Bedingung "ActiveCell.Interior.ColorIndex" durch 40 ersetzt, dem Index für besagtes Gelb, leider ohne Erfolg. Irgendwie ist mir die Verbindung von "rngParam" und ..."UsedRange" nicht ganz klar, denn letztere scheint immer wieder das komplette Blatt zu sein.
Hast du noch einen Tip für mich völligen VBA-Anfänger? Dank vorab, Gruß, Berta
Anzeige
AW: Zellen eines best. Formats ZÄHLEN
Reinhard
Hi Berta,

Function FarbenZaehlen(Bereich As Range) As Byte
Dim anz As Byte, Zelle As Range
anz = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 40 Then anz = anz + 1
Next Zelle
FarbenZaehlen = anz
End Function

Benutzung, z.B. in AJ11:
=FarbenZaehlen(A11:AH11)
Gruß
Reinhard
Anzeige
AW: Zellen eines best. Formats ZÄHLEN
22.07.2004 07:16:26
Berta
Guten Morgen, Reinhard,
1000 Dank, dieses Funktiönchen tut's...
Gruß, Berta
;

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Währungsformat in Zellen Vol.2
Henner

Hi,
leider bekomme ich keine Antwort auf mein Post:
https://www.herber.de/forum/archiv/1016to1020/t1018098.htm
Ich gehe davon aus, dass ich das Problem einfach nicht so gut beschreiben kann. Habe das ganze Szenario jetzt nochmal ganz vereinfacht nachgebaut, hoffe ich komme damit nu...
21.10.2008 21:58:00
Thread-ID: 1018178
5 Beiträge
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
Anzeige
Zelle in Währungsformat setzen
Larissa


Hallo,
ich lasse in eine Tabelle durch VBA in einer Zeile Daten eintragen, welche aus verschiedenen Tabellenblättern gesammelt werden.
In Spalte 11 Wird die Währung "USD" oder "EUR" eingetragen und zwei Spalten danach die Summe. Die Spalte mit der Summe muss entsprechend der Währu...
23.10.2008 20:39:35
Thread-ID: 1018794
5 Beiträge
Formel in Zellen einfügen!
Andi

Hallo zusammen,
ich würde gerne mit Hilfe eines Makros eine Formel in die die Spalte "Q" einfügen.
Die Formel soll jedoch nur in de Zellen der Spalte "Q" eingetragen werden,
wo auch ein Wert in der jeweiligen Zeile der Spalte "L" vorhanden ist.
Ich hoffe es kann mir jemand bei...
30.10.2008 21:03:30
Thread-ID: 1020721
6 Beiträge
Formelwerte in bestimmte Zellen
Sebastian

Hallo zusammen,
ich möchte gerne mit Hilfe eines Makros oder ähnlichem die Formelwerte eines bestimmten Arrays in ein bestimmtes Array eintragen lassen, wenn man darauf klickt.
Ist dies möglich? Wenn ja, wie? ;)
Vielen Dank für eure Hilfe und falls Ihr noch etwas mehr Info braucht,...
17.11.2008 21:32:00
Thread-ID: 1025413
7 Beiträge
Anzeige
formel in zelle,mit makro
rolf

hallo
wie kann ich diese formel =DATEDIF(E2;$F$1;"Y") mit einem makro in tabelle1 zelle f2 eintragen.
mfg rolf
25.11.2008 23:12:13
Thread-ID: 1027900
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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