Rechnungsnummer in wachsende Tabelle

Hallo Excel-Freunde,
ein Rechnungsformular wird vom Anwender ausgefüllt und beim Drucken der Rechnung lasse ich per VBA bestimmte Zellen, wie Name, Betrag etc. in eine "wachsende" Tabelle einer anderen Mappe eintragen. Das klappt. Das Problem ist die Rechnungsnummer. Da der Anwender mit 4 verschiedenen Vorlagen arbeitet kann ich die RG-Nr. NICHT in dem Formular um 1 hochzählen. Eine Lösung wären, ein Formular wird geöffnet, Excel schaut in der "wachsenden" Tabelle nach der zuletzt eingetragenen RG-Nummer (alle 4 Vorlagen arbeiten mit der selben "wachsenden" Tabelle), erhöht diese um 1 und trägt sie automatisch in das Formular ein. Dann werden wie gehabt beim Drucken die Variablen in die "wachsende" Tabelle geschrieben, dazu gehört dann auch die RG-Nummer.
Ist das zu lösen?
Vielen Dank schon mal für Eure Hilfe.
LG
Cordula

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
dann kopier den Code in das WorkbookOpen Ereignis von jeder deiner Vorlagen.
Damit ist die Rechnungsnummer extern ausgelagert, und das ganze funktioniert automatisch.
Sub Fortlaufende_RechnungsNummer() 'byRamses 'Das Makro in das Workbook_Open Ereignis einer Vorlage !!! kopieren 'um die automatische Nummern erstellung zu generieren. 'Beim speichern der Vorlage darf in der Zelle mit dem Namen "Rechnungsnummer" 'nichts stehen 'Ansonsten kann das Makro einer Schaltfläche zugwiesen werden. 'In der Zelle mit dem Namen "Rechnungsnummer" darf nichts stehen !! 'beim ausführen bzw. Start des Makros 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 in der Deklaration anpassen Open FileName For Input As #1 'einlesen der alten Nummer Line Input #1, oldNr Close #1 'Berechnen und schreiben der neuen Nummer newNr = oldNr + 1 Open FileName 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 = "0000" & newNr Case 2 newNr = "000" & newNr Case 3 newNr = "00" & newNr Case 4 newNr = "0" & newNr Case 5 newNr = newNr Case 6 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 Backslash verwendet werden Range("Rechnungsnummer") = "RechNr. " & Format(Now, "yyyy") & "-" & newNr R_Exit: Exit Sub R_Error: Select Case Err Case 53 'Datei ist noch nicht vorhanden Open FileName For Output As #1 Close #1 Open FileName 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
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Rechnungsnummer in wachsende Tabelle

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread