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.