Rechnungsnummern generieren

Hallo zusammen :-)
In einem Excel-Programm zur Rechnungserstellung sollen fortlaufende Rechnungsnummern vergeben werden. Eine bereits vergebene Rechnungsnummer soll kein zweites mal vergeben werden. Im Wesentlichen besteht die Excelmappe aus den Blättern "Kundenstammdaten", (in welcher die Adressen der Kunden eingetragen werden), "Verkauf fortlaufend" (hier werden nacheinander alle Dienstleistungen/Verkäufe mit allen Details, Einzelpreis, Anzahl und Gesamtpreis aufgeführt), dem Blatt "Rechnungsformular" (Blankovorlage für die Rechnungen. Via Dropdownliste werden jeweils am Monatsletzten die Kunden ausgewählt und alle Daten aus den beiden anderen Blättern als Monatsrechnung zusammengestellt).
Die Rechnungsnummer soll im Blatt "Rechnungsformular" in einer eigens dafür reservierten Zelle generiert werden, und zwar für jede neu erstellte Rechnung. Nummern fortlaufend und ohne Wiederholung/doppelte Vergabe.
In den Kundenstammdaten habe ich die Nummern deswegen nicht drin, weil nicht immer alle dort angelegten Kunden eine Rechnung bekommen, also auch nicht alle Kunden in dieser Liste eine Nummer bekommen sollen.
Leider kann ich die Datei hier nicht hochladen, da sie wohl zu gross sei (421 kb).
Hat jemand eine Idee, wie man das machen kann?
Vielen Dank im Voraus:-)
Grüsse.
Debian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier ein Makro mit dem du die Rechnungsnummer generieren kannst.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim myPfad As String
'Pfad bitte anpassen
myPfad = Application.DefaultFilePath
ThisWorkbook.SaveAs myPfad & "\" & Range("Rechnungsnummer") & ".xls", True
End Sub

Sub Fortlaufende_RechnungsNummer()
'byRamses
On Error GoTo R_Error
Dim newNr As Variant, oldNr As Variant
Dim FileName As String
FileName = "C:\Rechnung.ini"
'Prüfen ob bereits eine Rechnungsnummer in der Zelle steht
'Um ein erneutes hochzählen bei späterem öffnen der Datei zu vermeiden
If Range("Rechnungsnummer") <> "" Then Exit Sub
'Erstellen einer externen Datei zum dokumentieren der
'fortlaufenden 5 stelligen Nummer
Close #1
'Öffnen der INI Datei
Restart:
'Pfad der Datei bitte anpassen
Open "c:\Rechnung.ini" For Input As #1
'einlesen der alten Nummer
Line Input #1, oldNr
Close #1
'Berechnen und schreiben der neuen Nummer
newNr = oldNr + 1
Open "c:\Rechnung.ini" For Output As #1
Write #1, newNr
'Schliessen der INI Datei
Close #1
'Länge der Zahl bestimmen
Select Case Len(newNr)
Case 1
newNr = "00" & newNr
Case 2
newNr = "0" & newNr
Case 3
newNr = newNr
Case 4
MsgBox "Zahlenlimit überschritten"
Exit Sub
End Select
'Rechnungsnummer ist ein Name der sich auch eine Zelle bezieht
'Achtung:: Es dürfen keine Doppelpunkte, Slash oder Backslasch verwendet werden
Range("Rechnungsnummer") = "R" & Format(Now, "yyyy") & "-" & newNr
R_Exit:
Exit Sub
R_Error:
Select Case Err
Case 53
'Datei ist noch nicht vorhanden
Open "c:\Rechnung.ini" For Output As #1
Close #1
Open "c:\Rechnung.ini" For Output As #1
Write #1, 0
Close #1
Err.Clear
Resume Restart
Case 54
'Datei ist bereits geöffnet und wurde noch nicht wieder geschlossen
Close #1
Resume Restart
Case Else
MsgBox Err & ": " & Err.Description
Resume R_Exit
End Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub

Beliebteste Forumthreads (12 Monate)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread