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

Farbig markierte Zellen zählen lassen

Farbig markierte Zellen zählen lassen
15.05.2003 13:52:35
Dominik
Hallo!

Ich möchte alle grün hinterlegten Zellen im Bereich "B11:AF42" zählen lassen und den Wert (also die Anzahl der gefundenen Zellen) in Feld "C45" ausgeben lassen. Nun habe ich in der Recherche nachgesehen, und bin auch fündig geworden. Allerdings wird an meiner Bereichangabe gemeckert... ;-) und eine Wert in "C45" bekomme ich auch nicht. Was ist falsch? Hier das Makro:


Sub Grün()
Dim cell As Range
Dim Bereich As Range
Dim i As Integer
Range("B11:AF42").Select
Set Bereich = Selection
i = 0
For Each cell In Bereich
If cell.Interior.ColorIndex = 4 Then i = i + 1
Next cell
Range("C45") = i
End Sub

MfG
Dominik

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

Betreff
Datum
Anwender
Anzeige
Re: Farbig markierte Zellen zählen lassen
15.05.2003 13:59:05
ChrisL
Hallo Dominik

Gruss
Chris

Re: Farbig markierte Zellen zählen lassen
15.05.2003 14:00:06
L.Vira
Wahrscheinlich stimmt der Index nicht:
Option Explicit
Sub Grün()
Dim cell As Range
Dim i As Integer
For Each cell In [a1:c20]
If cell.Interior.ColorIndex = 10 Then i = i + 1
Next
[e1] = i
End Sub
Re: Farbig markierte Zellen zählen lassen
15.05.2003 14:04:54
Koenig W.
Hallo Dominik,
meines Erachtens müsste die letzte Zeile Range("C45").Value = i heissen.
Gruss
Re: Danke!
15.05.2003 14:13:58
Dominik
Danke Chris! Jetzt funktioniert´s.

MfG
Dominik

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige