Anzahl der berechneten Zellen

Forumthread: Anzahl der berechneten Zellen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Anzahl der berechneten Zellen

Frank

Hallo Forum,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Anzahl der berechneten Zellen

Eugen
AW: Anzahl der berechneten Zellen

Frank

AW: Anzahl der berechneten Zellen

07.02.2011 14:49:28

Eugen

Hallo 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
Eugen

AW: Anzahl der berechneten Zellen

07.02.2011 15:08:31

Frank

Hallo Eugen,
vielen Dank für die schnelle Unterstützung, das war genau mein Anliegen. Tolles Forum.
Vielen Dank und viele Grüße,
Frank