Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

AW: zurück zur TextBox
06.12.2020 15:44:59
Eberhard
Hallo zusammen.
Besten Dank für Eure Hilfe.
Gruss Daniel
Anzeige
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige