Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1844to1848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Format-Rechnungsnummer

Format-Rechnungsnummer
11.09.2021 17:17:13
Milan
Hallo Leute,
ich möchte in einer Zelle Rechnungsnummer die sich erhoht bei der Speicherung aber in einem bestimmten Format formulieren.
Die Zahlenreihe sollte letzte zwei Zahlen von Jahr haben und angefangen mit drei nullen zB. im Jahr 2021 soll so ausehen "21000".
Problem ist in der Formulierung weil ich möchte gerne, dass sich beim Jahreswechsel immer erhoht die "21" automatisch auf "22", "23" und
der Rest sich zurücksetzt auf "000".
Beispiel: Wenn ich Rechnung heute öffne, Rechnungsnummer lautet "21333" und bei Speicherung erhoht sich auf "21334" aber
am 01.01.2022 sollte automatisch mit "22000" beginnen und am 01.01.2023 sollte mit "23000" beginnen:
Ist das irgendwie möglich mit oder ohne VBA zu lösen.
Gruß

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Format-Rechnungsnummer
11.09.2021 17:38:49
Hajo_Zi
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Dies gilt für alle Ereignisse unter DieseArvbeitsmappe.
Der Code wirkt in der gesamten Datei.

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Left(Range("Al8"), 2)  Format(Date, "YY") Then
Range("Al8") = Format(Date, "YY") & "000"
Else
Range("Al8") = Format(Date, "YY") & Right(Range("Al8"), 3) + 1
End If
End Sub
GrußformelHomepage
Anzeige
AW: Format-Rechnungsnummer
11.09.2021 19:44:39
Milan
Vielen Dank,
es ist sehr gute Ansatz mit kleinem Mackel, nämlich wenn ich das Datum lösche oder im Übergang ins neue Jahr macht kleine ungeordnete Sprünge.
zB. in Jahr 2021 fängt an mit:
21000
211
21212
21213...
Jahr 2022 fängt an mit:
22000
221
22222
22223...
Kann man irgendwie erzwingen, dass es fortlaufend läuft wie:
21000
21001
21002...
Gruß
AW: Format-Rechnungsnummer
11.09.2021 19:47:36
Hajo_Zi
ich sehe gerade Fehler
Range("Al8") = Format(Date, "YY") & Format(Right(Range("Al8"), 3) + 1,"000")
Gruß Hajo
Anzeige
AW: Format-Rechnungsnummer
11.09.2021 20:03:31
Milan
Vielen Dank nochmal,
es funktioniert genial, zukunftsicher.
Schönes Wochenende!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige