Bei einem VBA Code einer UserForm komme ich auf keinen grünen Zweig und brauche eure Hilfe.
Die Box soll automatisch eine fortlaufende Nummer nach folgendem Muster generieren "JJ-000". Also 17-001, 17-002 usw. wenn im Jahr 2018 ein Auftrag erfasst wird wechselt es von 17-000 auf 18-000 wenn möglich soll es dann wieder bei 0 beginnen und nicht fortfahren.
Aufgrund meiner beschränkten VBA Kenntnisse komme ich trotz Google nicht weiter, bei meinem Code wird das Format immer so ausgegeben: "2017-1"
Kann mir jemand helfen? Dort wo "?" steht, wusste ich nicht was reinschreiben.
Danke & Grüsse
Sandro
Hier mein Code:
Private Sub UserForm_Initialize()
Sheets("Erfassung").Select
Sheets("Erfassung").Cells(Rows.Count, 1).End(xlUp).Select
If Selection.Row = 1 Then
Auftragsnummer.Text = "001"
Else
Auftragsnummer.Text = Year(Date) & "-" & Cells(Selection.Row, 1).Value + 1
End If
Cells(Selection.Row + 1, 1).Select
Selection.NumberFormat = ("?")
End Sub