Wörter werden normalerweise einem Textverarbeitungsprogramm wie Microsoft Word zugeordnet. Viele Menschen arbeiten jedoch auch mit Wörtern in ihrem Tabellenkalkulationsprogramm. (Ich hatte einmal einen Kollegen, der ständig Excel zum Schreiben von Memos verwendete.) Es kann vorkommen, dass Sie die Anzahl der Wörter in einem Arbeitsblatt zählen möchten, die Sie von jemandem erhalten. Es gibt native Möglichkeiten, eine solche Aufgabe in Word auszuführen, jedoch nicht in Excel.

Eine Lösung besteht natürlich darin, Ihre Arbeitsmappe in Word zu laden, dort die Wortzählung durchzuführen und dann die Datei zu schließen. Dies ist jedoch bei weitem nicht so flexibel wie das Erstellen eines Makros zum Zählen von Wörtern in Excel. Das folgende Makro, CountWords, zählt die Anzahl der Wörter in einem Bereich, den Sie in einem Arbeitsblatt auswählen:

Sub CountWords()

Dim MyRange As Range     Dim CellCount As Long     Dim TotalWords As Long     Dim NumWords As Integer     Dim Raw As String

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

TotalWords = 0     For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             Raw = MyRange.Cells(CellCount).Value             Raw = Trim(Raw)

If Len(Raw) > 0 Then                 NumWords = 1             Else                 NumWords = 0             End If             While InStr(Raw, " ") > 0                 Raw = Mid(Raw, InStr(Raw, " "))

Raw = Trim(Raw)

NumWords = NumWords + 1             Wend             TotalWords = TotalWords + NumWords         End If     Next CellCount     MsgBox "There are " & TotalWords & " words in the selection."

End Sub

Beachten Sie, dass das Makro jede Zelle in dem von Ihnen ausgewählten Bereich durchläuft.

Es ignoriert dann jede Zelle, die eine Formel enthält. In allen anderen Zellen wird im Wesentlichen die Anzahl der Leerzeichen in der Zelle gezählt. (Es wird angenommen, dass ein oder mehrere Leerzeichen Wörter trennen.) Die Wortanzahl wird dann in einem Meldungsfeld für Ihre Erbauung angezeigt.

Das Makro ist in relativ kleinen Bereichen ziemlich schnell. Wenn Sie einen großen Bereich auswählen (z. B. das gesamte Arbeitsblatt), kann das Makro viel Zeit in Anspruch nehmen, um seine Arbeit abzuschließen. Damit soll sichergestellt werden, dass Sie nur den tatsächlichen Bereich auswählen, den Sie analysieren möchten, bevor Sie das Makro aufrufen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

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

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: Counting Words.