Wörter zählen
08.04.2017 13:08:53
Manuel
ich hab hier ein VBA-Skirpt mit dem Wörter im markierten Bereich zählen kann. Diesen verstehe ich aber nicht richtig. Kann mir jemand das gut erklären.
Hier kommt der Code:
Sub WorteZählen()
Dim Zelle As Range
Dim Bereich As Range
Dim s As String
Dim i As Integer
Sheets("Tabelle1").Activate
Set Bereich= Range("A1:A4")
For Each Zelle In Bereich
s= Trim(Zelle.Text)
Do While Instr(s, " ") >0
i= i+1
s= Trim(Right(s, Len(s)- Instr(s, " ")))
Loop
i= i+1
Next t
MsgBox "Wörter im Zielbereich:" &i
End Sub
So was macht hier nun Trim und Instr? Wozu brauch ich Len(s).