Datumsfunktion definieren
14.01.2015 11:20:28
toteitote
Ich suche eine Alternativlösung für DateAdd ("DateSubstract" o.Ä.).
Ich möchte am Besten ohne Form Control-Button eine Lösung finden, 26h vom jetzt-Zeitpunkt im Kalendardatum abzuziehen und einen Output auf WS1 Cell B2 zu generieren.
Sub DateCorrective()
Dim Date1 As Date, TwentySix As Date
Date1 = DateValue("TT.MM.JJJJ")
TwentySix = DateAdd("h", 26, Date1)
End Sub
Anzeige