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
Gruss