Problem mit Userform
29.11.2020 07:35:54
Peter
ich habe ein Problem mit dem Beenden einer Userform und Öffnen einer anderen Userform.
Die Userform "UF_Buchungen2" ist geöffnet. Wenn ich den CmdButton6 drücke, öffne ich die Userform "UF_Buchungen_Konto_beenden".
'Formular Konto beenden öffnen
Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
Unload UF_Buchungen2
UF_Buchungen_Konto_beenden.Show
Application.ScreenUpdating = True
End Sub
'Ende - Konto beenden
'zurück zu Buchungen
Private Sub CommandButton5_Click()
If Label5.Caption = "" Then
Unload UF_Buchungen_Konto_beenden
UF_Buchungen2.Show
ElseIf Label5.Caption = "Wurde das Konto versehentlich gelöscht, dann kann dies nur jetzt rü _
ckgängig gemacht werden!" Then
If MsgBox("Soll Konto wirklich beendet bleiben?", vbYesNo) = vbYes Then
MsgBox "ja, Beendung bleibt bestehen" & vbLf & "zurück zu Buchungen"
Unload UF_Buchungen_Konto_beenden
UF_Buchungen2.Show
Else
MsgBox "nein, Beendung soll aufgehoben werden" & vbLf & "bitte entsprechende _
Auswahl treffen!"
End If
ElseIf Label5.Caption = "Beendung des Kontos aufgehoben" Then
Unload UF_Buchungen_Konto_beenden
UF_Buchungen2.Show
End If
End Sub
Wenn ich die UF_Buchungen_Konto_beenden öffne bevor ich UF_Buchungen2 geöffnet habe und dann den CmdBtn 5 drücke, öffnet sich die UF_Buchungen2.
Wenn ich jedoch zuerst die UF_Buchungen2 öffne und mittels CmdBtn6 die UF_Buchungen_Konto_beenden öffne und jetzt den CmdBtn5 drücke, wird die UF_Buchungen nicht geöffnet.
Könnt ihr mir bitte helfen. Leider kann ich die Orginaldatei nicht übermitteln, da zu Umfangreich. In einer Testumgebung geht das Ganze einwandfrei. Im Orginal jedoch nicht.
Gruss
Peter