Formel zu Berechnung von fettgeschriebenen Wörtern

[Meliodas]

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.

[WillWissen]

Hi,

mit Formeln ist das nicht möglich.

[schauan]

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

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

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