Seite 1 von 1
Re: VBA Makro Farbige Zellen Zählen
Verfasst: Di, 04.09.2007 16:27
von turtle47
Hi Blackeagle,
guckst Du
hier.
Viel Erfolg.
Jürgen
Re: VBA Makro Farbige Zellen Zählen
Verfasst: Di, 04.09.2007 16:28
von komma4
blackeagle hat geschrieben: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?
Re: VBA Makro Farbige Zellen Zählen
Verfasst: Di, 04.09.2007 20:46
von turtle47
Hi Blackeagle,
das war Deine Anfangsfrage:
blackeagle hat geschrieben: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:
blackeagle hat geschrieben: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
Re: VBA Makro Farbige Zellen Zählen
Verfasst: Di, 04.09.2007 23:11
von 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.