Wie viele Zeilen Code sind in meiner Dat
27.09.2022 16:24:39
Andreas
hat mich mal interessiert, wie viele Formeln in meiner Datei sind.
Dazu hab ich diesen Code gefunden, der auch wunderbar funktioniert:
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
Gruß Andreas
