Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfragen in VBA beantworten

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
Anzeige
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)
Anzeige
supero danke dir, det löpt
28.07.2005 16:33:47
Matthias
gruß
maze

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige