Einfügen von Datum und Zeit

Private Sub Workbook_Open() If Time < #10:30:00 AM# Then MsgBox "Guten Morgen! Sie arbeiten mit Belegh, welche von Michael Leipold erstellt wurde" End If If Time > #10:30:00 AM# Then MsgBox "Guten Tag! Sie arbeiten mit Belegh, welche von Michael Leipold erstellt wurde" End If If Time > #4:30:00 PM# Then MsgBox "Guten Abend! Sie arbeiten mit Belegh, welche von Michael Leipold erstellt wurde" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hab auch fast 0 Ahnung von VB aber da noch keiner geantwortet hat, kannst erstmal das hier nehmen. (geht sicher auch kürzer)
Die Zeit wird leider mit sek. angezeigt. Ich weiss nicht wie man diese Funktion als hh:mm ausgeben kann.
Wenn ich es mit
CStr(DatePart("h", Time)) & CStr(DatePart("n", Time))
schreibe und es ist zum Beispiel 12:01 Uhr dann würde in der Box 12:1 Uhr stehen. (Die 0 wird nicht mit angegeben)


Private Sub Workbook_Open()
If Time < #10:30:00 AM# Then tagezeit = "Guten Morgen "
If Time > #10:30:00 AM# Then tagezeit = "Guten Tag "
If Time > #4:30:00 PM# Then tagezeit = "Guten Abend "
Wochentag = Weekday(Date)
If Wochentag = 1 Then tagname = "Sonntag"
If Wochentag = 2 Then tagname = "Montag"
If Wochentag = 3 Then tagname = "Dienstag"
If Wochentag = 4 Then tagname = "Mittwoch"
If Wochentag = 5 Then tagname = "Donnerstag"
If Wochentag = 6 Then tagname = "Freitag"
If Wochentag = 7 Then tagname = "Sonnabend"
Monat = Month(Date)
If Monat = 1 Then monatname = "Januar"
If Monat = 2 Then monatname = "Februar"
If Monat = 3 Then monatname = "März"
If Monat = 4 Then monatname = "April"
If Monat = 5 Then monatname = "Mai"
If Monat = 6 Then monatname = "Juni"
If Monat = 7 Then monatname = "Juli"
If Monat = 8 Then monatname = "August"
If Monat = 9 Then monatname = "September"
If Monat = 10 Then monatname = "Oktober"
If Monat = 11 Then monatname = "November"
If Monat = 12 Then monatname = "Dezember"
MsgBox tagezeit & Application.UserName & ". Heute ist " & tagname & " der " & _
CStr(DatePart("d", Date)) & ". " & monatname & " " & CStr(DatePart("yyyy", Date)) & _
". Es ist " & Time & " Uhr." & Chr(13) & _
"Sie arbeiten mit Belegh, welche von Michael Leipold erstellt wurde.", , "Willkommen"
End Sub

Sub DatumUndZeit() MsgBox "Heute ist " & Format(Date, "dddd") & " der " & Format(Date, "dd.mm.yyyy") _ & "." & vbLf & "Es ist jetzt genau " & Format(Time(), "HH:MM") & "." _ & vbLf & "Und wenn die Sekunden auch noch wichtig sind: " _ & Format(Time, "SS") & "." End Sub

Sub DatumUndZeit() Dim strTagesZeit Select Case Time Case Is < #10:30:00 AM# strTagesZeit = "Guten Morgen " Case Is < #4:29:59 PM# strTagesZeit = "Guten Tag " Case Else strTagesZeit = "Guten Abend " End Select MsgBox strTagesZeit & Environ("USERNAME") & "." & vbLf & _ "Heute ist " & Format(Date, "dddd") & " der " & Format(Date, "dd.mm.yyyy") _ & "." & vbLf & _ "Es ist " & Format(Time, "HH:MM") & "." & vbLf & _ "Sie arbeiten mit blablabla" & vbLf & _ "Und wenn die Sekunden auch noch wichtig sind: " _ & Format(Time, "SS") & "." End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einfügen von Datum und Zeit

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread