Office: Fortlaufende Rechnungsnummern?

Hallo Leute

Eure Hilfe ist gefragt! Wie mache ich es das wenn ich das Rechnungsformular öffne automatisch die Rechnungnummer aktualisiert wird.

Vielen Dank für eure Weisheiten im Voraus!

 

Hallo Buffy -

Baue dieses Makro in "Diese Arbeitsmappe" ein (über Alt + F11)

Code:

Private Sub Workbook_Open()
Tabelle1.Range("A1") = Tabelle1.Range("A1") + 1
End Sub 

Genaue Vorgehensweise: Code markieren > Strg + C > Rechnung öffnen > Alt + F11 > Doppelklick auf "DieseArbeitsmappe" > Cursor in die weiße Fläche rechts > Strg + V > Speichern. Bei jedem erneuten Öffnen der Rechnung wird die Nummer um 1 hochgezählt.

Falls die Rechnungsnummer in einer anderen Zelle als A1 steht, Zellbezug anpassen.