für eine größere Arbeitsmappe möchte ich für jedes Tabellenblatt einzeln die Anzahl der Zellen mit Formeln ermitteln und in einer bestimmten Zelle der jeweiligen Tabelle ausgeben.
Über die MsgBox gelingt mir das.
Sub FormelnZählen()
ThisWorkbook.Worksheets("BesondereFormeln").Activate
MsgBox "Formeln: " & Range("B1:Z1000").SpecialCells(xlCellTypeFormulas).Count
End Sub
Ich brauche aber den Zählwert in einer bestimmten Zelle. Auch hiermit komme ich nicht weiter:
Sub ZellenZaehlen()
ThisWorkbook.Worksheet("BesondereFormeln").Activate
Range("A1").Value = Application _
WorksheetFunction.Count(Range("B1:Z1000"))
End Sub
Es werden die Zahlenangaben gezählt.Ich brauche aber die Anzahl der Formeln.
Wer kann mir da weiterhelfen?
Vielen Dank im Voraus für eure Hilfe.
Klaus