AW: die Abfrage soll nicht unterdrückt sei
28.07.2005 14:34:00
UweD
Hallo
d.h. der Benutzer soll Ok drücken (solange wartet das Makro)
Wenn nicht OK gedrückt wird soll etwas anderes passieren..
Sub Herber_Maze()
Dim JaNein
JaNein = MsgBox("Aktualisierung abgeschlossen!", vbInformation + vbOKOnly, "Prio-Daten")
If JaNein <> vbOK Then
End If
End Sub
möchtest du nur einen Hinweis geben, der selbst schließt dann geht das so:
Sub MSGBOX_autom()
Dim WsShell, intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Hinweis wird automatisch geschlossen!!!", 5, "Huhu ...")
' Die 5 in der letzten Zeile gibt die Dauer der Öffnung an.
End Sub
die beiden anderen Meldungen bekommst du so weg...
Sub schließen()
On Error GoTo Fehler
Application.DisplayAlerts = False
ActiveWorkbook.Close Savechanges:=False
Fehler:
Application.DisplayAlerts = True
End Sub
Gruß UweD
(Rückmeldung wäre schön)