tell application "Numbers"
    activate
    tell document 1
        tell sheet 1
            tell table 1
                set Spalten to every column
                set Reihen to row count
                repeat with eineSpalte in Spalten
                    set SpalteAdresse to name of eineSpalte
                    set dieZellen to every cell of eineSpalte
                    repeat with eineZelle in dieZellen
                        set selection range to eineZelle
                        tell application "System Events" to tell process "Numbers"
                            set Formel to value of text area 1 of scroll area 1 of splitter group 1 of splitter group 2 of splitter group 1 of window 1
                        end tell
                        if Formel begins with "=" then
                            set text color of eineZelle to "red"
                            set background color of eineZelle to "green"
                        end if
                    end repeat
                end repeat
            end tell
        end tell
    end tell
end tell

    tell document 1
        tell sheet 1
            tell table 1

set text color of eineZelle to "red"
                            set background color of eineZelle to "green"