In excel beleg-nr. erhöhen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

ich habe ein kleines Problem. Ich möchte eine Zelle in Excel 2003 mit meiner Beleg-Nr. automatisch um 1 erhöhen, nachdem ich das Dokument gespeichert habe. Wie kann ich diesen Vorgang hinterlegen?

2

nach dem speichern geht nicht ohne workaround aber VOR dem speichern geht ganz leicht und sollte auch seinen Zweck tun…

Private Sub Workbook\_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 welchezelle = "A1"
 Range(welchezelle).Value = Range(welchezelle).Value + 1
End Sub