0160-93 82 19 37 | Nehmen Sie 
Anzahl Formeln in einer Arbeismappe ermitteln
16010
Dies kann für statistische Zwecke etc. nützlich sein.
Mit dieser Prozedur können Sie die Anzahl aller Formeln eines Tabellenblattes ermitteln.
Sub AnzahlFormeln()
Dim Anzahl, Blatt
Anzahl = 0
On Error Resume Next
For Each Blatt In ActiveWorkbook.Worksheets
Anzahl = Anzahl + CLng(Blatt.Cells.SpecialCells( _
xlCellTypeFormulas).Count)
Next
On Error Goto 0
MsgBox "Diese Mappe enthält " & Anzahl & " Formeln.",vbOKOnly, "Formeln gezählt"
End Sub
Dim Anzahl, Blatt
Anzahl = 0
On Error Resume Next
For Each Blatt In ActiveWorkbook.Worksheets
Anzahl = Anzahl + CLng(Blatt.Cells.SpecialCells( _
xlCellTypeFormulas).Count)
Next
On Error Goto 0
MsgBox "Diese Mappe enthält " & Anzahl & " Formeln.",vbOKOnly, "Formeln gezählt"
End Sub
