Sub
Auffüllen()
Dim
lz
As
Long
, lzc
As
Long
Dim
da
As
Variant
lz = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
lzc = Sheets(1).Cells(1048576, 3).
End
(xlUp).Row
da = InputBox(prompt:=
"Bitte geben Sie ein Datum ein"
)
Range(Cells(1, 1), Cells(lz, 1)).Value = da
If
Cells(1, 3).Value =
""
Then
Range(Cells(1, 3), Cells(lz, 3)).Value =
"xy"
Else
Range(Cells(lzc + 1, 3), Cells(lz, 3)).Value =
"xy"
End
If
End
Sub