Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen mit der Farbe 15 darstellen, wenn ...?

Zellen mit der Farbe 15 darstellen, wenn ...?
07.11.2006 10:11:09
Selma
Hallo Excelfreunde,
eine Frage habe ich. Wenn der Zelleninhalt in Spalte A mit der Farbe 15 geschrieben ist, dann sollen die Zellen bis Spalte P auch in Farbe 15 dargestellt werden.
Beispiel: Zelleninhalt von A15 ist mit Farbe 15 (grau) geschrieben,
dann Bereich A15:P15 auch mit diese Farbe darstellen.
Wie mache ich dies per VBA ?
Vielen Dank im Voraus...
Liebe Grüße
Selma
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit der Farbe 15 darstellen, wenn ...?
07.11.2006 10:34:37
harry
Hallo Selma,
if range("A15").Font.ColorIndex=15 then
range("A15:P15").Font.ColorIndex=15
end if
Gruß
Harry
AW: Zellen mit der Farbe 15 darstellen, wenn ...?
07.11.2006 10:36:23
IngGi
Hallo Selma,
so zum Beispiel:


Sub test()
Dim rng As Range
For Each rng In Range("A1:A" & Range("A65536").End(xlUp).Row)
   If rng.Font.ColorIndex = 15 Then
      Range(rng.Offset(0, 1), rng.Offset(0, 15)).Font.ColorIndex = 15
   End If
Next 'rng
End Sub


Gruß Ingolf
Anzeige
AW: Zellen mit der Farbe 15 darstellen, wenn ...?
07.11.2006 10:39:40
Selma
Vielen Dank Harry und Ingolf !
LG
Selma
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige