Script -> userform_terminate funzt überhaupt nich!
21.08.2003 12:01:45
Joachim
ich hänge gerade daran, meinem Usern zu verbieten einfach so abzubrechen. Das Script, das ich entsann, funzt aber überhaupt nich!
Wenn ich nämlich bei der ersten msgbox auf Ok klickem kommt zwar das Userform wieder, aber es lässt sich nicht mehr bearbeiten!
Und wenn ich in der msgbox auf abbrechen klicke geht er nicht zur nächsten msgbox sondern schließt einfach das workbook. Danach stürzt Excel immer ab, egal, was für ein workbook ich öffne.
Keine Ahnung woran das alles liegt, vielleicht findet ihr nen paar schlimme Fehler, oder habt ein paar Belehrende Worte für mich. Hier erstmal das Script:
Private Sub UserForm_Terminate()
Dim abbr
abbr = MsgBox("Wenn Sie abbrechen, werden alle Eintragungen gelöscht! Um die _
Abfrage correct zu beenden klicken sie bitte die Schaltfläche _
'Datenbankeintrag berechnen & speichern'!", vbExclamation + vbOKCancel + _
vbDefaultButton2, "Wirklich abbrechen?")
If abbr = vbOK Then
pdbAbfrageForm.Show
Else
Workbooks("PDBForm.xls").Close SaveChanges:=False
Dim beenden
beenden = MsgBox("Soll Excel auch gleich beendet werden?", vbYesNo + _
vbQuestion + vbDefaultButton2, "Beenden?")
If beenden = vbYes Then
Application.Quit
End If
End If
End Sub
Ich bin über jeden Hinweis sehr dankbar, sonst muss ich nämlich das Feature aus der Form löschen.
Vielen Dank schon mal im Vorraus und schönen Gruß (besonders an den Typen der gestern wissen wollte, wie an dieses Excel auf einen HeimPC startet), Joachim