CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_markformelrels.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************

'Verwendung: Markieren Sie einen Zellenbereich und starten Sie dieses Makro

Public Sub OVBAde_FaerbeInFormelnVerwendeteZellenRot()
  Const lFarbe As Long = 3
  Dim oZelle As Object
    
    For Each oZelle In Selection.Cells
        If oZelle.HasFormula() = True Then
            Range(oZelle.Precedents.Address).Interior.ColorIndex = lFarbe
        End If
    Next oZelle
    
    MsgBox "Fertig!"
End Sub