Rechnung Nummer

[xmehmet]

Hallo Leute,
bin neu hier, in einer Werkstatt schreibe ich immer die Rechnungen mit OOO Cal.
Wie kann ich eine fortlaufende Rechnungsnummer erstellen, d.h. jedesmal, wenn ich den Datei öffne, soll sich immer die Rechnungsnummer um eine Zahl erhöhen?

Danke im voraus!
xmehmet

[F3K Total]

Hi,
das geht per Makro, siehe Beispiel anbei.
Das Makro wird, wie du über Extras/Anpassen ... -> Reiter Ereignisse sehen kannst, beim Ereignis Ansicht wurde erzeugt ausgeführt, das ist quasi beim Öffnen.

Code: Alles auswählen

Sub S_RE_NR
    if thiscomponent.Title <> "Rechnungsvorlage.ods" then Exit sub
    osheet = thiscomponent.Sheets.getbyname("Tabelle1")
    oCell = osheet.getcellbyposition(1,0)
    nReNr = oCell.Value
    oCell.Value = nReNr + 1
    thiscomponent.store
End Sub

• Erst schaut das Makro ob die Datei "Rechnungsvorlage.ods" heißt
  • Wenn ja, liest es dann den Rechnungszähler aus Zelle B1, rechnet 1 dazu und schreibt das Ergebnis zurück in Zelle B1.
  • Wenn nein, passiert nichts, denn das Makro wird auch ausgeführt, wenn du die Datei unter einem anderen Namen gespeichert hast. Wäre blöd, wenn du eine bereits fertige, gespeicherte Rechnung öffnest, und sich ihre Rechnungsnummer verändern würde, oder?
• Dann wird die Datei per Makro gespeichert, damit sie beim nächsten Öffnen auf Basis der eben erhöhten Rechnungsnummer weiter hochzählt.

Gruß R