Datum

• Datum von Michael vom 19.11.2003 16:25:41
  • AW: Datum - von Hajo_Zi am 19.11.2003 16:30:14
  • AW: Datum - von Nayus am 19.11.2003 16:32:33

Betrifft: Datum
von: Michael
Geschrieben am: 19.11.2003 16:25:41
Hallo Excel-Experten,

habe folgendes Problem:

Möchte, dass in einer Variablen immer der 01.06. des aktuellen Jahres steht:

Bsp. für einen möglichen Code (der natürlich nicht funktioniert!):
datum = #1/6/ year(date)#

Würde mich über Hilfe riesig freuen.

Vielen Dank

Michael

Betrifft: AW: Datum
von: Hajo_Zi
Geschrieben am: 19.11.2003 16:30:14
Hallo Michael

Sub Test()
Dim Datum As Date
Datum = DateSerial(Year(Date), 6, 1)
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro



Betrifft: AW: Datum
von: Nayus
Geschrieben am: 19.11.2003 16:32:33

Sub testvar()
Dim l_dat As Date
l_dat = CDate("01.06." & CStr(Year(Now)))
'Test
ActiveSheet.Cells(1, 1) = l_dat
End Sub