Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzahl der eingrfärbten Felder ermitteln

Anzahl der eingrfärbten Felder ermitteln
23.02.2006 00:34:48
Patrick
Hi, hoffe Ihr könnt mir helfen.
Ich habe einen Bereich (F2:F20), in dem die Felder entweder blau (Interior.ColorIndex = 37) oder rot (Interior.ColorIndex = 3) eingefärbt werden (und zwar automatisch).
Ich möchte nun, dass automatisch, also bei jeder Änderung im Sheet geprüft wird, ob aktuell 11 blaue Felder in diesem Bereich vorhanden sind. Ansonsten soll etwas passieren, z.B. in dem Feld H7 könnte "ACHTUNG" stehen oder so...
Viel Spass beim knobeln...
Patrick

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

Betreff
Datum
Anwender
Anzeige
AW: Anzahl der eingrfärbten Felder ermitteln
23.02.2006 04:37:12
Mustafa
Hallo Patrick,
Schau mal hier nach.
http://home.media-n.de/ziplies/
Viel zeug zum Probieren da.
Hoffe es hilft dir weiter.
Viele Grüße aus dem Jecken Kölle
AW: Anzahl der eingrfärbten Felder ermitteln
23.02.2006 10:06:27
WernerB.
Hallo Patrick,
das nachstehende Makro gehört in das Modul des entsprechenden Tabellenblattes (es funktioniert leider nicht, wenn die Hintergrundfarben durch bedingte Formatierung erzeugt werden!):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range, _
z As Byte
For Each c In Range("F2:F20")
If c.Interior.ColorIndex = 37 Then
z = z + 1
End If
Next c
If z = 11 Then
Range("H7").ClearContents
Else
Range("H7").Value = "ACHTUNG"
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Anzahl der eingrfärbten Felder ermitteln
26.02.2006 16:13:26
Patrick
FUNZT !!!
1000 Dank, Werner!!!!

169 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige