UserForm schließen
22.10.2012 22:07:15
Timo
ich habe ein Problem beim Schließen einer UserForm.
Gedacht ist, wenn die UserForm über das Schließkreuz geschlossen wird, sollen in der Tabelle einige Zellen geleert werden, die Datei gespeichert werden, die UserForm geschlossen werden und eine Meldung angezeigt werden.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Dim lng As Long
lng = LAB_Personal.LAB_Personal_Zeile.Caption
ThisWorkbook.Worksheets("LAB").Cells(lng, 1).Value = ""
Call Datei_speichern
Unload Me
Application.GoTo Worksheets("Startseite").Range("C5")
Call Meldung_Buchung_abgebrochen
End If
End Sub
Leider wird aber die Meldung angezeigt, bevor die UserForm geschlossen ist.
Erst wenn dann die Meldung weggeklickt wird, schließt sich auch die UserForm.
Woran kann das liegen?
Danke schon mal für Eure Hilfe...
Gruß Timo
Anzeige