Ich habe in den Zellen B2:B8 das Datum 01.01.06 stehen.Ich möchte jetzt mittels VBA in den Zellen B9:B15 das Datum 02.01.06.Danach in den Zellen B16:B22 das Datum 03.01.06 usw.
Wie würde hier bitte der VBa Code lauten?
Danke
Josef
Public Sub Datum_einstellen()
Dim lZeile As Long
Dim dDatum As Date
Dim iIndx As Integer
lZeile = 8
Do
If IsDate(Cells(lZeile, 2).Value) Then
dDatum = CDate(Cells(lZeile, 2).Value) + 1
For iIndx = 1 To 7
Cells(lZeile + iIndx, 2).Value = dDatum
Next iIndx
lZeile = lZeile + 7
End If
Loop Until Day(dDatum) = 31
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Public Sub Datum_einstellen()
Dim lZeile As Long
Dim dDatum As Date
Dim iIndx As Integer
lZeile = 8
Do
If IsDate(Cells(lZeile, 2).Value) Then
dDatum = CDate(Cells(lZeile, 2).Value) + 1
For iIndx = 1 To 7
Cells(lZeile + iIndx, 1).Value = Cells(iIndx, 1).Value
Cells(lZeile + iIndx, 2).Value = dDatum
Next iIndx
lZeile = lZeile + 7
End If
Loop Until Day(dDatum) = 31
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.