|
Und da bin ich mit meinem nächsten Problem:
In Spalte F habe ich ein Startdatum, in Spalte I soll ein Enddatum errechnet werden.
Enddatum = Startdatum + 28 Tage
Das ganze dann "natürlich" in einer Schleife, die mir alle Werte aus Spalte A hochrechnet.
Ich bin soweit gekommen, dass ich DateAdd nutzen kann, bekomme ich aber nicht in eine Schleife verpackt.
Habe ein nettes Kauderwelsch, das ich mit jedem neuen Versuch nur verschlimmbessere:
Sub Enddatum()
Dim LetzteZeile As Long
Dim i As Long
Dim ZeileStempKart As Long
ZeileStempKart = 5
LetzteZeile = Worksheets("Stempelkarte").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LetzteZeile
If Not IsError(Application.VLookup(.Range(i, "A"), Sheets("Stempelkarten").Range("A5:E1000"), 1, 0)) Then
.Cells("i,I") = DateSerial(Year(Date), Month(Date), Day(Date) + 28)
ZeileStempKart = ZeileStempKart + 1
End If
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
|