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

Wörter in Zellen / Spalteninhalte zählen

Forumthread: Wörter in Zellen / Spalteninhalte zählen

Wörter in Zellen / Spalteninhalte zählen
Lemmi
Hallo zusammen,
ich möchte gerne feststellen wieviel gleiche Wörter/ Zahlen sich wiederholen!
Ich habe eine Spalte mit nachfolgenden Inhalt:
Zellen ab E6
E6: Müller Fritz 123
E7: Meier Hans 456
E8: Kleiner Hund 123
E9 Müller Hans123
E10:123
E11: 456
Es sollen alle mindesten zweimal vorkommenden Teilinhalte gezählt werden!
Teilinhalte sind durch Leerzeichen in der Zelle getrennt:
Ausgabe in neuem Arbeitsblatt ab E6 und E7:
E6............E7
Müller ..... 2
123 ....... 4
Hans........2
456..........2
Gruß
Lemmi
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wörter in Zellen / Spalteninhalte zählen
27.09.2009 11:04:35
ransi
HAllo
Versuch mal diesen kleinen Code.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub test()
Dim arr
Dim L As Long
Dim K
Dim B
Dim myDic As Object
Dim strText As String
Set myDic = CreateObject("Scripting.Dictionary")
arr = WorksheetFunction.Transpose(Sheets("Tabelle1").Range("E6:E11"))
strText = Join(arr, " ")
arr = Split(strText, " ")
For L = LBound(arr) To UBound(arr)
    myDic(arr(L)) = myDic(arr(L)) + 1
Next
K = myDic.keys
For Each B In K
    If myDic(B) = 1 Then myDic.Remove B
Next
'Ausgeben
Sheets("Tabelle2").Range("E6").Resize(myDic.Count) = WorksheetFunction.Transpose(myDic.keys)
Sheets("Tabelle2").Range("F6").Resize(myDic.Count) = WorksheetFunction.Transpose(myDic.items)
End Sub
Ist allerdings kaum getestet.
ransi
Anzeige
AW: Wörter in Zellen / Spalteninhalte zählen
27.09.2009 19:11:49
Lemmi
Hallo Ransi,
habe gerade das Makro in die Datei eingebracht! Alles bestens!
Vielen vielen Danke!
Gruß
Lemmi

Forumthreads zu verwandten Themen

Bestimmten Text in Zelle finden und Adresse davon ausgeben
AhoiBrause90
Hallo geschätze Excelkenner,

Ich komme seit 2 Tagen auf keine passende Lösung, für folgende Aufgabe:

In Tabellenblatt1 steht ein Text den ich in Tabellenblatt2 finden möchte. Allerdings steht es dort in zwischen anderen Wörtern in einer Zelle.
Wenn ich es dort gefunden habe möc...
04.04.2024 19:36:00
Thread-ID: 1972316
3 Beiträge
Wörter in Text-Zelle finden und ausgeben
Georg

Hallo zusammen,
ich bin auf der Suche nach einer Formel, die es mir erlaubt nach bestimmten Wörtern zu suchen und diese dann entsprechend in der selben Zeile auszugeben.
Meine Datei ist wie folgt aufgebaut:
In Spalte A stehen Nummern, Spalte B enthälte teilweise sehr lange Texte zu...
22.06.2020 17:02:57
Thread-ID: 1767101
2 Beiträge
Replace Funktion
Torsten

Hallo,
ich möchte per VBA einzelne Wörter in einem Text ersetzten, habe mir dafür die Replace-Funktion rausgepickt.
Ein Ausgangstext wird von Zelle A1 nach A2 kopiert und der Text in A1 bleibt im Original erhalten.
In A3 steht das Suchwort “Otto“ und in A4 ein weiteres Suchwort “Max...
11.03.2019 13:45:55
Thread-ID: 1680602
8 Beiträge
VBA Text in Zelle per Eingabe s und Zeilen kopiere
Michael

Hallo zusammen,
vorab, ich bin ganz neu hier und mir bewusst dass jeder etwaige Helfer seine Unterstützung, zunächst, ohne Gegenleistung anbietet. Dafür möchte ich schon jetzt meinen grössten Dank aussprechen.
Nun zur Thematik,
ich bin Projektleiter in einem grossen Unternehmen und...
19.02.2018 14:32:25
Thread-ID: 1609822
4 Beiträge
Wort aus Zelle in Matrix suchen und anderen wert ausgeben
Nikolaus Pfusterschmid
Ich versuche in Tabelle A bei meiner Buchhaltung wiederkehrende Buchungen in einer Zelle zu finden die in einer anderen Tabelle stehen. Da sich in der Zelle immer eine Zahl mit dem Datum befinden kann, soll nur ein bestimmter Wortteil gesucht werden und dann der Text aus einer anderen Zelle ausgewor...
17.10.2023 13:58:53
Thread-ID: 1949907
7 Beiträge
Textsuche: Spalte und Reihe per Formel finden
Maximilian

Hallo,
in der Zelle B2 steht der Text "test".
Mit welchen beiden Formeln kann ich das Wort "test" in der gesamten Tabelle suchen und jeweils einmal Spalte und einmal Zeile der gefundenen Zelle ausgeben?
Ideal wäre es noch, wenn das ganze Groß- und Kleinschreibung ignoriert, aber das...
20.02.2013 12:21:17
Thread-ID: 1300185
9 Beiträge
Datum bzw. "Heute" finden
Eisi

Guten Morgen,
jetzt dachte ich, dass der Code funktioniert, aber leider doch nicht. Bzw. gestern ging er und heute Morgen nicht mehr.
Folgendes:
Ich habe eine Tabelle in der in Zeile 13:13 mit der >Formel =NH13+1 Meine Fensteransicht ist bei Spalte N fixiert.
Ich möchte, dass...
29.12.2020 10:18:08
Thread-ID: 1802328
8 Beiträge
Suchen in Datenbank
siegfried
Guten Morgen Fachfrauen und Männer,
ich habe eine Datenbank mit 12 Spalten und bis zu 2.500 Datensätze.
Ich suche eine Möglichkeit für das SUCHEN nach Text in der Datenbank, es sollte in Spalte B bis D gesucht werden.
Ich habe mal "FINDEN" angeschaut aber leider nicht das Richtige für mi...
11.02.2023 11:10:23
Thread-ID: 1919813
15 Beiträge
und gleichzeitig noch ne andere Problemfrage
Pascal

Sorry, dass ich jetzt - obwohl ich ein paar Zeilen weiter unten schon ein Problem gepostet habe.... schon wieder poste ! ;-(
Aber....
Ich brauche gleich nochmals (oder schon wieder) … eure profi-Hilfe
Und zwar bei folgendem Code:
Private Sub CommandButton1_Click() 'On Error Resu...
25.01.2011 13:46:37
Thread-ID: 1197229
3 Beiträge
Text suchen und -1 Zelle anderen Text eintragen
albin

Hallo zusammen
Komme mal wieder nicht weiter.
Ich suchen den Text "Geburtstag" in Spalte D, ab Zeile 3. Wenn dieser gefunden wurde, dann schreibe eine Zelle Tiefer, einen anderen Text rein. Der Suchebegriff kann mehrmals vorkommen in D vorkommen.
Wenn ich nur ein Such-Zeichen benütz...
09.05.2017 02:54:26
Thread-ID: 1557131
4 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum