Clever-Excel-Forum

Hallo,

mit der Formel

=LÄNGE(F7)-LÄNGE(WECHSELN(F7;" ";""))+1

ist es mir möglich die in einer Zelle vorhandenen Wörter zu zählen. Das funktioniert auch so wie ich es will.
Gibt es jetzt noch ne Möglichkeit das er mir auch sagen kann, wie viele Fettgedruckte Wörter sich in der Zelle befinden und diese doppelt ausgeben

Beispiel:

Hallo mein Name ist Max Mustermann = 6 Wörter

Hallo mein Name ist Max Mustermann = 8 Wörter (weil fettgedruckte Wörter doppelt berechnet werden)

Kann man das auch mit Hilfe einer Formel oder brauche ich dafür VBA Kenntnisse? Würde darauf gerne verzichten, sofern möglich.

Hi,

mit Formeln ist das nicht möglich.

Hallöchen,

vba könnte so gehen:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	Ich will keine Schokolade	2

Zelle	Formel
B1	=count_bold(A1)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Code:
Option Explicit

Function count_bold(rngZelle As Range) As Integer

'Variablendeklarationen

Dim icnt%, jcnt%, kcnt%, boStart

'Schleife ueber alle Zeichen der Zelle

For icnt = 1 To Len(rngZelle.Value)

  'Wenn der ont fett ist, dann

  If rngZelle.Characters(Start:=icnt, Length:=1).Font.FontStyle = "Fett" Then

    'Wenn boStart falsch ist, dann Wortzeahler hochsetzten und boStart auf wahr setzen

    If boStart = False Then kcnt = kcnt + 1: boStart = True

    'Wenn Zeichen ein Leerzeichen ist, dann boStart auf Falsch setzen

    If rngZelle.Characters(Start:=icnt, Length:=1).Text = " " Then boStart = False

  'Ende Wenn der ont fett ist, dann

  End If

'Ende Schleife ueber alle Zeichen der Zelle

Next

count_bold = kcnt

End Function

Meliodas

WillWissen

schauan