Datum und Uhrzeit

Forumthread: Datum und Uhrzeit

Datum und Uhrzeit

10.01.2006 09:44:01

peter

Hallo,
wie kann ich folgende Aufgabe beim Öffnen eines Blattes lösen?
aktuelles Datum in H1 und aktuelle Uhrzeit in H2 eintragen
Danke für Eure Antworten
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum und Uhrzeit

10.01.2006 09:51:56

Gert Seler

AW: Datum und Uhrzeit

10.01.2006 09:57:06

peter

AW: Datum und Uhrzeit

28.07.2004 09:51:41

meine Lösung

10.01.2006 13:56:35

Peter

AW: Datum und Uhrzeit

10.01.2006 09:51:56

Gert Seler

Hallo Peter,
in H1 =HEUTE() und in H2 =Jetzt()
mfg
Gert

AW: Datum und Uhrzeit

10.01.2006 09:57:06

peter

Hallo Gert,
das ist mir schon klar, aber wie bekomme ich es per Makro, beim Öffnen des Blattes automatisch eingetragen?
Gruß
Peter

AW: Datum und Uhrzeit

28.07.2004 09:51:41

Hallo Peter,
da ich VBA bis jetzt noch nicht inhaliert habe, folgende Lösung aus dem Archiv:
Betrifft: AW: Datum und VBA - mehr Info

Hallo Hardy,
falls Du mal mehr Info zu einem Datum benötigst:
<pre>
Function DatumsInfo(Optional datum As Date, _
Optional was As String) As String
If datum = 0 Then datum = Date
Select Case UCase(was)
Case "L" 'langes Datumsformat (z.B. Montag, 05. Jänner 2004)
DatumsInfo = Format(datum, "long date")
Case "KW" 'Kalenderwoche
If Format(datum, "DDD") = "Mo" Then datum = datum + 1
DatumsInfo = Format(datum, "ww", vbMonday, vbFirstFourDays)
Case "MM" 'Monatskürzel
DatumsInfo = Format(datum, "MMM")
Case "MN" 'Monatsname ausgeschrieben
DatumsInfo = Format(datum, "MMMM")
Case "MZ" 'Monatszahl
DatumsInfo = Format(datum, "M")
Case "JT" 'der wievielte Tag des Jahres?
DatumsInfo = Format(datum, "y")
Case "Q" 'Quartal
DatumsInfo = Format(datum, "q")
Case "WN" 'Wochentag ausgeschrieben
DatumsInfo = Format(datum, "DDDD")
Case "WW" 'Wochentags-Kürzel
DatumsInfo = Format(datum, "DDD")
Case "WZ" 'Wochentagszahl (1=Mo...7=So)
DatumsInfo = WeekDay(datum, vbMonday)
Case Else
DatumsInfo = Format(datum, "long date") & vbCr & _
" ( Quartal " & Format(datum, "q") & _
", KW " & DatumsInfo(datum, "kw") & _
", Tag " & Format(datum, "y") & " des Jahres )"
End Select
End Function</pre>
Ruf die Funktion doch mal ohne Parameter auf - :-)
Servus aus dem Salzkammergut
Franz
Ich hoffe es hilft Dir weiter.
mfg
Gert

meine Lösung

10.01.2006 13:56:35

Peter

Danke für Deine Bemühungen, habe es so gelöst


Private Sub Worksheet_Activate()
Range("H1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("H2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("H2").Select
Selection.NumberFormat = "h:mm"
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Datum und Uhrzeit

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Datum und Uhrzeit

Forumthread: Datum und Uhrzeit

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread