Martyn hat ein Arbeitsblatt, das in Spalte B einige Schlüsselwörter enthält.

Jede einzelne Zelle kann eine beliebige Anzahl eindeutiger Schlüsselwörter enthalten, die jeweils durch ein Leerzeichen getrennt sind. Er benötigt eine Möglichkeit, eine Liste eindeutiger Schlüsselwörter zusammen mit der Anzahl der Zeilen zu erstellen, die jedes Schlüsselwort enthalten.

Es gibt keine einfache Möglichkeit, die Keyword-Liste mithilfe von Formeln zu generieren. Sie können eine solche Liste jedoch mithilfe eines Makros schnell bearbeiten. Das Folgende ist ein Beispiel, das die Arbeit sehr schnell erledigt.

Sub KeywordList()

Dim dTally As Dictionary     Dim rSource As Range     Dim c As Range     Dim d As Variant     Dim aKeys() As String     Dim J As Integer     Dim sTemp As String

Set dTally = New Dictionary     Set rSource = Selection     For Each c In rSource         ' Put all keywords in an array         aKeys = Split(c, " ")

For J = LBound(aKeys) To UBound(aKeys)

sTemp = LCase(Trim(aKeys(J)))

If Len(sTemp) > 0 Then                 If dTally.Exists(sTemp) Then                     ' Increment existing keyword                     dTally(sTemp) = dTally(sTemp) + 1                 Else                     ' Add new keyword and count                     dTally.Add sTemp, 1                 End If             End If         Next J         Erase aKeys     Next c

' Now have all the keywords in a dictionary object     ' Add a new worksheet to store the list     Worksheets.Add     Cells(1, 1) = "Keyword"

Cells(1, 2) = "Count"



J = 1     For Each d In dTally.Keys         J = J + 1         Cells(J, 1) = d         Cells(J, 2) = dTally(d)

Next d End Sub

Wenn das Makro auf Ihrem System nicht funktioniert, kann dies daran liegen, dass Excel das Dictionary-Objekt nicht erkennt. Wenn Sie vermuten, dass dies der Fall ist, stellen Sie sicher, dass Sie die Microsoft Scripting Runtime-Bibliothek in VBA aktivieren. (Sie tun dies im Visual Basic-Editor, indem Sie auf Extras | Referenzen klicken, die Bibliothek suchen, auf das Kontrollkästchen daneben klicken und schließlich auf OK klicken.)

Um das Makro zu verwenden, wählen Sie einfach die Zellen aus, die die Schlüsselwörter enthalten, die Sie zählen möchten (in Martyns Fall wären dies die Zellen in Spalte B), und führen Sie dann das Makro aus. Es wird ein neues Arbeitsblatt erstellt, in dem die Schlüsselwörter in Spalte A und in Spalte B aufgeführt sind, wie oft jedes Schlüsselwort vorkommt.

Wie geschrieben, achtet das Makro nicht auf die Groß- und Kleinschreibung der Schlüsselwörter. Dies bedeutet zum Beispiel, dass „Orange“ dasselbe ist wie „Orange“. Wenn bei der Keyword-Liste zwischen Groß- und Kleinschreibung unterschieden werden soll, müssen Sie lediglich die LCase-Anweisung entfernen. Es wird nur einmal im Makro verwendet.

Beachten Sie auch, dass die Schlüsselwörter im neuen Arbeitsblatt in der Reihenfolge aufgeführt sind, in der sie in der Auswahl vorkommen, die Sie vor dem Ausführen des Makros treffen. Sobald Sie sich im Arbeitsblatt befinden, können Sie die Schlüsselwörter bei Bedarf einfach sortieren.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (13499) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.