Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zurück zur TextBox

Forumthread: zurück zur TextBox

zurück zur TextBox
06.12.2020 15:19:26
Eberhard
Hallo zusammen
Habe eine Beispieldatei angefügt.
Was mache ich da falsch? Wenn ich ein Datum in einer TextBox eintrage und dieses nicht korrekt ist, sollte die TextBox nach Aufruf der MsgBox gelöscht werden und der Cursor in der TextBox sein, in der das Datum falsch eingetragen wurde!
Besten Dank für Eure Hilfe
Gruss Daniel
https://www.herber.de/bbs/user/142117.xlsm
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zurück zur TextBox
06.12.2020 15:35:22
Hajo_Zi
Hallo Daniel,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Hallo = 1
Test ActiveControl.Name
If Hallo Then
Cancel = True
End If
End Sub
Option Explicit
Public Hallo As Boolean
Sub Test(StBox As String)
Dim strDatum As String
Hallo = False
strDatum = UserForm1.Controls(StBox).Text
If IsDate(strDatum) Then
If Not strDatum = Format(CDate(strDatum), "DD/MM/YYYY") Then
MsgBox "Ungültiges Datum"
Hallo = True
End If
Else
MsgBox "Ungültiges Datum"
Hallo = True
End If
End Sub

Anzeige
AW: zurück zur TextBox
06.12.2020 15:44:59
Eberhard
Hallo zusammen.
Besten Dank für Eure Hilfe.
Gruss Daniel
AW: zurück zur TextBox
06.12.2020 15:38:07
Nepumuk
Hallo Daniel,
im Prinzip so:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsDate(TextBox1.Text) Then
        MsgBox "Bitte ein gültiges Datum eingeben.", vbExclamation, "Hinweis"
        Cancel = True
    End If
End Sub


ABER, ich würde den User eingeben lassen was er will, und erst beim Klick auf "Übernehmen" die Prüfung durchführen.
Gruß
Nepumuk
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige