OpenOffice.info

Danke dass du dich um diese zeit noch dran gemacht hast. ich werde mir morgen früh gleich mal deinen vorschlag zu brust nehmen. erste versuche waren noch nicht vielversprechend. aber vielleicht sollte man um diese zeit auch schlafen und nicht VBA programmierung versuchen.

gruß
officelaie

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

Hallo Du!

Dein Code ist schwere Kost ;-)

Bin selbst kein Profi, aber vielleicht kann ich Dir ja eine Anregung geben; habe hier im Forum mal einen Code gefunden der eine Rechnugsnummer generiert die immer eins weiter geschaltet wird.
Die Daten werden in einer externen Datei gespeichert:

[code]
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
[/code]

Vielleicht bringt es Dich weiter!?

Viele Ideen findest Du auch unter:
http://www.dannenhoefer.de/faqstarbasic/index.html

Viel Erfolg!

Oktobaer