OpenOffice.info

Verfasst: **Sa, 30.03.2013 01:58**

Hallo,
obwohl du es nicht geschrieben hast, nehme ich an, das du dein Kassensystem in Calc erstellt hast?
Anbei mal ein einfaches Beispiel, vielleicht bekommst Du es damit hin.
In den Eigenschaften der Buttons habe ich die Spaltennummer, in die der heutige Wert eingetragen werden soll, in der Zusatzinformation geschrieben, also bei Cola 1, Fanta 2, Sprite 3 usw ...
Hier mal der Code:

Code: Alles auswählen

Sub S_Add_one(event)
    dim ncolumn as integer
    dim nrow as integer
    dim ndate as long
    ncolumn = event.source.model.tag
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    ostartdatecell = osheet.getcellbyposition(0,1)
    ndate = ostartdatecell.value
    nrow = Datediff("D",cdate(ndate),date())
    ocell = osheet.getcellbyposition(ncolumn,nrow)
    ocontroller = thiscomponent.currentcontroller
    ocontroller.FirstVisibleRow = ocell.celladdress.row-1
    if ocell.value = "" then ocell.value = 1 else ocell.value = ocell.value+1
End Sub

Habe noch zwei kleine Extra Features eingebaut:

Der Cursor spring automatisch zum heutigen Datum
Die heutige Zeile ist farblich hervorgehoben

Hast Du mal meine miniKasse (siehe unten) angesehen?
Die macht die komplette Auswertung von Verkäufen und vieles mehr.
Vielleicht ist das was für Dich.

Viel Spaß mit der Datei
Gruß R

Verfasst: **Sa, 30.03.2013 15:03**

Hi,

Gast hat geschrieben:ich bin eher jemand, der versucht, alles mit Formeln zu lösen

Es kann sein, dass es eine Formellösung gibt. Wenn ich mich recht erinnere ist dazu aber notwendig, Zirkelbezüge zu iterieren, also eine Programmeinstellung vorzunehmen. Wie das geht, ausserdem ist es mir suspekt, weiß ich nicht.
Wenn du eine vereinfachte Datei mit dem relevanten Zähl-Tabellenblatt hier hochlädst, kann ich mal schauen, woran es bei Deiner Datei mit dem Makro hapert.
Gruß R

Verfasst: **Sa, 30.03.2013 15:57**

Moin,
so nun geht es.
Habe die Zusatzinfos korrigiert (es muß der Spaltenindex, beginnend mit 0 für Spalte A, eingetragen werden) und die Startzellenadresse (1,5) für B6 korrekt eingetragen.
Ausserdem das Springen des Cursors wieder herausgenommen, die Jahresübersicht willst Du ja nicht ansehen.
Am längsten hat es gedauert, die SVerweise auf Seite 1 zu korrigieren.
Viel Spaß damit
R
EDIT: Das Makro liegt nun im Dokument, Vorteil, es ist immer dabei.
Lösche deines unter "Meine Makros" besser, sonst kann es zu Verwechslungen kommen.

OpenOffice.info

Wert einer dynamische (täglich anderen) Zelle erhöhen

Re: Wert einer dynamische (täglich anderen) Zelle erhöhen

Re: Wert einer dynamische (täglich anderen) Zelle erhöhen

Re: Wert einer dynamische (täglich anderen) Zelle erhöhen