vbYes vbNo
28.01.2015 09:23:37
Knoof
Ich habe ein Excel Sheet auf dem sich verschiedene Pflichtfelder befinden, sobald ein pflichtfeld nicht gefüllt ist und der User die Datei schließen möchte, taucht eine Meldung auf welche mit Ja oder Nein angeklickt werdne kann.
Drückt er auf Ja soll sich die Datei Schließen ohne zu speichern, wenn der User auf Nein klickt soll er auf dem Sheet bleiben und die Meldung soll verschwinden.
Ich probiere schon ewig rum aber komme nicht zu einer Lösung. Hie rmein bisheriger Code.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To 12
If pflichtfelder2(i) = "" Then
Range(cells2(i)).Select
If MsgBox("Es sind noch nicht alle Pflichtfelder auf dem Blatt _
xxx' gefüllt!" & vbCr & "Möchten Sie den Vorgang ungesichert Beenden?", vbYesNo, "Warnung") = vbYes Then
Application.DisplayAlerts = False
Application.Quit
Else
GoTo Start
Exit Sub
End If
End If
Next
If pflichtfelder2(13) = "" And pflichtfelder2(14) = "" Then
Range(cells2(13)).Select
MsgBox "Bitte tragen Sie eine Belegnummer für 'xx' oder 'xx' _
ein.", vbOKOnly, "Warnung"
Cancel = True
End If
End If
End Sub
Anzeige