Seite 1 von 1
Rechnung Nummer
Verfasst: Fr, 06.02.2015 18:20
von 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
Re: Rechnung Nummer
Verfasst: Fr, 06.02.2015 19:50
von 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