VBA Makro Farbige Zellen Zählen

[turtle47]

Hi Blackeagle,

guckst Du hier.

Viel Erfolg.

Jürgen

[komma4]

Function FarbigeZellenZaehlen(Bereich As Dim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.getCellRangeByName($1))

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: Alles auswählen

' 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

Hilft das weiter?

[turtle47]

Hi Blackeagle,

das war Deine Anfangsfrage:

Ich habe ein Problem beim portieren eines Excel Makros, dass die farbig markierten Zellen zählt.

Hiervon war nicht die Rede und das geht auch nicht aus dem VB-Makro hervor:

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.).

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 nicht über eine bedingte Formatierung zustande gekommen sind, sondern manuell zugewiesen worden sind!
Dann könnte man das vielleicht über den Inhalt der Zelle realisieren.

Viele Grüße
Jürgen

[turtle47]

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.

Farben_zaehlen_mit_Ausgabe.zip

(8.45 KiB) 1139-mal heruntergeladen