Gruppe
Allgemein
Problem
Wie kann ich die Anzahl der Worte in einem mit der Zelle A1 zusammenhängenden Bereich zählen lassen?
StandardModule: basMain
Sub WorteZaehlen()
Dim rng As Range
Dim lAdd As Long
For Each rng In Range("A1").CurrentRegion
Range("IV1").FormulaArray = "=len(" & rng.Address & _
")-len(substitute(substitute(" & rng.Address & _
","" "",""""),"" "",""""))+1"
lAdd = lAdd + Range("IV1").Value
Next rng
Range("IV1").ClearContents
MsgBox lAdd
End Sub