Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Betreff
Datum
Anwender
Anzeige
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
FP
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
Anzeige
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

358 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige