Prüfen v leeren Textfelden und zurück ins UserForm
08.05.2017 11:56:42
abdullah22
Hallo Community,
Ich bin VBA-Anfänger und hier neu.
Erst mal Gruß an alle!
Ich versuche eine UserForm aufzubauen.
Mein Problem (trotz viel Googeln und Recherche) ist:
Ich will erreichen, dass beim schließen der UFder Textfeld (txt_Name) überprüft wird ob ein Text drin steht.
Wenn da kein Eintrag ist soll ein Fehlermeldung kommen und nach bestätigen des Fehlers soll wieder ins UF zurück gehen.
Ich habe ziemlich alles auprobiert. z. T. konnte ich erreichen ,dass die Fehlermeldung kommt aber dann wird die UF ausgeblendet und das Dokument mit den Leerenfeldern geöffnet. In einem der Codes wird die UF ganz kurz eingeblendt un dspringt trotdem in das Dokument.
Unten sind die Codes, die ich auprobiert habe.
Kann mir vielleicht jemanf helfen?
cmd_OK_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'If txt_Name.Text = "" Then
'MsgBox ("Bitte füllen Sie das Feld 'Beispieltext' aus!"), vbCritical, "Fehler"
'End If
'With txt_Name
'.Text = ""
'.SetFocus
'End With
2)
Private Sub txt_Name_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNull(txt_Name.Text) Then
MsgBox ("Biite Name eingeben"), vbCritical, "Fehler"
With txt_Name
.Text = ""
.SetFocus
End With
End If
End Sub
Anzeige