Feld automatisch weiterzählen

[oktobaer]

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: Alles auswählen

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

Vielleicht bringt es Dich weiter!?

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

Viel Erfolg!

Oktobaer

[officelaie]

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