Microsoft Excel

Herbers Excel/VBA-Archiv

Farbe per VBA

Betrifft: Farbe per VBA von: Roland
Geschrieben am: 09.09.2004 09:45:47

Guten Morgen,
was muss ich tun, damit bei Case 1 die Schriftfarbe weiss wird?

With Target
Select Case .Value
Case 1: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = 3
Case 2: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = 6
Case 3: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = 4
Case 4: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = 5
Case Else: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = xlNone
End Select
End With
End Sub

  


Betrifft: AW: Farbe per VBA von: ypsilon
Geschrieben am: 09.09.2004 09:50:26

du meinst wahrscheinlich
.Interior.ColorIndex = xlNone
oder ?
cu Micha


  


Betrifft: AW: Farbe per VBA von: y
Geschrieben am: 09.09.2004 09:54:55

*grummel*
man sollte bis zum ende lesen
gemeint ist die 2
cu Micha


  


Betrifft: AW: Farbe per VBA von: Roland
Geschrieben am: 09.09.2004 09:55:54

Die Hintergrundfarbe cei Case 1 ist rot, zusätzlich soll noch die Schriftfarbe weiss werden. Irgendwas mit "Font.ColorIndex = 2" aber wie ?


  


Betrifft: AW: Farbe per VBA von: ypsilon
Geschrieben am: 09.09.2004 10:01:04

jetzt aber ;-)
Case 1: Range(Cells(.Row, 7), Cells(.Row, 9)).Interior.ColorIndex = 3:Range(Cells(.Row, 7), Cells(.Row, 9)).Font.ColorIndex = 2
cu Micha


  


Betrifft: AW: Farbe per VBA von: Roland
Geschrieben am: 09.09.2004 10:09:42

genau, vielen Dank


  


Betrifft: AW: Farbe per VBA von: Heinz A. Wankmüller
Geschrieben am: 09.09.2004 09:51:30

Hallo Roland,

mit dem Makro
Sub Farbe()
        Dim i%
        For i = 1 To 56
                Cells(i, 1).Value = i
                Cells(i, 2).Interior.ColorIndex = i
        Next i
End Sub


kannst du dir alle Farben darstellen lassen. Da siehst du, dass weiß die Nummer 2 des Colorindex hat.

Gruß
Heinz