sub abbrechen

Forumthread: sub abbrechen

sub abbrechen

01.01.2021 19:20:42

Eberhard

Guten Tag
Ich habe eine UserForm mit Textboxen. Bei der Textbox1 muss ein Datum eingetragen werden. Die Überprüfung ob ein gültiges Datum in Textbox1 steht, geht über das TextBox1_Exit() Ereignis. Dies funktioniert auch.
Mit einem Button möchte ich das ganze abbrechen. Doch leider krieg ich dies nicht hin. Denke da gibt es sicher eine Lösung.
Habe eine Datei hochgeladen!
Besten Dank für Eure Hilfe.
Gruss Daniel
https://www.herber.de/bbs/user/142695.xlsm

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: sub abbrechen

01.01.2021 20:03:10

Matthias
AW: sub abbrechen

01.01.2021 20:05:18

onur
AW: sub abbrechen

01.01.2021 20:13:42

GerdL
AW: sub abbrechen

01.01.2021 20:44:11

Eberhard

AW: sub abbrechen

01.01.2021 20:03:10

Matthias

Hallo,
Textbox erst leeren und dann
frag im Exit-Code ob die Textbox leer ist

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim strDatum As String
strDatum = UFBGOQ.TextBox1.Text
If strDatum  "" Then
If IsDate(strDatum) Then
If Not strDatum = Format(CDate(strDatum), "DD/MM/YYYY") Then
MsgBox "Ungültiges Datum!", vbInformation
Cancel = True
With UFBGOQ.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End If
Else
MsgBox "Ungültiges Datum!", vbInformation
Cancel = True
With UFBGOQ.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End If
Else
End If
End Sub

Somit kannst Du bei leerer Textbox aussteigen
Gruß Matthias

AW: sub abbrechen

01.01.2021 20:05:18

onur


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim strDatum As String
strDatum = UFBGOQ.TextBox1.Text
If IsDate(strDatum) Then
If Not strDatum = Format(CDate(strDatum), "DD/MM/YYYY") Then
MsgBox "Ungültiges Datum!", vbInformation
Cancel = True
With UFBGOQ.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End If
Else
If strDatum  "" Then
MsgBox "Ungültiges Datum!", vbInformation
Cancel = True
With UFBGOQ.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End If
End If
End Sub

AW: sub abbrechen

01.01.2021 20:13:42

GerdL

Ein frohes Neues!
stelle die CommandButton-Eigenschaft TakeFocusOnClick auf False u. teste mal nach diesem Schema.

Dim NoEX As Boolean
'Abbrechen
Private Sub CommandButton1_Click()
NoEX = True
Unload Me
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim strDatum As String
If NoEX Then Exit Sub
strDatum = UFBGOQ.TextBox1.Text
If IsDate(strDatum) Then
If Not strDatum = Format(CDate(strDatum), "DD/MM/YYYY") Then
MsgBox "Ungültiges Datum!", vbInformation
Cancel = True
With UFBGOQ.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End If
Else
MsgBox "Ungültiges Datum!", vbInformation
Cancel = True
With UFBGOQ.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End If
End Sub

Gruß Gerd

AW: sub abbrechen

01.01.2021 20:44:11

Eberhard

Wünsche auch noch ein gutes Neues!
Besten Dank Euch drein, es funktionieren wie gewünscht alle drei Versionen!
Gruss Daniel

Beliebteste Forumthreads (12 Monate)

Forumthread: sub abbrechen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread