OpenOffice.info

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

Hallo,
habe ein kurzes Makro, das Du noch auf deine Belange anpassen musst, geschrieben:
[code]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[/code]
[color=#008040].CharWeight >100 [/color]ist dabei die Abfrage ob fett oder nicht.
Anbei eine kleine Testdatei.

Gruß R

Hallo,

in Open/Libreoffice kannst Du mit den ganz normalen Bordmitteln keine Formatierungen zählen.

Entweder Du legst eine Zusatzspalte an, in der Du jeder Zeile, die Du zählen willst, händisch ein eindeutiges Zeichen gibst, welches Du dann zählen kannst (z.B. mit Zählenwenn()), oder Du fragst mal in der Makro(Basic)ecke hier im Forum. Ich bin mir sicher, daß Dir die Kundigen dort sagen könnten, wie man die Formatierungen von Zellen mit einem Makro ausliest.

Viele Grüße
AhQ

Edit: Komma4 war schneller...

[quote="Gandu"]leider bekomme ich das nicht hin![/quote]

Da bekommt keiner mit einer Formel hin, da diese keine gesetzten Zeichenattribute auswerten.


Vielleicht kannst Du das Problem anders lösen:

setze eine [url=http://www.ooowiki.de/CalcFormatBedingt#Zellformat]bedingte Formatierung[/url], wenn eine Bedingung erfüllt ist.
Dann kann man diese Zellen auch summieren