Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon fipsel vom 24.09.2021, 11:15 Options

Zählen von bestimmten Wörtern, Zeichen oder Zahlen mit Makro

Hallo Leute,

Ich versuche gerade ein Makro zu erstellen, welches ein bestimmtes Wort in einer Spalte Zählt!

Hier mein bisheriger Ansatz aus dem Internet :



Sub Text_Zählen()

' Zählt wie oft ein Wort im Haupttext des aktiven Dokuments vorkommt
' Groß-/Kleinschreibung wird beim Zählen nicht unterschieden
'   hierzu ggf. MatchCase von "False" auf "True" setzen
Dim Wort As String, Anzahl As Integer, BoxTitel As String
BoxTitel = "Wort in Dokument zählen"
Wort = InputBox("Zu zählendes Wort ?", BoxTitel, "Text")
If Wort = "" Then Exit Sub
Anzahl = 0
With ActiveDocument.Content.Find
.ClearFormatting
.Text = Wort
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While .Execute(FindText:=Wort) = True
Anzahl = Anzahl + 1
Loop
End With
Ausgabe = MsgBox(Wort & "   " & Anzahl & " mal", vbOKOnly, BoxTitel)
 Text_Zählen Makro
'
' Tastenkombination: Strg+z
'
End Sub

Ich hoffe ihr könnt mir etwas weiter helfen....
mfg
fips

Antwort schreiben

Antwort 1 von fipsel vom 24.09.2021, 11:16 Options

Übrigens handelt es sich dabei um eine Excel-liste!

Antwort 2 von coros vom 24.09.2021, 11:29 Options

Hallo fips,

geht es nun darum zu zählen, wie oft ein Wort in der Spalte xyz steht, sprich in jeder Zelle steht nur ein Wort oder soll aus einem gesamten Text heruasgefunden werden, wie oft ein Wort in dem Text vorkommt?
Ein bisschen genauer könntest Du schon werden, wenn wir Dir helfen sollen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 3 von fipsel vom 24.09.2021, 12:24 Options

Hallo Oliver,

es geht darum zu zählen, wie oft das Wort xy in der Spalte in den jeweiligen Zellen vorkommt. In den Zellen stehen jeweils Sätze /Texte oder manchmal auch nur ein Wort...

Das Makro sollte so funktionieren, dass ich das gesuchte Wort eingebe und es dann Zelle für Zelle in dieser Spalte überprüft und mir dann die Anzahl der Treffer ausgibt!

MfG
fips

Antwort 4 von fipsel vom 24.09.2021, 12:38 Options

Im übrigen bringt er mir die Fehlermeldung :


Laufzeitfehler '424' :
Objekt erforderlich

Antwort 5 von coros vom 24.09.2021, 12:57 Options

Hallo fips,

mit nachfolgendem Makro sollte Dir geholfen sein. Es sucht den Begriff, den Du in einem Dialogfenster eingeben musst, in Spalte A.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit Sub Übereinstimmungen_finden() Dim strSuchbegriff As String Dim strAddresse As String Dim lngAnzahl As Long Dim rngFundstelle As Range strSuchbegriff = InputBox("Schbegriff eingeben") With Range("A1:A65536") Set rngFundstelle = .Find(What:=strSuchbegriff, LookIn:=xlValues) If Not rngFundstelle Is Nothing Then strAddresse = rngFundstelle.Address Do lngAnzahl = lngAnzahl + 1 Set rngFundstelle = .FindNext(rngFundstelle) Loop While Not rngFundstelle Is Nothing And rngFundstelle.Address <> strAddresse End If End With MsgBox "Begriff " & strSuchbegriff & " wurde " & lngAnzahl & "x gefunden" End Sub
Ich hoffe, Du kommst klar. Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 6 von fipsel vom 24.09.2021, 12:59 Options

Hallo Oliver,

erstmal vielen Dank für die schnelle Hilfe!
Ich werde es sofort ausprobieren und dir dann Rückmeldung geben.

mfg
fips

Antwort 7 von fipsel vom 24.09.2021, 14:36 Options

Hallo Oliver,

nochmals vielen Dank für deine Hilfe, hat alles super geklappt!

Bis zum nächsten mal ; )

mfg
fips

Antwort 8 von coros vom 24.09.2021, 14:38 Options

Hallo fips,

gerne geschehen. Danke auch für die Rückmelung.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..