Datum prüefen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox TextBox MsgBox
Bild

Betrifft: Datum prüefen
von: Ludmila
Geschrieben am: 23.11.2015 05:29:14

Guten Morgen,
ich möchte eine Zelle auf Ihr Datum prüfen.
Es der Eintrag korrekt und handelt es sich um ein gültiges Datum.
Funktionieren soll es über UF als auch über manuelle Eingabe.
Danke!
Gruß
Ludmila
https://www.herber.de/bbs/user/101736.xlsm

Bild

Betrifft: AW: Datum prüefen
von: RPP63
Geschrieben am: 23.11.2015 07:11:11
Moin!
Im Excel-Tabellenblatt:
Daten, Datenüberprüfung, Zulassen, Datum von bis
Textbox in UserForm:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
    If .Text = "" Then Exit Sub
    If IsDate(.Text) Then
        .Text = Format(.Text, "dd.mm.yyyy")
    Else
        MsgBox .Text & " ist ein ungültiges Datum!"
        .Text = ""
        Cancel = True
    End If
End With
End Sub
Gruß Ralf

Bild

Betrifft: AW: Datum prüefen
von: Luschi
Geschrieben am: 23.11.2015 07:26:03
Hallo Ludmila,
hier mal mein Vorschlag: https://www.herber.de/bbs/user/101737.xlsm
Gruß von Luschi
aus klein-Paris

Bild

Betrifft: @Luschi
von: RPP63
Geschrieben am: 23.11.2015 08:47:11
Hallo Luschi!
Ergänzend mal eine (für mich) interessante Variante, die ComboBox zu füllen:

Private Sub UserForm_Initialize()
ComboBox1.List = [index(text(today()-30+row(1:40),"dd.mm.yyyy"),)]
ComboBox1.Value = Date
End Sub
Hier gibt es schier unendliche Vorschläge:
http://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html
Gruß Ralf

Bild

Betrifft: AW: @Luschi
von: Ludmila
Geschrieben am: 23.11.2015 10:44:42
Hallo,
Danke erstmal für Eure Hilfe.
Leider funktioniert die angefügte Datei nicht.
Es erscheint bei jeder Eingabe eine Fehlermeldung.
Egal ob ich das Datum per UF eintrage oder manuell.
Gruß
Ludmila

Bild

Betrifft: AW: Fehler von mit funktioniert o.T
von: Ludmila
Geschrieben am: 23.11.2015 11:26:17
.

Bild

Betrifft: AW: @Luschi
von: Luschi
Geschrieben am: 23.11.2015 12:14:32
Hallo Ralf,
ich hatte diesen Link gerade erst in einem Forum gesehen und bin gerade dabei zu
klären, was: [index(...)] in Vba bedeutet.
Gruß von Luschi
aus klein-Paris


Bild

Betrifft: snb denkt um die Ecke
von: RPP63
Geschrieben am: 23.11.2015 12:38:34
Hi Luschi!
Ist so ähnlich wie
MsgBox Evaluate("today()")
Die [] sind ja evaluate,
denen wird eine Excel-Funktion übergeben (logisch ist es die englische Variante)
Gruß Ralf

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wert ab einer stelle in der Zelle wiedergeben"