Ander kleur tekst

[Bertus78]

Wie kan mij even helpen.

Ik probeer een tekst in het wit neer te zetten.
Maar ik krijg het niet voor elkaar.

Wat is de bedoeling.
In sheets "blad2" in rij F End(xlUp) een woord (in het wit)
Ik heb het woord staan in sheets "blad3" cel A145

Ik heb dit hieronder al geprobeerd, maar het verschijnt niet in het wit.

    For Each cell In Range("C11")
        Sheets("Blad3").Range("A145").Copy
            With Selection.Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
            End With
        Sheets("Blad2").Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
                Application.CutCopyMode = False

 

[edmoor]

Een tekst in een cel een kleur geven doe je met .Font.Color

 

[SjonR]

vbWhite

 

[Bertus78]

Maar waar zet ik dat dan neer?

For Each cell In Range("A145")
        Sheets("Blad3").Range("A145").Copy
        Sheets("Blad2").Range("F65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    Next

 

[Cobbe]

Zo?

Sub cobbe()
 Sheets("Blad3").Range("A145").Copy
    With Sheets("Blad2").Range("F" & Rows.Count).End(xlUp).Offset(1, 0)
        .PasteSpecial Paste:=xlPasteValues
        .Interior.Color = vbBlack
        .Font.Color = vbWhite
    End With
    Application.CutCopyMode = False
End Sub

 

[Bertus78]

BEDANK BEDANKT BEDANKT !!!!!!!

:thumb:

 

[VenA]

Zonder copy kan ook

Sub VenA()
  With Sheets("Blad2").Cells(Rows.Count, 6).End(xlUp).Offset(1)
    .Value = Sheets("Blad3").Range("A145").Value
    .Interior.Color = vbBlack
    .Font.Color = vbWhite
  End With
End Sub

For each cell in een range van 1 cel lijkt mij niet erg logisch. Of zit er meer achter deze vraag?