Clever-Excel-Forum

Hallo zusammen,

ich habe eine Datei mit ca. 95.000 Zeilen. In Spalte E befindet sich immer eine Nachricht, die meistens auch Smilies enthält (UTF-8 formatiert glaube ich). Ich würde jetzt gerne in Spalte V bis AB die Smilies nach Art zählen lassen. Also z.B. in Spalte V alle Smilies in der jeweiligen Nachricht, die ein Herz sind (dabei alle Formate berücksichtigen: ❤️, <3,  ❤,  ♥, ♡, usw.). Dabei soll in Spalte V angegeben werden, wie oft die Herzen in der jeweiligen Spalte vorkommen (siehe Foto). Gibt es dafür eine Formel?

Ich habe zuerst versucht immer Spalte E zu filtern, was auch klappt, aber irgendwie werden immer nur so rund 1.000 Zeilen berücksichtigt. Somit klappt das mit dem Filtern nicht vollständig und die Angabe der Anzahl der Smilies müsste ich immer noch händisch machen. 

Habt ihr vielleicht eine Idee/Formel, wie man die Anzahl der Smileykategorien für alle Nachrichten feststellen könnte?

Vielen lieben Dank im Voraus für eure Hilfe!!

Liebe Grüße

Hi,

schau mal, ob ZÄHLENWENN() funktioniert.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
1				2
2				3
3			:P	1
4
5
6	:P

Zelle	Formel
D1	=ZÄHLENWENN($A$1:$A$6;C1)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Hallo,

nette (eher seltene) Frage.

Vermutlich gibt es keine Formel, aber mit VBA sollte es lösbar sein.

Da aber VBA den Code der smilies einzeln abfragen muss, ist eine Beispieldatei mit einmal JEDEM smilie notwendig.

mfg

(unerwarte Antwort von Günter, aber so könnte es einfacher sein)

Vielen lieben Dank Günter und Fennek!

@Günter: Ich habe es direkt mal ausprobiert. Da ich die Anzahl der Smilies aber pro Zeile brauche, habe ich den Bereich nicht fixiert, dafür aber das Suchkriterium (z.B. Zelle I2=ZÄHLENWENN(A2;smilies!$A$2)). Wenn Smilies alleine in einer Zelle standen, hat dies auch geklappt. Sobald aber mehr Smilies in einer Zelle sind, zählt die Formel leider nicht mehr (siehe angehängte Datei Spalte ZÄHLENWENN❤️). 

@Fennek: Eine Beispielsdatei habe ich nun angehängt. Im Reiter "Smilies" habe ich jeden Smiley aufgezählt, der unter die jeweilige Kategorie fällt. Im Reiter "messages" habe ich die Spalten in loves, hahas, wows, sads, likes und angrys aufgeteilt und beispielhaft die Werte eingetragen, die ich für die 95.000 Nachrichten immer entsprechend bräuchte. Mit Makros kenne ich mich nicht wirklich aus, wäre dir/euch aber unendlich dankbar, wenn es hierfür eine Lösung geben würde!

Liebe Grüße

Moin,

nach meinem jetzigen Kenntnisstand dürfte eine Auswertung, so wie du sie dir vorstellst, nicht mit Formeln zu bewältigen sein. Ob etwas mit Makros lösbar ist, müssen dir allerdings die VBA-Spezialisten sagen - da bin ich leider blank.

Hi,


Das Smilie mit den Herzaugen wird z.B. nicht erkannt.

Arbeitsblatt mit dem Namen 'messages'
	A	B
1	message	loves
2	❤❤❤❤?	4
3	Cool	0
4	??????	0
5	Once in a lifetime ~ ♡	1
6	SN DE ❤️ :(	1
7	❤️	1
8	Glückwunsch ♥️????	2
9	Glückwunsch  ?	0
10	super schön ❤	1
11	Ja!!??	0
12	das ist blöd ??	0

Zelle	Formel
B2	=SUMMENPRODUKT((TEIL($A2;SPALTE($A$1:INDEX($1:$1;LÄNGE($A2)));1)=INDIREKT(B$1))*1)

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Andere werden doppelt gezählt, weil sie zu ähnlich sind oder als ein- und zwei-Zeichen-Version vorliegen (in smilies A4 und A7, messages A8)

Hallo,

anbei der code für den momentanen Stand:


Die normalen Text-Funktionen len(), mid() klappen oft nicht. Das erschwert den Zugriff enorm.

Ein erster Check der Suchmaschine gab nicht viel her, ich werde es später noch einmal versuchen.

Schwerer als gedacht.

mfg

Hallo,

es bleibt spannend:

Folgende Zeichen aus der Tabellen wurden mit copy/paste in den Editor übertragen und Leerzeichen eingefügt:

Zitat:❤ ❤ ❤ ❤ ?
? ? ? ? ? ? (aus Zeile 4)

Dieser Code liest die Zeichen aus und zeigt, welche 2 bytes und welche 4 bytes sind:


Es wäre möglich, die Mail nicht in xl sondern in eine Textdatei zu speichern, aber eine Prüfung mit so vielen Varianten wird recht komplex.

Vielleicht hilft noch ein API Experte.

mfg

Hallöchen,

ich nutze zwar die eine oder andere API, habe hier aber mal noch eine Formellösung
Bei den beiden Angrys in der letzten Zeile ist zu beachten, dass die eigentlich gleich aussehen, aber doch unterschiedlich sind. Markiert mal die "beiden Zeichen" des ersten und überschreibt damit den zweiten und schaut auf die Ergebnisse. Andersrum auch noch mal. Ich habe dann jeweils bei dem einen oder anderen 2 bekommen.
Der Trick ist, die zu zählenden Smilies auch in der Formel zu verwenden , daher in Zeile die "Originale" Zeile 1 ist nur informativ.
Die Formel aus B3 im gesamten Bereich verteilen …

Zelle	Formel
B3	{=SUMME((TEIL($A3;SPALTE($1:$1);LÄNGE(B$2))=B$2)*1)}

Achtung, Matrixformel enthalten!

Die geschweiften Klammern{} werden nicht eingegeben.

Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Hallo,

@Andre: genial!

Mit VBA konnte ich die Bytes analysieren und dieser Zuordnung erstellen:


Nach den 2 bytes in der letzten Spalte kann man eine Datei (gespeichert in UNICODE-Format) durchsuchen und zeilenweise auszählen.

mfg

(wird wohl nicht mehr benötigt)