Formatierungen zählen?

Computer: Software & Programmierung Office Software
1

Moin moin,
ist es möglich (wenn ja, wie?), eine Bereichszählung nach einem bestimmten Format durchzuführen?
Mir schwebt vor, alle Einträge in Spalte A abzuzählen, deren Font fett ist. Mit COUNTIF(…) können ja AFAIK nur Inhalte abgefragt werden, funktioniert also direkt nicht.
Ich möchte dazu auch kein Makro schreiben, sondern die Berechnungsformel direkt in eine Zelle eingeben. Ist das machbar, und wenn ja, wie?

TIA,
Harald

2

Hallo…

Schreib Dir doch ein Makro, aber als Funktion. Dann kannst Du diese Funktion als normale Formel in der Tabelle nutzen.

Public Function MeineFunktion (Bereich as String) as long
 if (Bedingung) then
 MeineFunktion = MeineFunktion + 1
 end if
end function

In der Tabelle kannst Du’s dann wie =MeineFunktion(„A5:B7“) anwenden. Eine eingebaute Funktion zu Deinem Problem ist mir leider nicht bekannt…

Gruß
(Woly)

3

Hallo…

Schreib Dir doch ein Makro, aber als Funktion. Dann kannst Du
diese Funktion als normale Formel in der Tabelle nutzen.

Public Function MeineFunktion (Bereich as String) as long
if (Bedingung) then
MeineFunktion = MeineFunktion + 1
end if
end function

In der Tabelle kannst Du’s dann wie =MeineFunktion(„A5:B7“)
anwenden. Eine eingebaute Funktion zu Deinem Problem ist mir
leider nicht bekannt…

Gruß

Ja, habe ich auch schon gemerkt…danke für die Antwort.
Ich hatte in der Zwischenzeit das Problem ähnlich gelöst:

Sub Ungelesen_Zaehlen()
Dim iLastRow As Integer, iAnzahl As Integer

iAnzahl = 0

ActiveWindow.Zoom = 80
iLastRow = Range(„B“ & CStr(Rows.Count)).End(xlUp).Row 'Letzte Zeile in Spalte A bestimmen
Range(„B3:B“ & CStr(iLastRow)).Select
For Each z In Selection
If z.Font.Bold = True Then
iAnzahl = iAnzahl + 1
End If
Next z
Range(„C“ & CStr(iLastRow)).Value = iAnzahl
Range(„A1“).Select
’
End Sub

Private Sub auto_open()
Ungelesen_Zaehlen
End Sub

(Woly)