Laufende Nummer in Rechnung
23.09.2003 14:54:52
Jakkogee
Gestern war jemand von euch so nett und hat mir bis zu dieser Formel(Code) geholfen und da ich leider nicht mehr online war waren wir nicht ganz fertig geworden (Sorry)
So mein Problem ist, eine Laufende Rechnungsnummer in ein Blatt zu erstellen, was nach dem Speichern und oder Drucken nicht mehr änderbar sein sollte. d. h. ich öffne die Rechnung schreibe die daten rein, dann speichere ich sie und oder drucke sie so oft ich brauche und die generierte Zahl darf nicht mehr zu ändern sein.
Das hier ist eine idee von jemanden der meinte es funktioniert... nun brauche ich hilfe denn ich komm so nicht klar damit und meine kenntnisse sind minimal.
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Rechnungsnummer = Rechnungsnummer + 1
SaveSetting AppName:="Rechnung", Section:="Nummer", Key:="Neu", setting:=Rechnungsnummer
Range("A1") = Rechnungsnummer ' Hier musst du natürlich die Adresse der Zelle anpassen
End Sub
Private Sub Workbook_Open()
Rechnungsnummer = GetSetting(AppName:="Rechnung", Section:="Nummer", Key:="Neu")
If Trim(Rechnungsnummer) = "" Then
SaveSetting AppName:="Rechnung", Section:="Nummer", Key:="Neu", setting:=0
Rechnungsnummer = 0
End If
End Sub
Danke schon mal im voraus
MfG
Jakkogee