Schriftfarbe wechselt zu weiß statt grau

Question

Ich lerne immer noch, wie man programmiert, aber ich verstehe einfach nicht, warum ich bei so einer einfachen Aufgabe versage, die ich schon oft gemacht habe.

Der Code soll die Schriftfarbe in grau ändern, wird aber stattdessen in weiß geändert.

For j = 1 To 12 

With wsTank.Cells(first(i), j) 

.Value = "NIL" 

With .Font 
.ThemeColor = xlThemeColorDark1 
.TintAndShade = -0.499984740745262 
End With 
With .Interior 
.Pattern = xlNone 
.TintAndShade = 0 
.PatternTintAndShade = 0 
End With 
With .Borders(xlEdgeTop) 
.LineStyle = xlContinuous 
.ColorIndex = xlAutomatic 
.TintAndShade = 0 
.Weight = xlHairline 
End With 
With .Borders(xlEdgeBottom) 
.LineStyle = xlContinuous 
.ColorIndex = xlAutomatic 
.TintAndShade = 0 
.Weight = xlHairline 
End With 
End With 


Next j 

Ich habe viel online recherchiert, und eine Person mit einem ähnlichen Problem gefunden:

https://www.experts-exchange.com/questions/26937588/Excel-vba-font-color-keeps-shoeing-white-instead-of-gray.html

Nach ein paar Versuchen von jemand bereit zu helfen, er es richtig gemacht haben.

Aber ich verstehe seine Erklärung einfach nicht ... Und deshalb gelingt es mir nicht, es auf meinen Fall anzuwenden.

Könnte jemand bitte mich aufklären?

(Dieses Problem geschieht mit Excel 2010. Dem Code gut funktioniert in Excel 2013)

Answer 1

Die Antwort in Ihrem Link aber Color mit einem RGB-Wert überhaupt nicht Themecolor war zu verwenden statt:

With .Font 
    .Color = &H808080 
    .TintAndShade = 0 
end with 

Answer 2

Dies sollte mit jeder Version von Excel funktionieren.

.Font.Color = RGB(255, 255, 255)

Die xl... Aussagen können über die Versionen unterscheiden, da sie Änderungen vornehmen.