in kolom met datums lege datums tussenvoegen

[backnext]

Hallo
Ik heb een lijst met datums en bijhorende kolom met namen.
Ik wil nu dat de kolom met datums uitgebreid wordt zodat iedere dag van 1 jaar er in staat (1/1 tot 31/12) en dat alle namen in de andere kolom mee opschuiven met daar dus lege cellen tussen naast de dagen die niet in de oorspronkelijke kolom zaten.
Iemand een tip?

 

[edmoor]

Dat vraagt om een voorbeeld documentje.

 

[backnext]

voorbeeldje

voorbeeldje zie bijlage:

Bekijk bijlage KolomJaar_1.xlsx

 

[edmoor]

Je bedoelt dat de kolommen A en B zo moeten worden zoals de kolommen F en G?
Probeer deze dan maar eens:

Sub VulDatums()
    Dim Sdt As Date
    Dim Edt As Date
    Dim i As Long
    Dim x As Integer
    
    Sdt = DateValue("01-01-2016")
    Edt = DateValue("31-12-2016")
    
    x = 2
    For i = Sdt To Edt
        If Cells(x, 1) <> CDate(i) Then
            Rows(x).Insert
            Cells(x, 1) = CDate(i)
        End If
        x = x + 1
    Next i
End Sub

 

[backnext]

Ja, prachtig, dat is het. Heel erg bedankt.

 

[edmoor]

Graag gedaan