Textfarbe per VBA ändern = falsche Farbe

[o0Julia0o]

hi, ich  möchte in einem Feld E2 die Textfarbe auf grau ändern. Die Farbe wird jedoch immer auf weiß geändert:

Code:

Sub Makro1()
Range("G2").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
    End With
    Range("G2").Select
End Sub

Ich habe das Makro aufgezeichnet mit Excel. Trotzdem ist es falsch. Die Farbe ist eindeutig weiß.

  Sieger.xlsm (Größe: 15,3 KB / Downloads: 3)

Woran liegt das?

[RPP63]

Woran liegt das?

Moin Julia!
Das weiß ich nicht, ist aber auch egal.
Kennst Du Goethe?
Ich meine jetzt den Dichter, der eher ein Universalgenie war und sich der Farblehre widmete.
Ich mache jetzt keinen wissenschaftlichen Exkurs, nur so viel:
Ein "echtes" Grau erhält man, indem man rot, grün und blau in gleicher Intensität mischt.

Folgendes Makro erstellt Dir eine komplette Liste "echter" Grautöne (schwarz ist ein sehr dunkles Grau ;))

Sub RPP()
Dim i&
Application.ScreenUpdating = False
For i = 0 To 255
  With Cells(i + 1, 1)
    .Interior.Color = RGB(i, i, i)
    .Offset(0, 1) = "RGB(" & i & ", " & i & ", " & i & ")"
  End With
Next
Cells.Columns.AutoFit
End Sub

P.S.: Du solltest mittlerweile soweit sein, Makros ohne .Select zu erstellen.

Gruß Ralf

[o0Julia0o]

Klar kenn´ ich Goethe, war ich im Kino drin ^^

Ich habe das ja bewußt gemacht mit der Aufzeichnung. Ich habe ein Feld(grau) dort steht etwas in schwarzer Schrift. Ich möchte die Farbe der Schrift mit der gleichen Farbe wie das Feld hat einfärben. Dazu habe ich mir so einen Grauton ausgesucht. Den dritten ganz links - siehe Bild:
   

Dann habe ich ein Makro aufgezeichnet, damit ich 100%ig diesen Grauton bekomme für die Schrift(damit diese unsichtbar wird quasi in dem grauen Feld). Das Ergebnis der Aufzeichnung ist das Makro im 1. Post. Doch trotzdem wird die Schrift nicht grau, sondern weiß. Obwohl bei der Aufzeichnung die Schrift grau wurde. Das ist ja schon mal verwunderlich.

Das ist jetzt ein Problem, da ich die Schrift genau in dem Grauton auch haben möchte.

[RPP63]

Moin!

Code:

With Range("G2")
  .Font.Color = .Interior.Color
End With

Ich habe mir jetzt mal Deine Datei angesehen.
Bei mir ergibt sich ein dunkleres Grau!
Kontrast-Problem??

Gruß Rald

[Guschti]

Hallo Julia

Bei deinem Code wird die Textfarbe invertiert.
Hier mein Code

Code:

Sub GleicheFarbe()
    Range("G2").Font.Color = Range("G2").Interior.Color
End Sub

Mfg Guschti

[o0Julia0o]

Was es nicht alles gibt. Im Grunde ja sogar viel praktischer, weil ich die Farbe sogar ändern könnte. Lieben Dank euch beiden!