Quittungsnummer
03.11.2021 18:10:38
Milan
ich habe vor eine Weile eine VBA Lösung von Hajo bekommen. Es handelt sich um Vergabe von Rechnungsnummern +1 in Zahlenformat "YY":
An Jahresanfang soll Zähler mit dem neuen Jahr von vorne beginnen zB. jetzt ist Jahr 2021, Zählernummer begint mit 21000 und danach +1, am Anfang des 2022 begint von vorne aber mit 22000 usw. Das funktioniert perfekt. Hier Original VBA Code:
Sub NeueRechnungsNummer()
If Left(Range("A1"), 2) Format(Date, "YY") Then
Range("A1") = Format(Date, "YY") & "000"
Else
Range("A1") = Format(Date, "YY") & Format(Right(Range("A1"), 3) + 1, "000")
End If
End Sub
Jetzt habe ich ähnliche Ausgangsposition, ich habe eine Quittungsvorlage in der von Tag zu Tag unterschiedlich an Anzahl werden Quittungen ausgegeben.Ich habe die selbe Code benutzt die auch funktioniert aber Problem ist wenn ich den Zähler lösche spricht neues Jahresanfang der Zähler startet richtig aber beim zweitem und drittem klick zählt nicht richtig und ab da zählt richtig aber mit falschen Zahlen. Ich habe viele Versuche aber ohne Ergebnis und jetzt muss ich leider wieder um Hilfe bitten.
Angepasste Code und Beispieltabelle liegt bei
Beispieltabelle: https://www.herber.de/bbs/user/148931.xlsm
Die Code:
Sub QuittungsNummer()
If Left(Worksheets("Quittung").Range("O1"), 2) Format(Date, "YY") Then
Worksheets("Quittung").Range("O1") = Format(Date, "YY") & "0000" 'Startnummer kann man ersetzen
Else
Worksheets("Quittung").Range("O1") = Format(Date, "YY") & Format(Right(Worksheets("Quittung").Range("O2"), 3) + (Right(Worksheets("Quittung").Range("O2"), "0000")))
End If
End Sub
Danke und Gruß