wie kann ich die Textfarbe einer Zelle in einer Formel kopieren ?
=WENN(A9=1;A4;B4)
A4 --> roter Text "Achtung"
B4 --> grüner Text "OK"
Danke im Vorraus
Sub Werte_Format()
Range("C10").Copy
Range("A1").PasteSpecial Paste:=xlFormats ' Formate
Application.CutCopyMode = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Range("B9")
If .Value = "OK" Then
.Interior.ColorIndex = 4
.Font.ColorIndex = 4
ElseIf .Value = "Achtung !!" Then
.Interior.ColorIndex = 3
.Font.ColorIndex = 3
End If
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen