Der Code für ein allgemeines Modul.
Public Sub Alle_Formeln_listen()
'####################################################################
'Code für ein allgemeines Modul
'Es muss links in der Datei ein Tabellenblatt [Formeln] angelegt sein
'Autor: Jürgen Hennekes
'#####################################################################
On Error Resume Next
Dim wks As Worksheet
Dim rngZelle As Range
Dim lngZ As Long
Dim intSh As Integer
Set wks = Worksheets("Formeln")
lngZ = 2
For intSh = 2 To Worksheets.Count
Err.Clear
For Each rngZelle In Worksheets(intSh).UsedRange.SpecialCells(xlCellTypeFormulas)
With wks
.Cells(lngZ, 1).Value = Worksheets(intSh).Name
.Cells(lngZ, 2).Value = rngZelle.Address(0, 0)
.Cells(lngZ, 3).Value = "'" & rngZelle.FormulaLocal
.Cells(lngZ, 4).Value = rngZelle.Value
lngZ = lngZ + 1
End With
If Err.Number <> 0 Then
wks.Cells(lngZ - 1, 2).Value = " enthält keine Formeln."
End If
Next
Next
End Sub