ich habe eine kurze Frage. Besteht die Möglichkeit, per Makro, sich die Anzahl der Zellen in der eine Berechnung stattfindet (aller Datenblätter einer Exceldatei) ausgeben zu lassen?
Vielen Dank und vielen Grüße,
Frank
Private Sub count_calc
Dim cell As Range, nCount As Integer, i As Integer
For i = 1 To Sheets.Count
For Each cell In Sheets(i).UsedRange
If InStr(cell.FormulaR1C1, "=") > 0 Then
nCount = nCount + 1
End If
Next cell
Next i
MsgBox Trim(Str(nCount)) + " Berechnungen gefunden !"
End Sub
GrussDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen