Office 2003: Wieviele Formeln sind in einer Excel-Datei

[Flexi]

Hi zusammen,

gibt es eine Statistik bzw. Übersicht, in der man sieht, wieviele Formeln sich in einer Arbeitsmappe befinden?

Herzlichen Dank vorab

Flexi

[ae]

Hallo Flexi,

passt es so ?

Sub alle_Formeln_finden()

Dim Zelle As Range
Dim formel As Long
For i = 1 To ActiveWorkbook.Sheets.Count

For Each Zelle In Sheets(i).UsedRange
     If Zelle.HasFormula = True Then
         formel = formel + 1
     End If
Next Zelle
Next i
MsgBox formel

End Sub

[Flexi]

Hi ae,

habe den Code eingefügt und es ermittelt die Formeln der Arbeitsmappe. Super! Danke

lg

Flexi