Nummerierung VBA Tabelle

Hallo Zusammen,
ich bin neu im Forum und meine Kenntnisse VBA betreffend sind sehr bescheiden.
Ich habe beispielhaft ein kleines Rechnungsbuch erstellt.
https://www.herber.de/bbs/user/141698.xlsx
Ich benötige bitte eine Lösung für eine Laufende Nummer in der ersten Spalte der Tabelle.
Die Nummer sollte eine Kombination auf dem Jahr des Datum jeweiligen Datums sein und einer 5-stelligen fortlaufenden Nummer.
ZB. 2020-00001
Mit jedem neuen Jahr sollte die Nummerierung wieder bei 00001 beginnen.
Wenn man die Tabelle filtert oder sortiert, muss die Nummer mit sortiert werden. D.h. alle Daten einer Zeile der Tabelle muss fix verbunden sein.
Ich hoffe, dass ich es einigermaßen verständlich ausgedrückt habe.
Kann mir jemand diese Nummerierung mit VBA programmieren?
Vielen Dank für die Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) 'Prüft, ob eine Nummer in Spalte A vorhanden ist und 'trägt diese ein, wenn nicht: Dim c As Range If Not Intersect(Target.Rows, Me.Range("4:" & Rows.Count)) Is Nothing Then For Each c In Intersect(Target.Rows, Me.Range("4:" & Rows.Count)) If IsEmpty(Me.Cells(c.Row, 1)) Then If WorksheetFunction.CountBlank(Me.Rows(c.Row))

Sub LfdNrAktualisieren() Dim sJahr$, sLfdNr$, i%, iRowIn%, sNuller$ sJahr = Year(CDate([B4])) iRowIn = IIf(IsEmpty(Range("C9999")), Range("C9999").End(xlUp).Row, 9999) - 1 sNuller = "0000" For i = 4 To iRowIn If i - 3 > 9999 Then sNuller = "" If i - 3 > 999 Then sNuller = "0" If i - 3 > 99 Then sNuller = "00" If i - 3 > 9 Then sNuller = "000" If Cells(i, 2).Value = "" Then Exit For Cells(i, 1).Value = sJahr & "-" & sNuller & i - 3 Next i End Sub

Sub LfdNrAktualisieren() Dim sJahr$, sLfdNr$, l&, lRowIn&, sNuller$ sJahr = Year(CDate([B4])) lRowIn = IIf(IsEmpty(Range("C99999")), Range("C99999").End(xlUp).Row, 99999) - 1 sNuller = "0000" For l = 4 To lRowIn If l - 3 > 9999 Then sNuller = "" If l - 3 > 999 Then sNuller = "0" If l - 3 > 99 Then sNuller = "00" If l - 3 > 9 Then sNuller = "000" If Cells(l, 2).Value = "" Then Exit For Cells(l, 1).Value = sJahr & "-" & sNuller & l - 3 Next l End Sub

Hallo
Die Rechnungsnummern sind 9 stellige Zahlen in der Form 200000000
werden aber als 0000-00000 formatiert.
- Rechtsclick auf den Tabellenblattreiter von Rechnungsbuch
- Code anzeigen
- Code reinkopieren


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Const APPNAME = "Worksheet_Change"
Dim MMax
If Not Intersect(Columns(2), Target) Is Nothing Then ' nur wenn in B
If Target.Row >= 4 And Target.Count = 1 Then ' nur wenn ab Zeile 4 und Einzelzelle
If Target.Offset(0, -1) = "" Then 'nur wenn A noch leer
'Max ermitteln von aktuellem Jahr
MMax = WorksheetFunction.MaxIfs(Columns(1), Columns(1), " 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Bei Änderung in B wird geprüft, ob A noch leer
LG UweD

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

76 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nummerierung VBA Tabelle

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

76 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread