Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Alle Formeln einer Datei auflisten
 
Es sollen alle Formeln einer Datei mit Zelladresse und Wert in einem separaten Tabellenblatt gelistet werden.
Für nachstehendes Beispiel muss zunächst links in der Datei ein Tabellenblatt mit dem Namen "Formeln" angelegt werden.
 
 
 
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