OpenOffice.info

Hallo VetteCruiser,

Makros sind nicht meine Baustelle, aber vielleicht hilft dir das schon mal, was die SuFu zu
farben zaehlen sagt.


Gruß
balu

Hallo,
habe mit Umstellung auf meinen neuen Rechner / Windows 7 mein altes Office 97 eingemottet und
OpenOffice installiert.
Tolle Software, aber leider habe ich nun ein Problem mit meiner täglich genutzten Excel-Tabelle:

Ein enthaltenes Makro, das den farbigen Hintergrund einer Zelle auswertet, funktioniert unter OOo-Basic
nicht mehr. Habe mich dran versucht, aber meine Programmierkenntnisse reichen leider nicht aus um es
umzuschreiben,
Kann mir jemand helfen und ein paar Tipps geben, wie ich es hinkriege? ... oder vielleicht sogar ein funktionsfähiges
Makro aus dem Ärmel schütteln ?

Hier das VBA-Makro aus Excel;



Attribute VB_Name = "Modul1"

Public Function HFarbeSumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If IsNumeric(Zelle) = False Then GoTo 10
If Zelle.Interior.ColorIndex = Farbe Then
HFarbeSumme = HFarbeSumme + Zelle.Value
End If
If Zelle.Interior.ColorIndex = Farbe + 41 Then
HFarbeSumme = HFarbeSumme + Zelle.Value
End If
If Zelle.Interior.ColorIndex = Farbe + 35 Then
HFarbeSumme = HFarbeSumme + Zelle.Value
End If
10 Next Zelle
End Function



Die Tabelle ist ein Zahlungsplan in den alle Eingangsrechnungen eingetragen werden.
Um die Übersichtlichkeit zu verbessern, werden die Zellen mit einem farbigen
Hintergrund versehen (grün = wird abgebucht, orange = zur Überweisung, grau = bezahlt).
Die Farben werden per Makro ausgewertet und die Rechnungsbeträge addiert, solange
die Rechnung offen ist (grün oder orange). Im Spaltenkopf eines jeden Tages ist somit
sofort zu sehen welche Summe an diesem Tag zur Zahlung ansteht.

Vorab vielen Dank für eure Hilfe !