ich würde gerne die farbige Formatierung einer Zelle, in eine ander Zelle auf einem anderen Tabellenblatt übernehmen. Hat jemand einen Lösungsvorschlag, wäre für eine Idee echt Dankbar!!!
Sub faerben()
Dim C As Range
On Error Resume Next
For Each C In [Tabelle2!a1:z100] 'Bereich anpassen
C.Interior.ColorIndex = Evaluate(C.Formula).Interior.ColorIndex
Next C
On Error GoTo 0
End Sub
Private Sub Worksheet_Activate()
Dim C As Range
On Error Resume Next
For Each C In [a1:z100].SpecialCells(-4123) 'Bereich anpassen
C.Interior.ColorIndex = Evaluate(C.Formula).Interior.ColorIndex
Next C
On Error GoTo 0
End Sub