Office: Automatische Rechnungsnummer

Hallo -

In Firmen werden viele Rechnungen geschrieben. Rechnung Nr. 44 ist fertig, ich speichere sie und schließe die Datei. Mit Hilfe einer Vorlage beginne ich die nächste Rechnung und möchte, daß dort schon automatisch die Rechnungsnummer 45 steht. Wie geht das?

Ich stelle mir ein Makro vor, das beim Schließen der Datei die aktuelle Rechnungsnummer um 1 erhöht und diese Zahl in die Vorlage schreibt.

 

Hallo,

füge das Makro in "Diese Arbeitsmappe" ein. Die Rechnungsnummer in A1 wird hier beim schließen hochgezählt.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("a1") = Range("a1") + 1
ActiveWorkbook.Save
End Sub

 

Hallo Krino!

Die VBA-Zeile zum erhöhen lautet einfach

Code:

Tabelle1.Range("A1") = Tabelle1.Range("A1") + 1

Welches Ereignis am Besten drumrum gespannt wird, liegt im Auge des Betrachters:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Tabelle1.Range("A1") = Tabelle1.Range("A1") + 1
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Tabelle1.Range("A1") = Tabelle1.Range("A1") + 1
End Sub

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

Das "Problem" der ersten beiden Varianten ist, dass du beim Bearbeiten immer eine Rechnungsnummer siehst, die um eins kleiner ist als die eigentlich abgespeicherte. Es gibt leider kein AFTER_Save-Ereignis...

Oder du machst es einfach per Button.

 

Dank an John und Schatzi. Das Hochzählen an sich ist kein großes Problem. Aber mit diesen Lösungen würde, wenn ich z. B. die fertige Rechnung noch einmal öffne, weil ich einen Artikel vergessen habe, die Nummer erneut um 1 erhöht, was natürlich nicht so schön ist.

Man wird ja wohl in der Praxis eine Mustervorlage benutzen, ähnlich wie eine RECHNUNG.DOT in Word. Deshalb hatte ich gedacht, daß das Makro auf die Vorlage zugreifen sollte. Habe aber keine Ahnung, ob so etwas überhaupt geht.

 

Deshalb würde ich auf die "Button-Variante" zurückgreifen.
Ein Makro, welches die Nummer um eins erhöht und (falls gewünscht) die Inhalte aller Eingabefelder des Formulars löscht.

 

Das hört sich gut an. Den Code für "alle Eingabefelder löschen" könnte ich notfalls in einer Rohfassung erzeugen als Aufzeichnung des Vorgangs "Alles markieren - Delete", falls die nicht gelöscht werden sollenden Zellen geschützt sind, oder?

 

Interessante Grammatik...

Ja, das kannst du dir theoretisch aufzeichnen lassen.
Der VBA-Befehl dafür lautet z.B.

Code:

Range("C5:E10").Clear

Achtung:

Code:

Range("C5:E10").Delete

löscht die gesamten Zellen!

 

falls die nicht gelöscht werden sollenden Zellen geschützt sind,
OK, das kann ich ja dann wohl nicht auf mir sitzen lassen. Hier die Edelfassung:

• falls die nicht zur Löschung vorgesehenen Zellen geschützt sind..