ich möchte, dass in 3 Spalten die Zellen, die eine Berechnung enthalten (z.B.: =123,45+1,50) in roter Textfarbe formatiert werden, wie geht das?
Gruß Hermann
Function isformel(ByVal feld As Range) As Boolean
If (Left(feld.Formula, 1) = "=") Then
isformel = True
Exit Function
End If
isformel = False
End Function