Abfragen in VBA beantworten

Forumthread: Abfragen in VBA beantworten

28.07.2005 13:18:58

matthias

Hallo Forumsmitglieder,
Folgend Meldungen schreibt mein Makrorecorder nicht mit:
(1)"Aktualisierung abgeschlossen" muß mit "OK" beantwortet werden
(2)"Änderungen speichern" muß mit "nein" beantwortet werden
(3) ...die Zwischenablage leeren ... die Daten werden nicht weiter gebraucht
wie sind die Befehle in VBA?
Gruß
Maze

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abfragen in VBA beantworten

28.07.2005 13:30:12

UweD
die Abfrage soll nicht unterdrückt sei

28.07.2005 13:39:38

Matthias
AW: die Abfrage soll nicht unterdrückt sei

28.07.2005 14:34:00

UweD
supero danke dir, det löpt

28.07.2005 16:33:47

Matthias

AW: Abfragen in VBA beantworten

28.07.2005 13:30:12

UweD

Hallo
zeig mal den Code..
je nachdem kann die Meldung kompl. unterdrückt werden...
Gruß UweD
(Rückmeldung wäre schön)

die Abfrage soll nicht unterdrückt sei

28.07.2005 13:39:38

Matthias

Hallo Uwe,
die Abfragen sind schon in Ordnung und müssen bleiben.
Diese muß mit "ok" beantwortet werden,
MsgBox "Aktualisierung abgeschlossen!", vbInformation + vbOKOnly, "Prio-Daten"
die anderen Abfragen 2,3 entstehen beim schließen der anderen Datei.
(2)"Änderungen speichern" muß mit "nein" beantwortet werden
(3) ...die Zwischenablage leeren ... die Daten werden nicht weiter gebraucht
Gruß
Maze

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)

supero danke dir, det löpt

28.07.2005 16:33:47

Matthias

gruß
maze

Beliebteste Forumthreads (12 Monate)

Forumthread: Abfragen in VBA beantworten

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread