OpenOffice.info

Danke für eure Antworten !

Bin leider immer noch nicht viel weiter und habe das Thema daher
in´s Basic Forum eingestellt.

Gruß VetteCruiser

Und wenns nicht ohne Makro gehen soll, dann müsstest du mal im Basic-Forum nachfragen.
Gruß,

Hallo
Was hält dich davon ab die 'Bedingung' in eine extra Spalte einzutragen, und sowohl die Berechnung als auch die bedingte Formatierung aus dieser Spalte abzuleiten?
Das wäre dann eine einfache, robuste und makrofreie Lösung.

Gruß Karo

Hallo Gert,

vielen Dank für deine Antwort.

Die bedingte Formatierung hilft mir leider nicht, da es hier darum geht eine
Zellenfarbe auszuwerten und dann eine Berechnung durchzuführen. Bei der
bedingten Formatierung ist es ja genau umgekehrt; Der Zelle wird unter einer
bestimmten Bedingung eine Farbe zugewiesen.

Hallo Vetter,
das sollte doch auch ohne "Basic-Macro" möglich sein.
Zusätzlich bietet VBA ab Version 2000 auch bessere Möglichkeiten der Programmierung. VBA arbeitet normalerweise nicht mehr mit dem Befehl "goto".
Dh: der Befehl wird halt immer noch akzeptiert.
Es sollte aber möglich sein, mit der Funktion "Bedingte Formatierung" einzubinden, dann geht es auch ohne "Basic-Macro"
Siehe hier :
http://www.ooowiki.de/CalcFormatBedingt ... rieCalc%29
Ein Muster fürs "Rechnungseingangsbuch" findest Du hier :
http://www.pdfdownload.org/pdf2html/pdf ... images=yes

Ich hoffe das hilft Dir weiter.

mfg
Gert

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 !