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

Zellen markieren

Forumthread: Zellen markieren

Zellen markieren
04.11.2006 10:47:44
Fritz
Hallo Schönen Tag
Ich würde ein Makro brauchen mit dem ich alle rot eingefärbten zellen in meinem Tabellenblatt markieren kann?
Kann mir da wer weiterhelfen?
Danke
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen markieren
04.11.2006 11:50:37
Daniel
Hallo
Excel bietet ja mittlerweile die Möglichkeit, nach Farben zu suchen.
Daher habe ich mal dieses Makro zusammengebastelt:

Sub Farben_Finden
Dim Zelle, Zelle1, rngErg  As Range
Application.FindFormat.Interior.ColorIndex = 6
Set Zelle = Cells(1, 1)
Set Zelle = Cells.Find(What:="", After:=Zelle, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True)
Set rngErg = Zelle
Do
Set Zelle = Cells.Find(What:="", After:=Zelle, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True)
If Not (Intersect(rngErg, Zelle) Is Nothing) Then Exit Do
Set rngErg = Union(rngErg, Zelle)
Loop
rngErg.Select
End Sub

Den Colorindex musst du halt entsprechend anpassen, ich habe hier 6 = gelb verwendet.
Gruß, Daniel
Anzeige
AW: Zellen markieren
04.11.2006 12:08:06
Fritz
Danke für die Hilfe und schönen Samstag noch!!
;

Beliebteste Forumthreads (12 Monate)

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