Hallo,
habe ein kurzes Makro, das Du noch auf deine Belange anpassen musst, geschrieben:
Code: Alles auswählen
Sub Main
osheet=thiscomponent.sheets(0)'0 = Tabelle1, 1 wäre Tabelle2 usw.
z=0
for i=0 to 17 '= zu untersuchende Zeilen -1 (18-1)
ocell=osheet.getcellbyposition(0,i) '0 entspricht Spalte A, 1 würde Spalte B sein usw.
if ocell.CharWeight >100 then z=z+1
next i
ocell=osheet.getcellbyposition(0,i)'Zelle unterhalb der untersuchten Zellen auswählen
ocell.value=z 'Zählergebnis eintragen
msgbox "Es wurden "+z+" fettgedruckte Zeilen gefunden, und eingetragen"
End Sub
.CharWeight >100 ist dabei die Abfrage ob fett oder nicht.
Anbei eine kleine Testdatei.
Gruß R