Private Sub textfeld1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(textfeld1.Text) < 13 Then
MsgBox ("Bitte überprüfen Sie die Anzahl der Stellen. ")
Else
End If
End Sub
Private Sub Beenden_Click()
Application.Sheets("Auswahlmenü").Activate
'#Beenden
Unload Me
End Sub
Jetzt mein Problem, wenn ich den Cursor im Textfeld1 habe und dann auf Beenden klick, kommt erst die MessageBox vom Textfeld1 und mein Programm wird erst beim zweiten Klick auf Beenden beendet ! Wie kann ich die MessageBox umgehen, wenn ich auf Beenden klicke ?
Danke
tobi