Excel 2013: Tekstfarver i celler

Det kan kun lade sig gøre med VBA. for eksempel:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
If Range("B1") <> 0 Then
Range("A1").Copy Destination:=Range("F8")
Else
Range("F8") = ""
Range("F8").ClearFormats
End If
End If
End Sub

>jens48: Tak for kommentar. Det anede mig, men det er noget kluns, at skulle aktivere en Sub (med knap eller lignende?) for at formatere en celle. Kan Sub'en aktiveres på anden måde?

Jeg ved ikke hvor meget du skal formatere, men ellers kan du jo markere A1, og derefter bruge "Formatpenslen" under Startside fanen, og klikke på de(n) celle(r), som skal have samme formatering; derved får du samme formatering som det markerede.

>ebea: Tak, men det virker kun med baggrundsfarve, generel tekstfarve og ramme. Det virker ikke med individuelle farver i teksten

Den makro jeg lavede skal ikke aktiveres med en knap, men kører automatisk, hvis du taster noget ind i B1. Hvis der står en formel i B1 virker den ikke. Men så kan den laves, så den kører automatisk, når der tastes ind i den/de celle(r), der påvirker B1. Det kræver blot lidt mere kendskab til opbygningen af dit ark.

>jens48: Tak - det hjalp,