Office: Summieren von formatierten Zeichen

Hallo,

ich habe folgendes Problem;

In meiner Exceldatei befinden sich in Spalte A verschiedene Wörter, sprich in jeder Zelle sind Zeichen. Diese Zeichen sind in 2 Arten formatiert (fett und normal) Schriftgröße ist gleich.

Nun meine Frage:

Gibt es eine Möglichkeit nur die fett formatierten Zeichen zusammen zu zählen und in einer Zelle auszugeben ?

Vielen Dank schomal im Voraus für Eure Hilfe!

Gruß Enz

 

Hallo!

Schau mal hier.
Du musst nur eine Zeile anpassen:
If Zelle.Font.Bold = True Then

 

Danke für die schnelle Antwort.

Leider bekomme ich immer die Fehlermeldung das ein in der Formel verwendeter Wert vom falschen Datentyp ist.

Könnte ich das ganze nicht auf zB. Spalte A beschränken? :roll:

 

Sorry, ich hatte deine Anfrage völlig falsch gelesen...
Kannst du mal ein Beispiel geben wie du dir das genau vorstellst?

 

So habe ich mir das gedacht.

 

Alles klar!

Dann kopiere diesen Code in ein allgemeines Modul:

Code:

Function FettSumme(Bereich As Range)
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Font.Bold = True Then FettSumme = FettSumme + 1
Next Zelle
End Function

Diese Funktion kannst du nun in der Tabelle anwenden:
=FettSumme(A1:A5)

 

Danke es funktioniert.

Vielen Dank auch für die super Leistung und vorallem schnelle Antwort.

Gruß Enz

 

Hallo!

Vielleicht ist der Code so noch besser, denn in der alten Version werden auch leere Zellen mitgezählt, die fett formatiert sind:

Code:

Function FettSumme(Bereich As Range)
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle <> "" And Zelle.Font.Bold = True Then FettSumme = FettSumme + 1
Next Zelle
End Function

 

noch besser, funktioniert wunderbar.

Vielen Dank nochmal ;-)