Hallo!
Wie kann ich die Häufigkeit der Buchstaben in einem Text ermitteln?
Hallo Thomas,
gehe auf EXTRAS/Wörter zählen.
Dort werden auch die Zeichen angezeigt.
Viel Erfolg
Ullrich Sander
Hallo!
Wie kann ich die Häufigkeit der Buchstaben in einem Text
ermitteln?
Hi Thomas,
willst Du wirklich die Häufigkeit und nicht nur die Summe ermitteln, hilft Dir vielleicht folgender Code:
Sub BuchstabenHäufigkeit()
Dim b&(26), i&, a&
Selection.HomeKey Unit:=wdStory
For i = 1 To 10000
a = Asc(UCase(Selection)) - 64
Selection.MoveRight Unit:=wdCharacter, Count:=1
If a > 0 And a