Hey,
ich habe ein Problem mit der automatischen Datumsanpassung. Folgendes Anweisung habe ich in vba geschrieben:
LetzteSpalte = Worksheets(Datum).Cells(1, 256).End(xlToLeft).Column
LetzteZeile = Worksheets(Datum).Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, LetzteSpalte + 1) = "Zugänge"
Cells(1, LetzteSpalte + 2) = "Abgänge"
LetzteZeile = IIf(IsEmpty(Worksheets(Datum).Cells(Rows.Count, 1)), Worksheets(Datum).Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For i = 2 To LetzteZeile
Worksheets(Datum).Cells(i, 39).Formula = "=if(J" & i & ">=date(2014,10,15),1,if(J" & i & "<date(2014,10,15),0,1))"
Worksheets(Datum).Cells(i, 40).Formula = "=if(Y" & i & ">=date(2014,10,15),1,if(and(K" & i & "=0,M" & i & "=""GELO"",L" & i & ">=date(2014,10,15)),1,if(isblank(Y" & i & "),0,)))"
Next i
awn.Worksheets(Datum).Calculate
Es ist so, dass von dem aktuellen Datum sieben Tage abgezogen werden soll. Ich habe es mit DateAdd("d",-7,date) versucht aber das funktioniert nicht. Gibt es eine andere Möglichkeit oder muss das anderes implementiert werden?
|