Exit Problem
25.05.2018 06:26:12
Frank
ich habe in einer UserForm u.a. eine Combobox angelegt. Diese wird beim Initialize angesprochen und gibt Werte einer Liste vor, die in einem Sheet sind.
Zunächst ist aber diese Box leer, weil noch nicht ausgewählt wurde.
Wenn der User nun die Box verlässt ohne eine Auswahl zutreffen, wird er mittels
Private Sub cmbmonat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If frmsim.cmbmonat = "" Then
MsgBox "Feld darf nicht leer bleiben!", vbDefaultButton1
Cancel = True
Exit Sub
End If
in der Combobox gehalten.
Leider kommt die Msgbox aber auch, wenn der User einfach ohne weitere Eingaben die ganze _
Userform verlassen will. Ich habe auf der Userform z.B. einen Button angelegt, der zurück zum Hauptmenü führt:
'7 Zurück zum Hauptmenü
Private Sub combuhauptmenue_Click()
Unload frmsim
Sheets("REGIE").Select
End Sub
Wie kann ich in diesem Fall die Fehlermeldung verhindern? Hat jemand eine Idee?
Habe schon daran gedacht direkt immer den ersten Wert der Liste anzeigen zu lassen, da weis ich aber nicht wie....
Viele Grüße und schönen Start in der Tag.
Frank