Anzahl der Wörter in einer Zeichenfolge zählen
Die folgende VBA-Funktion zählt die Anzahl der Wörter in einer Zeichenfolge, indem sie nach Leerzeichen innerhalb der Zeichenfolge sucht. Es verwendet die MID-Funktion. Ähnliches können Sie mit den Funktionen SEARCH oder FIND erreichen.
| 1234567891011121314151617 | Funktion Number_of_Words(Text_String As String) As Integer'Funktion zählt die Anzahl der Wörter in einer Zeichenfolge'indem man sich jedes Zeichen ansieht und sieht, ob es ein Leerzeichen ist oder nichtAnzahl_der_Wörter = 0Dim String_Length As IntegerDim Current_Character As IntegerString_Length = Len(Text_String)For Current_Character = 1 To String_LengthIf (Mid(Text_String, Current_Character, 1)) = " " ThenAnzahl_der_Wörter = Anzahl_der_Wörter + 1Ende WennNächster aktueller_CharakterEndfunktion |
Es lohnt sich, ein paar Punkte zu beachten:
• Dieser Code muss in ein Arbeitsmappenmodul eingefügt werden - klicken Sie im VBA-Bereich auf Einfügen und dann auf Modul
• Die Funktion kann aus einer Excel-Arbeitsmappenzelle entweder mit einem expliziten Text oder einem Zellbezug als Argument aufgerufen werden:
A3 = Number_of_Words("Schweinehundekatze")
A4 = Anzahl_von_Wörtern (D1)
Die Funktion arbeitet, indem sie die Länge einer Zeichenfolge durchläuft und prüft, ob das nächste Zeichen ein Leerzeichen ist, und wenn ja, fügt sie der Anzahl der Leerzeichen in der Zeichenfolge eins hinzu.
