Nach dem die Frage öfter aufgetaucht ist hier eine mögliche Lösung:
Der Zähler für die Rechnungsnummer wir in eine Datei geschrieben. Diese wird mit einer
Funktion ausgelesen und automatisch eine Nummer hochgesetzt.
Diese Funktion kann auch in Calc direkt eingesetzt werden (=getandsetnumber()).
function GetAndSetNumber as string
dim f as Integer
dim rechnungsdatei as string
dim renummer as string
rechnungsdatei="c:/re.txt"
if FileExists("file:///"&rechnungsdatei)
then
f
= FreeFile()
Open
"file:///"&rechnungsdatei for Input as #f
Line
Input #f, renummer
close
#f
f
= FreeFile()
Open
"file:///"&rechnungsdatei for output as #f
Print
#f, val(renummer)+1
close
#f
else
renummer=0
endif
GetAndSetNumber=renummer
end function
Für einen Mehrplatzbetrieb muß man eventuell noch eine Logdatei hinzufügen die den
gleichzeitigen Zugriff verhindert.
