Makro in Excel

[robifella 10]

hi leute,

 

möchte ein datum in eine zelle einfügen. soweit hab ich das jetzt auch geschafft.

folgenden vba-code hab ich:

############################################

Private Sub CommandButton1_Click()

 

For i = 4 To 50

 

If Range("A" & i).Value = "" Then

zeile = i

i = 50

End If

Next i

 

Range("A" & zeile).Value = Date

End Sub

############################################

 

nun möchte ich aber von einem bestimmten datum ausgehen und dieses jeweils in 2 zeilen untereinander dies eintragen...

wie beispielsweise hier:

 

hoffe ihr könnt mir helfen :D

 

mfg