OpenOffice.info

Verfasst: **Mi, 11.12.2013 21:56**

Hey Leute,

setze mich seid gestern mit Open Office auseinander, nun hänge ich aber fest. Ich möchte einen Kalender erstellen, der, wenn ich z.B. die Zellenfarbe vom 25.01.14 ändere (z.B. Blau) von einem festen Faktor (30 Urlaubstage) eine Stelle abzieht (also 29 Urlaubstage). Ich habe mich im Internet natürlich schon schlau gemacht und auch rausgefunden, dass ich keine Formel von OpenOffice zu verfügung habe und ein "Makro" oder so ähnlich benötige. Gut, danach habe ich auch gesucht und sogar fündig geworden . Nur ein Problem, es funktioniert nicht :/ Ich füge diesen Code ein:

Code: Alles auswählen

Public Function HFarbeZählen(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
HFarbeZählen = HFarbeZählen + 1
End If
Next Zelle
End Function

und mit folgender Formel soll das ganze dann ausgewertet werden:

Code: Alles auswählen

=HFarbeZählen(A1:A10;3)

Kommt aber leider nur ein #NAME? dabei rum :/ Ich also nochmal Alt + F11 (Makromanager) aufgemacht und nachgeschaut, dann habe ich rausgefunden, das i-welche Fehler in dem Makro sind, aber daran stockt es und ich komme nicht weiter da dort meine erfahrungen zu ende sind :/

Fehlermeldung:

: Fehler.PNG (93.15 KiB) 2144 mal betrachtet

Ich hab ka wie bei euch die Spoiler funktionieren bekomme es nicht hin daher in groß :/

Nur hier sind meine Office Kenntnisse am Ende, kann jemand das ganze maol überschauen und mir vlt sagen was da schief läuft? Bzw ob das vlt mit Open Office (Das Makro scheint für das "officielle Excel von Microsoft zu sein) überhaupt funktioniert auf die Art?

Oder hat i-wer ne komplett andere Lösung wie ich das ganze Lösen könnte?

Hänge euch als Anhang mein Tabelle mal mit ran, vlt könnt ihr damit was anfangen

Mfg

€: Der Code für das Makro ist von http://www.office-hilfe.com/support/sho ... gen-Zellen <-- Hier

Moderation:
Thema nach OOo Basic und Java verschoben, wo alle Themen zur Basic-Programmierung hingehören.
lorbass, Moderator

Verfasst: **Mi, 11.12.2013 23:01**

Hi,
wenn du genau dein Blau nimmst, rechnet schreibt dieses Makro die Resturlaubstage in die Zelle B1

Code: Alles auswählen

Sub S_Zaehle_Urlaubstage
    osheet = Thiscomponent.sheets.getbyname("Sheet1")
    oRange = osheet.getcellrangebyname("A6:I111")
    nCounter = 0
    for i = 0 to oRange.columns.count - 1
        For k = 0 to oRange.rows.count - 1
            ocell = oRange.getcellbyposition(i,k)
            if ocell.CellBackColor = 6711039 then nCounter = nCounter + 1
        next k
    next i
    oTargetcell = osheet.getcellbyposition(1,0)
    oTargetcell.value = 30 - nCounter
end sub

... und genau, das andere ist Excel ...
Gruß R

Verfasst: **Do, 12.12.2013 06:23**

Alles klar, danke dir

Ich füge das heute abend gleich mal ein

Danke für die schnelle hilfe

Mfg

OpenOffice.info

Farbige Zellen zählen

Farbige Zellen zählen

Re: Farbige Zellen zählen

Re: AW: Farbige Zellen zählen