tägliche aufsteigende Nummerierung

[RPP63]

Mal eine Lösung vorweg.
Du brauchst in jedem Fall ein Journal.
Bei mir ist das Tabelle 1
A1: DateTime
B1: Nummer

Code:

Sub Eins_Hoch()
Dim letzteZeile&
With Tabelle1
  letzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
  If Date > WorksheetFunction.Max(.Columns(1)) Then
    .Cells(letzteZeile + 1, 2) = 1
  Else
    .Cells(letzteZeile + 1, 2) = .Cells(letzteZeile, 2) + 1
  End If
  .Cells(letzteZeile + 1, 1) = Now
End With
End Sub