Office: Makro für Excel 2010 umschreiben...

Hallo,

ich benötige mal wieder Hilfe bei einem Problem...ach...da komme ich selbst nicht mehr weiter.
Wahrscheinlich (wie immer) eine Kleinigkeit...man muss nur wissen wie

Ich habe folgendes Makro, das bei Excel bis zur version 2003 immer funktionierte:

Sub ZellenFaerben()
Dim c As Range
For Each c In Range("B12:B56")
With c
If .Value > 0 And .Value Mod 2 = 1 Then _
Range(c, .Offset(0, 11)).Interior.ColorIndex = 15
End With
Next c
End Sub

Das Makro schaut in Spalte B nach den Werten und färbt dann die Zeilen mit gleichen Werten grau ein.

Nun gibt's in Excel 2010 ja viel mehr Farbmöglichkeiten, die ich für dieses Makro gerne nutzen möchte.
Im o.g. Beispiel würde ich das Grau (da die Blätter später ausgedruckt werden) viel heller gestalten.

Der Farbwert wäre 14540253.
Das habe ich mit einem Makro ermittelt:

Range("F23:J30").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 14540253
.TintAndShade = 0
.PatternTintAndShade = 0
End With



Aber wie bekomme ich das nun in mein Makro...?

Da weiß ich echt nicht mehr weiter...

Im Voraus vielen Dank...
tobi

 

Hi Tobi,

schreibe anstelle .ColorIndex = 15 nur .Color = 14540253 - vielleicht ist das ja schon ausreichend.

Bis später,
Karin

 

Hallo Beverly,

hat funktioniert.
Aber wie schon vermutet habe...es kann nur eine Kleinigkeit sein...

Danke
tobi