Vergabe von Rechnungsnummern
02.02.2004 14:57:14
Jan P
ich habe einen Programmcode zur Rechnungserstellung entworfen. Ich möchte, daß die Rechnungsnummer automatisch beim Starten des Programmes vergeben wird. Anschließend soll die Rechnung gespeichert werden. Beim erneuten Programmstart soll dann die Rechnungsnummer um Zahl 1 erhöht werden...
Wie es mir scheint, gibt es zwei Lösungsmöglichkeiten: Die Rechnungsnummer wird in eine ini.Datei geschrieben und ausgelesesn. Im Ordner der gespeicherten Rechnungen wird nach der letzten bzw. höchsten Nummer gesucht.
Mein Code für den relevanten Teil:
Dim RECHNUNGDOK, RECHNUNGALT As String
RECHNUNGALT = ThisWorkbook.Name
If IsNumeric(Mid(RECHNUNGALT, 100000, 5)) Then
RECHNUNGALT = (Mid(RECHNUNGALT, 100000, 5))
Else
RECHNUNGALT = 0
End If
RECHNUNGALT = Format(CInt(RECHNUNGALT) + 1, "000000")
RECHNUNGDOK = Format(CInt(RECHNUNGALT) + 1, "000000")
Cells(13, 14).Value = RECHNUNGALT
Cells(30, 14).Value = "RG" & RECHNUNGALT & ".xls"
Kann mir jemand helfen? Ich benötige nur den Code für das Erstellen der ini-datei, das Auslesen und Reinschreiben in die ini-datei.
MfG