Anzahl langer Wörter in pro 100 Wörter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
erst mal vielen Dank für Deine Mühe. Leider kommt das dem nicht sehr nahe, was ich mir vorgestellt hatte.
Ich habe mir nun eine step by step Methode überlegt. Z.B. zähle die Wörter in Zelle A1 und wenn Wortzahl größer gleich 100 ist, dann nimm Wort 1-100 und schreibe sie in Zelle A2. Leider fällt mir keine Lösung ein, wie ich die Wörter 1-100 in eine neue Zelle schreiben kann. Die Formel lautet bis jetzt: =WENN(LÄNGE(A1)+((LÄNGE(WECHSELN(A1;" ";""))))&gt=100;"OK";"zu wenig"). Somit wird halt nur "OK" oder "zu wenig" ausgegeben und nicht die Wörter 1-100.
Dann müsste man noch die Anzahl der Wörter rausfiltern, bei denen die Zeichenzahl 7 überstiegen wird oder gleich ist.
Die Zahl der Zeichen im Gesamttext ohne Satzzeichen und Leerzeichen kann ich über folgende Formel berechnen: =LÄNGE(A1)+((LÄNGE(WECHSELN(A1;" ";"")))-(LÄNGE(WECHSELN(WECHSELN(WECHSELN(A1;".";"");"!";"");"?";"")))). Normaler Weise sollte es gehen, wenn man eine Zählenwennfunktion nimmt und fragt, wenn Wortlänge größer sieben Zeichen dann zählen. Aber das konnte ich bis jetzt nicht realisieren.
Also falls noch jemand durchsieht und irgendeine Idee hat, dann würde ich mich echt riesig freuen.
Vielen Dank nochmals.
Beste Grüße
Stefanie

Option Explicit Function AnzSatz(zelle As Range) Dim trenn trenn = Split(zelle.Value, Chr(10)) AnzSatz = UBound(trenn) + 1 End Function Function AnzWort(zelle As Range) Dim trenn, trenn2, n trenn = Split(zelle.Value, Chr(10)) For n = 0 To UBound(trenn) trenn2 = Split(trenn(n)) AnzWort = AnzWort + UBound(trenn2) + 1 Next n End Function Function bigWort(zelle As Range) Dim trenn, trenn2, n bigWort = 0 trenn = Split(zelle.Value, Chr(10)) For n = 0 To UBound(trenn) trenn2 = Split(trenn(n)) For n = 0 To UBound(trenn2) If Len(trenn2(n)) > 7 Then bigWort = bigWort + 1 Next n Next n End Function

Hallo Peter und hallo Reinhard,
ich habe mir beide Lösungen angesehen. Die Formel in Excel, von Peter, ist ja der Hammer, doch ich kann die Ausgabe nicht ganz nachvollziehen (geschweige denn diese echt gewaltige Formel). Werde sie mal versuchen durch Formelauswertung nachvollziehen zu können.
Habe es einfach vergessen den Link zu meinem Beispiel einzufügen. Entschuldigung.
Hier ist er:
https://www.herber.de/bbs/user/26151.xls
Da ich wirklich nicht sehr erfahren mit VBA bin, bereitet es mir Schwierigweiten eine Benutzerdefinierte Funktion zu generieren, so dass es funktioniert. Da stoße ich echt an meine Grenzen. Versuche zwar viel drüber zu lernen, ist aber als vollkommener Programmierneuling manchmal echt mühsam. Sorry.
Ich werde mich eingehend mit den Lösungsvorschlägen beschäftigen und schauen, was ich daraus machen kann.
Erst mal ein ganz großes Dankeschön für Eure Mühen.
Beste Grüße
Stefanie

Option Explicit Function AnzSatz(zelle As Range) Dim trenn trenn = Split(zelle.Value, Chr(10)) AnzSatz = UBound(trenn) + 1 End Function Function AnzWort(zelle As Range) Dim trenn, trenn2, n trenn = Split(zelle.Value, Chr(10)) For n = 0 To UBound(trenn) trenn2 = Split(trenn(n)) AnzWort = AnzWort + UBound(trenn2) + 1 Next n End Function Function bigWort(zelle As Range) Dim trenn, trenn2, n, nn bigWort = 0 trenn = Split(zelle.Value, Chr(10)) For n = 0 To UBound(trenn) trenn2 = Split(trenn(n)) For nn = 0 To UBound(trenn2) If Len(trenn2(nn)) > 7 Then bigWort = bigWort + 1 Next nn Next n End Function

Beliebteste Forumthreads (12 Monate)

Anzahl langer Wörter in pro 100 Wörter

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anzahl langer Wörter in pro 100 Wörter

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread