OpenOffice.info

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
[color=#FF0000][b]EDIT: [/b][/color]Das Makro liegt nun im Dokument, Vorteil, es ist immer dabei.
Lösche deines unter "Meine Makros" besser, sonst kann es zu Verwechslungen kommen.

Hi,
[quote="Gast"]ich bin eher jemand, der versucht, alles mit Formeln zu lösen :-)
[/quote]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

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

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]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[/code]
Habe noch zwei kleine Extra Features eingebaut:
[list][*]Der Cursor spring automatisch zum heutigen Datum
[*]Die heutige Zeile ist farblich hervorgehoben[/list]
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