OpenOffice.info

Hey Blackeagle,

sorry, das mit Function hatte ich übersehen. :(

Schau Dir mal die angehängte Datei an.
Vielleicht bringt Dich das weiter.

Schöne Grüße.
[attachment=0]Farben_zaehlen_mit_Ausgabe.zip[/attachment]

Hi Blackeagle,

das war Deine Anfangsfrage:
[quote="blackeagle"]Ich habe ein Problem beim portieren eines Excel Makros, dass die farbig markierten Zellen zählt.[/quote]

Hiervon war nicht die Rede und das geht auch nicht aus dem VB-Makro hervor:
[quote="blackeagle"]Eigentlich brauche ich das Makro mehrere Male in der Tabelle, und möchte jedesmal explizit den Bereich angeben, in denen die Zellen gezählt werden sollen. D.h. einmal im Bereich (B2:Q2) und (E2:Q2) usw. und in jeweils einer Zelle soll dann das Ergebnis ausgegeben werden, wieviele Zellen farbig markiert sind (also z.B. 4 im Bereich (B2:Q2) und 2 (E2:Q2) usw.).[/quote]
Bevor wir hier weitermachen sollte geklärt werden ob noch weitere Bedingungen von Dir dazukommen.

Noch ein Hinweis, wenn Du diesen in dem oben angegebenen Thread übersehen hast. Das Zählen der Farben funktioniert nur dann, wenn diese [b][color=#FF0000]nicht über eine bedingte Formatierung [/color][/b]zustande gekommen sind, [color=#0000FF][b]sondern manuell zugewiesen worden sind[/b][/color]!
Dann könnte man das vielleicht über den Inhalt der Zelle realisieren.

Viele Grüße
Jürgen

' Code
' hole ein bestimmtes Tabellenblatt des aktiven Calc-Dokuments
oTabellenblatt = ThisComponent.Sheets.getByName( "Tabelle14" ) 
' hole Zelle D4
oZelle = oTabellenblatt.getCellByPosition( 3 , 3 )
print "Hintergrundfarbwert der Zelle: " & oZelle.CellBackColor

[quote="blackeagle"]Function FarbigeZellenZaehlen(Bereich As Dim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.getCellRangeByName($1))[/quote]

Das kannst Du Dir sparen:
wenn Du das aktuelle sheet bearbeiten willst, brauchst Du nichts zu übergeben.

Welchen "Bereich" willst Du untersuchen: welche Spalte, weisst Du, wie viele Zeilen untersucht werden sollen?
[code]
' Code
' hole ein bestimmtes Tabellenblatt des aktiven Calc-Dokuments
oTabellenblatt = ThisComponent.Sheets.getByName( "Tabelle14" )
' hole Zelle D4
oZelle = oTabellenblatt.getCellByPosition( 3 , 3 )
print "Hintergrundfarbwert der Zelle: " & oZelle.CellBackColor[/code]

Hilft das weiter?

Hi Blackeagle,

guckst Du [url=http://de.openoffice.info/viewtopic.php?f=2&t=13607&hilit=z%C3%A4hlenURL]hier[/url].

Viel Erfolg.

Jürgen