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

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

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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige