Wörter zählen mit Makro

12/02/2009 - 10:18 von thomas müller | Report spam
Hallo,

ich such unter Xl 2007 nach einem Makro, was Texteingaben auswertet und
zwar in etwa so:
Es soll alle Wörter in einem bestimmten Bereich zàhlen und dann in einer
Art Index (vielleicht auf ein neues Blatt schreibt) ausgeben welche Wort
wie oft vorkommt...

Geht so was? Hat jemand vielleicht ne Lösung:)?

Danke

thomas
 

Lesen sie die antworten

#1 Beverly
12/02/2009 - 12:03 | Warnen spam
Hi Thomas,

eine Möglichkeit:

Sub woerter_zaehlen()
Dim loLetzte As Long
Dim raZelle As Range
Dim raFinden As Range
For Each raZelle In Worksheets("Tabelle6").Range("B2:G11")
If raZelle <> "" Then
With Worksheets("Tabelle2")
Set raFinden = .Columns(1).Find(raZelle, lookat:=xlWhole)
If raFinden Is Nothing Then
loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)),
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Cells(loLetzte, 1) = raZelle
.Cells(loLetzte, 2) =
Application.WorksheetFunction.CountIf(Worksheets("Tabelle6").Range("B2:G11"),
raZelle)
End If
End With
End If
Next raZelle
End Sub

Bereich und Tabellenblattnamen bitte anpassen.

Bis spàter,
Karin
http://beverly.excelhost.de/



"thomas müller" wrote:

Hallo,

ich such unter Xl 2007 nach einem Makro, was Texteingaben auswertet und
zwar in etwa so:
Es soll alle Wörter in einem bestimmten Bereich zàhlen und dann in einer
Art Index (vielleicht auf ein neues Blatt schreibt) ausgeben welche Wort
wie oft vorkommt...

Geht so was? Hat jemand vielleicht ne Lösung:)?

Danke

thomas

Ähnliche fragen