Mit Hilfe dieser Prozedur werden alle Formeln einer Arbeitsmappe ermittelt werden. Dies kann beispielsweise für statistische Zwecke nützlich sein.
Die Prozedur durchläuft alle vorhandenen Arbeitsblätter der Arbeitsmappe und zählt alle vorhandenen Formeln. Für die Zählung wird der Methode SpecialCells verwendet.
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
Anfrageformular öffnen 
Jetzt anrufen: +49 (0)151 164 55 914 
Anfrage per E-Mail senden 
Weitere Informationen 
