Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl Zeichen "=" in Mappe zählen

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

Anzahl Zeichen "=" in Mappe zählen
12.01.2015 18: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)

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl Zeichen "=" in Mappe zählen
12.01.2015 18: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

 AB
1 0
2= 
3= 
4  

Formeln der Tabelle
ZelleFormel
B1=ANZAHL(A1:A15)


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

Anzeige
AW: Hast Recht, Geht mit =Zählenwenn ...
12.01.2015 18: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 18: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

Anzeige
AW: Danke Ransi, klappt prima!
12.01.2015 18: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 19: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
 ABCD
1'In Formel  'Textaufbau 
2'Hier steht das Zeichen = im text  'Hier steht das Zeichen = im textWahr
3301020Falsch
4'Hallo Textaufbau'Hallo'TextaufbauWahr

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

Anzeige
AW: Danke Ransi, klappt prima!
13.01.2015 00: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
Anzeige

Forumthreads zu verwandten Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Anzeige
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Tausenderzeichen in Textbox
Stefen

Hi Leute
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1=Format(TextBox1,"#,##0.00") End Sub
eingebe sollte doch in Verbindung mit Controlsource in der TextBox die Tausenderzeichen stehen.
Warum geht das nicht.
Es zeigt mir immer nur den Betrag 50000...
31.01.2009 16:44:00
Thread-ID: 1045681
12 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Keine Sonderzeichen in mehreren Textboxen
Roland

Hallo VBA Profis
ich überprüfe mit folgendem Code ob jemand ein Sonderzeichen eingibt.
Sub txt_AuftragsNr_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 90, 48 To 57 'Grossbuchstaben, Zahlen Case 97 To 122 'Kleinbuchstaben Case Else MsgBox "Es sind k...
02.03.2009 11:41:30
Thread-ID: 1055489
5 Beiträge
Sonderzeichen in Textbox
Artur

Hallo User,
ich habe eine userForm als Eingabemaske entwickelt. Eins der Eingabefelder (Textbox) wir in der weiteren Verwendung als Dateiname verwendet. Wie kann ich es jetzt verhindern das der Benutzer die Sonderzeichen \ / ; usw. nicht in die Textbox einträgt. Vorerst vielen dank für Eure...
03.03.2009 10:45:06
Thread-ID: 1055855
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige