Excel - datum

nevystačíte s funkcí, protože počítáte víc hodnot. Potřebujete Sub.

Okopírujte kod přes schránku a vložte do modulu.

*

Sub Datum()
Dim StartovaciBunka As Range, PrvniDatum As Range, PosledniDatum As Range
Set StartovaciBunka = Range(C1)
Set PrvniDatum = Range(A1)
Set PosledniDatum = Range(A2)

x = PosledniDatum.Value - PrvniDatum.Value
For i = 0 To x
StartovaciBunka.Offset(i, 0).Value = i + PrvniDatum.Value
Next i
End Sub

Tak ještě jednou celý kód. Přes schránku se mi nepřenesly uvozovky a vám se možná nepřenesou taky. Tak pozor. Adresy si samozřejmě můžete změnit jak poptřebujete. Jestli chcete začít rozepisovat seznam například na buňce B5 pak třetí řádek bude vypadat takto:

Set StartovaciBunka = Range("B5")

*

Sub Datum()
Dim StartovaciBunka As Range, PrvniDatum As Range, PosledniDatum As Range
Set StartovaciBunka = Range("C1")
Set PrvniDatum = Range("A1")
Set PosledniDatum = Range("A2")

x = PosledniDatum.Value - PrvniDatum.Value
For i = 0 To x
StartovaciBunka.Offset(i, 0).Value = i + PrvniDatum.Value
Next i

End Sub

Dle způsobu použití by stačily i ty vzorce.

Do první buňky výpisu zkopíruju startovní datum, do buňky pod ní toto datum zvětším o 1 a pokud už je přes koncové datum, nezobrazím nic. A tuhle druhou buňku nakopíruju dolů do sloupečku.