OpenOffice.info

Alles klar, danke dir :) Ich füge das heute abend gleich mal ein :)
Danke für die schnelle hilfe :mrgreen:

Mfg

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

Hi,
wenn du genau dein Blau nimmst, rechnet schreibt dieses Makro die Resturlaubstage in die Zelle B1
[code]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[/code]
... und genau, das andere ist Excel ...
Gruß R

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

=HFarbeZählen(A1:A10;3)

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]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[/code]

und mit folgender Formel soll das ganze dann ausgewertet werden:

[code]=HFarbeZählen(A1:A10;3)[/code]

Kommt aber leider nur ein [color=#FFBF00]#NAME?[/color] 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:

[attachment=0]Fehler.PNG[/attachment] 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 [url]http://www.office-hilfe.com/support/showthread.php/6814-Excel-Auswertung-von-farbigen-Zellen[/url] <-- Hier





[color=#00AA00][b]Moderation:[/b]
Thema nach [url=http://de.openoffice.info/viewforum.php?f=18]OOo Basic und Java[/url] verschoben, wo alle Themen zur Basic-Programmierung hingehören.
lorbass, Moderator


[/color]