Alle Formeln der Arbeitsmappe auflisten

Sub FormelnAuflisten()
    Dim ws As Worksheet, out As Worksheet, c As Range, r As Long
    Set out = Worksheets.Add
    out.Name = "Formel_Report_" & Format(Now, "hhnnss")
    out.Range("A1:D1").Value = Array("Blatt", "Zelle", "Formel", "Wert")
    r = 2
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> out.Name Then
            On Error Resume Next
            For Each c In ws.UsedRange.SpecialCells(xlCellTypeFormulas)
                out.Cells(r, 1).Value = ws.Name
                out.Cells(r, 2).Value = c.Address(False, False)
                out.Cells(r, 3).Value = c.Formula
                out.Cells(r, 4).Value = c.Value
                r = r + 1
            Next c
            On Error GoTo 0
        End If
    Next ws
    out.Columns.AutoFit
End Sub