Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Heutiges Datum erst ab 6 Uhr VBA

Betrifft: Heutiges Datum erst ab 6 Uhr VBA von: Spenski
Geschrieben am: 25.07.2014 16:51:51

ahoi.

kann mir diese Formel jemand in VBA schreiben???

=HEUTE()-(STUNDE(JETZT())<6)

danke
christian

  

Betrifft: Makrorecorder kaputt?? ;-) von: Christian
Geschrieben am: 25.07.2014 16:56:19




  

Betrifft: AW: Makrorecorder kaputt?? ;-) von: Spenski
Geschrieben am: 25.07.2014 16:59:36

hehe
kopf ist schon im wochenende^^

danke


  

Betrifft: AW: Heutiges Datum erst ab 6 Uhr VBA von: UweD
Geschrieben am: 25.07.2014 17:40:10

Hallo

Willst du die Formel per VBA in die Zelle schreiben oder das Datum in VBA ausrechnen??
Hier beide Lösungen...

Sub Makro1()
    Range("A1").Formula = "=TODAY()-(HOUR(NOW())<6)"
End Sub


Sub Makro2()
   Dim Datum As Date
   Datum = Date - (Hour(Now) > 6)
   MsgBox Datum
End Sub

Gruß UweD


  

Betrifft: AW: Heutiges Datum erst ab 6 Uhr VBA von: Spenski
Geschrieben am: 25.07.2014 17:48:19

hallo uwe , ja das erstere habe ich gesucht , klappte dann mit makrorecorder auch^^

dank dir für beide versionen