Richtige Zählerimplementation
06.04.2020 21:31:50
tessa
würde jemand so freundlich sein und mir erklären wie ich einen Zähler richtig in VBA implementiere?
Ich wünsche mir eine Zahlenfolge die etwa so aussieht: 2020040601>2020040602>2020040603>....
Meine jetztige Funktion gibt mir nur 202004060 zurück.
Über eine Rückmeldung würde ich mich sehr freuen. =)
Sub incrementInvoiceNumber()
Dim count As Long
Dim i As Long
Application.ScreenUpdating = False
Sheets("Sheet1").Range("A1").Value = _
Format(Date, "YYYYMMDD") & count
With Sheets("Sheet2")
i = .Cells(.Rows.count, 1).End(xlUp).Row
If Not IsEmpty(.Cells(i, 1)) Then i = i + 1
.Cells(i, 1).Value = Sheets("Sheet1").Range("A1").Value
count = count + 1
End With
Application.ScreenUpdating = True
End Sub