Datums Eingabe- Wochentag finden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Datums Eingabe- Wochentag finden
von: Oliver
Geschrieben am: 21.11.2003 08:46:04

Hallo zusammen
ich möchte in eine Userform das heutige oder irgend ein Datum eingeben und möchte das in einer Exceltabelle der dazu passende Wochentag erscheint, ist das möglich? Wer kann mir helfen?

Bild


Betrifft: AW: Datums Eingabe- Wochentag finden
von: Nayus
Geschrieben am: 21.11.2003 10:12:16

Hallo,
Userform "UserForm1" mit Eingabefeld "TextBox1" und Button "CommandButton1" angelegt.
Der folgende Code für den Button schreibt in Zelle A1 des ersten Blattes in der Arbeitsmappe den Wochentag des eingegebenen Datums.
Wenn die Eingabe kein gültiges Datum darstellet, wird eine Fehlermeldung ausgegeben.
Gruß,
Nayus


Private Sub CommandButton1_Click()
 If IsDate(UserForm1.TextBox1) Then
  Sheets(1).Cells(1, 1) = Format(UserForm1.TextBox1, "dddd")
 Else
  MsgBox "Bitte gültiges Datum eingeben"
 End If
End Sub



Bild


Betrifft: für Nayus
von: Oliver
Geschrieben am: 21.11.2003 11:46:45

Danke, für deine Rückmeldung.
Es klappt auch soweit nur finden der Code nicht den richtigen Tag zum Datum. Beispiel: heute ist der 21.11 und der Code schreibt Freitag, beim 22.11 schreibt er Sonntag
Ich bitte dich um weitere Hilfe zu diesem Thema.
Danke und Gruß
Oliver


Bild


Betrifft: Danke, für die Hilfe. Es klappt!
von: oliver
Geschrieben am: 21.11.2003 18:45:14




Bild

Beiträge aus den Excel-Beispielen zum Thema " Datums Eingabe- Wochentag finden"