Datumsrechnung
18.05.2005 15:44:49
Sammy
Habe folgendes Verbrochen:
With Sheets("Eingabefenster")
z = 2
DatumHeute = DateSerial(JahrHeute, MonatHeute, TagHeute)
While .Cells(z, 2) <> ""
TagBeginn = Day(.Cells(z, 11))
MonatBeginn = Month(.Cells(z, 11))
JahrBeginn = Year(.Cells(z, 11))
Laufzeit = Cells(z, 12)
DatumBeginn = DateSerial(JahrBeginn, MonatBeginn, TagBeginn)
If DatumBeginn <= DatumHeute Then
TagVerlaengerung = TagBeginn
MonatVerlaengerung = MonatBeginn + Laufzeit
JahrVerlaengerung = JahrBeginn
DatumVerlaengerung = DateSerial(JahrVerlaengerung, MonatVerlaengerung, TagVerlaengerung)
.Cells(z, 11) = DatumVerlaengerung
End If
z = z + 1
Wend
End With
End Sub
Es treten aber noch 2 Probleme auf:
1. ich möchte gerne das er diese Prozedur solange wiederholt wird bis alle Daten in diesem Blatt hinter dem heutigen liegen. von alleine ohne das ich zig mal den Button drücken muß.
2. Wenn ein Datum z.B der 31.05.2005 ist dann macht er daraus den 01.12.2005 wenn die Laufzeit 6 Monate ist... ich brauche aber den 30.11.2005, geht das?
Danke im Voraus für Hilfe.
LG Sammy