Datumsberechnung ergänzen
16.11.2008 06:24:00
Wolfgang
den nachstehenden Code hat mir Reinhard zur Verfügung gestellt. Er funktioniert auch soweit sehr gut. Gibt es eine Möglichkeit, diesen Code noch zu ergänzen, damit er gleichzeitig noch das jeweilige Datum in Spalte E zu Grunde legt (Format: 16.11.2008) und mir daraus nur die Jahreszahl in Spalte P einträgt? In der Folge wäre dann schön, wenn er das Datum, welches in Spalte F steht mit 180 Tagen hochrechnet und das Datum dann in Spalte R einträgt.- Wäre soetwas denkbar? - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Sub Datum2()
'berechnet die Differenz zwischen Datum in Spalte F und HEUTE in Tagen
Dim rng As Range
Set rng = Range("Q2").Resize(Range("F" & Rows.Count).End(xlUp).Row, 1)
rng.Formula = "=today()-F2"
rng.Value = rng.Value
rng.NumberFormat = "General"
End Sub