Public
Sub
zählen()
Dim
loLetzte
As
Long
With
Worksheets(
"Tabelle1"
)
loLetzte = .Cells(.Rows.Count,
"A"
).
End
(xlUp).Row
If
.Cells(loLetzte,
"A"
) =
""
Then
.Cells(loLetzte,
"A"
) =
Date
ElseIf
.Cells(loLetzte,
"A"
) <
Date
Then
.Cells(loLetzte,
"A"
).Offset(1) =
Date
.Cells(loLetzte,
"B"
).Offset(1) = .Cells(loLetzte,
"B"
).Offset(1) + 1
End
If
.Cells(loLetzte,
"B"
) = .Cells(loLetzte,
"B"
) + 1
End
With
End
Sub