ich suche ein Makro, dass das Zeiche = in der gesamten Mappe zählt.
Für einzelne Sheets geht es, z.B. mit der Formel =Anzahl(A1:X100).
Aber wie geht das für eine ganze Mappe?
Danke für evtl. Hilfe.
Gruß, Dieter(Drummer)
A | B | |
1 | 0 | |
2 | = | |
3 | = | |
4 |
Formeln der Tabelle | ||||
|
A | B | C | D | |
1 | 'In Formel | 'Textaufbau | ||
2 | 'Hier steht das Zeichen = im text | 'Hier steht das Zeichen = im text | Wahr | |
3 | 30 | 10 | 20 | Falsch |
4 | 'Hallo Textaufbau | 'Hallo | 'Textaufbau | Wahr |
verwendete Formeln | |||
Zelle | Formel | Bereich | R1C1 für Add In |
A2 | =C2 | =RC[2] | |
A3 | =B3+C3 | =RC[1]+RC[2] | |
A4 | =B4&" "&C4 | =RC[1]&" "&RC[2] | |
D2:D4 | =ISTTEXT(A2) | =ISTEXT(RC[-3]) |
Sub zählen()
Dim zelle As Range
Dim I As Long
Dim k As Long
Dim x As Long
For x = 1 To Worksheets.Count
For Each zelle In Sheets(x).UsedRange
For I = 1 To Len(zelle.Formula)
If Mid(zelle.Formula, I, 1) = "=" Then
k = k + 1
End If
Next
Next
Next
MsgBox k
End Sub
ist das Ergebnis 41611