Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Formel zu Berechnung von fettgeschriebenen Wörtern
#1
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.
Antworten Top
#2
Hi,

mit Formeln ist das nicht möglich.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#3
Hallöchen,

vba könnte so gehen:

Arbeitsblatt mit dem Namen 'Tabelle1'
AB
1Ich will keine Schokolade2

ZelleFormel
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Meliodas
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste