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

Nächste farbliche Zelle

Nächste farbliche Zelle
31.03.2008 12:57:00
Captain
Hi,
wie kann ich die nächste Zelle mit roter Schrift ermitteln?
Beispiel: Select in C15. Nun soll von hier an nach unten die nächste Zelle gefunden werden, die rote Schrift beinhaltet und den Zelleninhalt auslesen; hier z.B.: C42
How?
thx
Jack

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

Betreff
Datum
Anwender
Anzeige
AW: Nächste farbliche Zelle
31.03.2008 14:16:00
Rudi
Hallo,

Function NaechsteFarbige(Optional rngStart As Range)
Dim i As Long, rngC As Range
If rngStart Is Nothing Then Set rngStart = Selection(1)
Do
i = i + 1
Set rngC = rngStart.Offset(i, 0)
Loop Until rngC.Font.ColorIndex = 3 Or rngC.Row = Rows.Count
NaechsteFarbige = rngC.Value
End Function



Sub tt()
MsgBox NaechsteFarbige(Range("C15"))
End Sub


Gruß
Rudi

AW: Nächste farbliche Zelle
31.03.2008 15:52:27
Jack
Hi,
prima, ich danke Dir
Jack
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige