Anzahl Formeln in einer Arbeismappe ermitteln

16010


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
   

Excel-Inside auf FacebookExcel-Inside auf Linked InExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 

   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren