Erstellen Sie eine eindeutige Datensatznummer - Excel-Tipps

Janet aus England stellte die heutige Frage.

Wir müssen wissen, wie man ein Makro einrichtet, das eine eindeutige Rechnungsnummer zuweist, und wie man ein zweites Makro einrichtet, das die fertige Rechnung als eindeutige Nummer speichert.

Hier ist die hypothetische Anwendung, die ich mir vorstelle. Es gibt eine Arbeitsmappe mit einem Rechnungsarbeitsblatt und einem Menüarbeitsblatt. Ich schlage vor, die letzte Rechnungsnummer in einer abgelegenen Zelle im Menüarbeitsblatt zu speichern, sagen wir Z1. Wenn die Rechnungsnummer in Zelle H2 des Rechnungsarbeitsblatts stehen soll, würde dieses Makro den Trick machen:

Sub GetNextInvoiceNumber() LastInv = Worksheets("Menu").Range("Z1").Value NextInv = LastInv + 1 Worksheets("Invoice").Range("H2").value = NextInv Worksheets("Menu").Range("Z1").value = NextInv End Sub

Um die Rechnung zu speichern, gehen Sie wie folgt vor:

Sub SaveInvWithNewName() ' Copy Invoice to a new workbook Worksheets("Invoice").Copy NewFN = Range("H2").Value & ".xls" ActiveWorkbook.SaveAs NewFN ActiveWorkbook.Close End Sub