Anzahl Zeichen "=" in Mappe zählen

Forumthread: Anzahl Zeichen "=" in Mappe zählen
6 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Forumthread: Anzahl Zeichen "=" in Mappe zählen

12.01.2015 19:21:15

Dieter(Drummer)

Guten Abend,
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)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Anzahl Zeichen "=" in Mappe zählen

12.01.2015 19:23:49

ransi
AW: Hast Recht, Geht mit =Zählenwenn ...

12.01.2015 19:29:15

Dieter(Drummer)
AW: Hast Recht, Geht mit =Zählenwenn ...

12.01.2015 19:31:57

ransi
AW: Danke Ransi, klappt prima!

12.01.2015 19:45:13

Dieter(Drummer)
AW: Danke Ransi, klappt prima!

12.01.2015 20:27:24

Matze
AW: Danke Ransi, klappt prima!

13.01.2015 01:55:50

Ewald

AW: Anzahl Zeichen "=" in Mappe zählen

12.01.2015 19:23:49

ransi

Hallo
...dass das Zeiche = in der gesamten Mappe zählt. Für einzelne Sheets geht es, z.B. mit der Formel =Anzahl(A1:X100). mh...
Kann ich nicht glauben.
Tabelle1

	A	B
1		0
2	=
3	=
4

Formeln der Tabelle

Zelle	Formel
B1	=ANZAHL(A1:A15)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

AW: Hast Recht, Geht mit =Zählenwenn ...

12.01.2015 19:29:15

Dieter(Drummer)

Hi Ransi,
Du hast Recht. Gibt es denn für dei ganze Mappe eine Lösung?
Gruß, Dieter(Drummer)

AW: Hast Recht, Geht mit =Zählenwenn ...

12.01.2015 19:31:57

ransi

Hallo Dieter,
Als Makro evtl. so ?

Option Explicit

Sub machs()
    Dim myClp As String
    Dim lngTmp As Long
    Dim I As Integer
    For I = 1 To Worksheets.Count
        Worksheets(I).Cells.Copy
        myClp = lesen
        lngTmp = lngTmp + (Len(myClp) - Len(Replace(myClp, "=", "")))
    Next
    MsgBox lngTmp
End Sub

Public Function lesen()
    Dim IE As Object
    On Error Resume Next
    Set IE = CreateObject("HTMLfile")
    lesen = IE.ParentWindow.ClipboardData.GetData("text")
    Set IE = Nothing
End Function

ransi

AW: Danke Ransi, klappt prima!

12.01.2015 19:45:13

Dieter(Drummer)

Hi Ransi,
ich Danke Dir. Es wundert mich immer wieder, wie schnell ihr so etwas schafft.
Danke und noch einen schönen Abend.
Gruß, Dieter(Drummer)

AW: Danke Ransi, klappt prima!

12.01.2015 20:27:24

Matze

Hallo Ihr Beiden,
klasse Lösung ransi, hät ich nie hinbekommen.(Wenn diese denn so ausreichend ist)
allerdings hab ich ebn einfach mal rumgetestet und festgestellt das wenn eine Formel
den Bezug zu einem Text bekommt ebenfalls das Zeichen = mitgezählt wird.

Tabelle1

	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])

XHTML Tabelle für Darstellung in Foren,
einschl. Bedingter Formatierung ab Version 2007
XHTML-Version 11.50 einschl 64 Bit Version

Bei einer reinen Formel zb =100+2 oder =B1+B2 wenn dort die Zahlen addiert werden ,wird nicht mitgezählt. A4 Formel wird nicht gezählt obwohl Text ist.
Gruß Matze

AW: Danke Ransi, klappt prima!

13.01.2015 01:55:50

Ewald

Hallo,
irgendwie haut das bei mir nicht hin, wenn ich das Makro laufen lasse, bekomme ich 22 als Ergebnis.
bei 15 Tabellen mit vielen formeln kann das nicht sein.
Lasse ich folgendes Makro Laufen

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
Gruß Ewald