Fortlaufende Rechnungsnummer mit Excel

Nachdem WIN sich in der Ausgabe 1/98 mit fortlaufenden Rechnungsnummern in Winword beschΣftigt hat, hat WIN-Leser J÷rg Schulmeister aus M÷rfelden-Walldorf auch eine L÷sung fⁿr Excel parat. Dort funktioniert die Sache Σhnlich, aber einfacher, weil Excel von Haus aus rechnen kann. ZunΣchst legen Sie eine neue Arbeitsmappe zum Beispiel mit dem Namen RECHNUM.XLS an, in der an einer definierten Position nichts weiter als die zuletzt verwendete Rechnungsnummer steht. Wenn Sie mit der Rechnungsnummer 1 beginnen, kann die Arbeitsmappe auch ganz leer sein. Schlie▀en Sie die Datei und rufen Sie die Arbeitsmappe mit Ihrem Rechnungsformular auf. Dort schreiben Sie ein neues Makro. Dazu rufen Sie den Befehl Extras û Makro û Makros auf, geben dem Makro einen Namen und klicken auf Erstellen. Im Makro-Editor fⁿgen Sie dann folgende Anweisungen ein oder kopieren sie aus der Datei RECHNUM.TXT, die Sie auf der WIN-Monats-CD und in den WIN-Online-Foren finden 

Sub GetRechnungsnummer ()╢
Dim neuenummer As Integer╢
Application.ScreenUpdating = False╢
Workbooks.Open FileName:=ôc:\daten\rechnum. xlsô╢
neuenummer = Cells (2,1).Value╢
neuenummer = neuenummer + 1╢
Cells (2,1).Value = neuenummer╢
ActiveWorkbook.Save╢
ActiveWorkbook.Close╢
Range (ôC25ô).Select╢
ActiveCell.Value = neuenummer╢
Application.ScreenUpdating = True╢
End Sub╢
Zeile 2 definiert die Variable neuenummer, die Excel zum HochzΣhlen der Rechnungsnummer ben÷tigt. Dann schalten Sie die Aktualisierung des Bildschirms aus. So sieht der User nicht, da▀ Excel die Datei RECHNUM.XLS im Ordner DATEN ÷ffnet. Dort benutzen Sie Ihre Angaben fⁿr Pfad und Dateiname. Nun liest das Makro den Inhalt der Zelle A2 und ⁿbergibt ihn an die Variable neuenummer. Das Makro erh÷ht den Wert um 1 und schreibt ihn in die Zelle zurⁿck. Es folgen Speichern und Schlie▀en der Datei sowie das ▄bertragen des Werts an eine definierte Position (im Beispiel Zelle C25) in der Rechnung. Zuletzt schaltet das Makro das Aktualisieren des Bildschirms wieder ein. Bei Bedarf k÷nnen Sie das Makro mit einem Button im Rechnungsformular verbinden, so da▀ Sie die Nummer auf Tastendruck bekommen.