Nummerierung
27.08.2020 15:03:18
Lara
ich habe bereits im Archiv geschaut und konnte mir bereits ein wenig helfen.
https://www.herber.de/forum/archiv/1596to1600/1596970_Fortlaufende_Nummer_inkl_Jahr.html
Ich habe den Code vom o.g. Link ein wenig an meine Bedürfnisse angepasst und er läuft super.
Dim lngRow As Long, intJahr As Integer, intMaxNr As Integer
intJahr = (Year(Date) - 2000) * 1000 '17000 für 2017
With Sheets("Übersicht")
lngRow = .Cells(Rows.Count, 1).End(xlUp).Row
intMaxNr = WorksheetFunction.Max(.Columns(1))
End With
If lngRow > 1 Then
If intMaxNr Worksheets("Dashboard").Range("N15") = intJahr + 1 '17001
Else
Worksheets("Dashboard").Range("N15") = intMaxNr + 1 'höchste Nr + 1
End If
Else
Worksheets("Dashboard").Range("N15") = intJahr + 1 '17001
End If
Jedoch habe ich das Probelm, wenn ich hier anstatt 1000, 100000 multipliziere:
intJahr = (Year(Date) - 2000) * 100000 '1700000 für 2017 , dann bekomme ich den Fehler "Überlauf"...
Vielleicht weiß einer von euch ja einen guten Rat
Liebe Grüße
Lara