Hallo Ihr!
Habe folgendes Verbrochen:
With Sheets("Eingabefenster")
z = 2
DatumHeute = DateSerial(JahrHeute, MonatHeute, TagHeute)

While .Cells(z, 2) &lt&gt ""
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 &lt= 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