Sub
k()
Dim
i
As
Integer
i = 1
Do
Until
(ActiveSheet.Cells(i, 1) =
""
)
If
(ActiveSheet.Cells(i, 2) =
""
)
Then
ActiveSheet.Cells(i, 1).Copy
ActiveSheet.Cells(i, 2).Activate
ActiveSheet.Paste
Else
End
If
i = i + 1
Loop
End
Sub
<strong>Allerdings darf es in Spalte A keine
"Lücken"
zwischen den Datumswerten geben.
Das Makro habe ich an das Blatt geheftet, das die besagten Spalten A und B enthält.
Hoffentlich konnte ich helfen.</strong>
<strong>Viele Grüße, Jörg</strong>