Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-MsgBox automatisch akzeptieren

Forumthread: VBA-MsgBox automatisch akzeptieren

VBA-MsgBox automatisch akzeptieren
06.03.2018 10:54:10
Lio
Hi ihr lieben,
wie kann ich von Excel-Datei aus festlegen, dass beim Öffnen einer anderen Excel-Datei die MsgBox automatisch akzeptiert wird?
LG,
Lia
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-MsgBox automatisch akzeptieren
06.03.2018 11:10:41
Hajo_Zi
nur durch automatische schließen nach Zeit. 
Option Explicit
Sub MsgZeit()
'   Blendet eine Msgbox nach 10 Sekunden automatisch wieder aus
'   von K.Rola
'   kein Verweis notwendig
Const bytZeit As Byte = 10
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Ich bin in " & bytZeit & " Sekunden verschwunden!" & Space(10), _
bytZeit, "gebe bekannt...", vbOKCancel + vbQuestion)
Set objWSH = Nothing
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
AW: VBA-MsgBox automatisch akzeptieren
06.03.2018 11:14:40
Lio
Danke Hajo,
und das funktioniert für eine MsgBox die aus einer anderen Datei erzeugt wird?
GrußLio
AW: VBA-MsgBox automatisch akzeptieren
06.03.2018 11:30:03
Hajo_Zi
einfach testen. Ich sehe keinen Grund warum das nicht gehen soll.
Gruß Hajo
AW: VBA-MsgBox automatisch akzeptieren
06.03.2018 11:36:23
Lio
habe es probiert, es funktioniert, aber nicht so wie ich meinte. Entschuldige ich habe mich etwas falsch ausgedruckt
Es muss genau hier passieren 
Set wb = Workbooks.Open(fileName:=fileName,.EnableEvents=False)
das EnableEvents ist an der Stelle falsch und ich bin mir auch nicht sicher ob es das ist was ich suche, aber es soll während die Datei geöffnet wird sofort die MsgBox schließen.
Anzeige
AW: VBA-MsgBox automatisch akzeptieren
06.03.2018 11:41:17
Hajo_Zi
es ist also kein Msgbox sondern ein Hinweis von Excel?
Application.DisplayAlerts = False ' Mitteilungen
nicht vergessen wieder einschalten.
Gruß Hajo
AW: VBA-MsgBox automatisch akzeptieren
06.03.2018 13:31:24
Lio
Wenn sich dieses Workbook öffnet, kommt direkt nach 4 sec eine Meldung also eine MsgBox und diese möchte ich verhindern.
Set wb = Workbooks.Open(fileName:=fileName)
Also es ist kein Hinweis von Excel sondern ein Makro was diese MsgBox in der Datei erzeugt.
Lg und danke hajo
Anzeige
AW: VBA-MsgBox automatisch akzeptieren
06.03.2018 14:22:59
Hajo_Zi
Gut, nur wenige schauen auf Deinen Rechner und sehen die Datei und das Makro mit der MSGBOX.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Gruß Hajo
Anzeige
AW: VBA-MsgBox automatisch akzeptieren
06.03.2018 14:38:52
Daniel
Hi
wenns ne echte Messagebox ist, gar nicht, bzw du müsstest die Messagebox in der Datei entsprechend umschreiben.
wenn die geöffnete Datei ein Worbbook_Open-Eventmakro hat, welches die Messagebox startet, so kannst du die Ausführung dieses Eventmakros so verhindern: 
Application.EnableEvents = False
Set WB = Workbooks.Open(...)
Application.EnableEvents = True

Es wird dann aber das komplette Makro nicht ausgeführt!
Gruß Daniel
Anzeige
AW: VBA-MsgBox automatisch akzeptieren
06.03.2018 14:41:02
Lio
Ja genau durch ewiges probieren habe ich es hinbekommen :-D !!!
Danke trotzdem für deine Antwort :_)
;

Forumthreads zu verwandten Themen

VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
Bei Fehler im VBA - Msgbox an User & Mail an mich
Kay

Hallo,
...mal 'ne Frage:
Habe eine Datei mit vielen Makros, Userformen und Datenblätter erstellt. Jetzt Teste ich es grad auf verschiedenen Excel-Versionen (2000, 2003 und 2007) und bekomme hier und da Fehlermeldungen und Debugg-Stellen.
GIbt es eine Möglichkeit, ein "Universal" Co...
02.08.2009 11:10:20
Thread-ID: 1092974
6 Beiträge
VBA MsgBox - Ausgabe verschiedener Werte
Dominic

Hallo zusammen,
ich habe in einer Excel Tabelle 5 Formularsteuerelemente (Kontrollkästchen) eingefügt und diese natürlich auf unterschiedliche Zellbezüge von N1 bis N5 gesetzt.
Je nach Auswahl der Kontrollkästchen / abhaken habe ich in N1 bis N5 natürlich nun ein "Wahr oder Falsch" steh...
22.01.2014 14:09:35
Thread-ID: 1346336
7 Beiträge
VBA - Messagebox - Eingabeformular
Neo

Hallo zusammen,
ich bin gestern in die Tiefen der VBA (mittels Youtube u. Google) erstmals eingestiegen, um die Produktionsdatenerfassung über ein Eingabeformular zu standardisieren.
Soweit prima, nun möchte ich jedoch noch die Fehleranfälligkeit reduzieren.
(hierzu siehe mein Einga...
14.08.2015 13:59:04
Thread-ID: 1442348
3 Beiträge
Anzeige
VBA Msgbox mit 2 Leerzeilen, richtig?
Dieter(Drummer)

Hi VBA Spezialisten,
ist die VBA Schreibweise richtig oder geht es auch kürzer, wenn ich 2 Leerzeilen in der Msgbox haben möchte?
Mein Testmakro, dass (auch) funktioniert:
Sub ZweiLeerzeilen() If MsgBox("Vor 2 Leerzeilen" & vbCrLf & "" & vbCrLf & "Nach 2 Leerzeilen...
10.11.2015 15:51:49
Thread-ID: 1457492
3 Beiträge
VBA MsgBox Ja/Nein funktioniert nicht?!
Bernd

Hallo zusammen,
ich bin begeisterter Leser dieses Forums und konnte hier schon viele Lösungen und hilfreiche Tipps finden. Leider bin ich jetzt an einem Punkt angekommen, zu dem ich hier und über Google keine Erklärung finden konnte.
Ich habe eine Userform, auf der ich mir Pfadangaben a...
27.11.2015 10:17:50
Thread-ID: 1461060
3 Beiträge
VBA Excel mit MSG BOX
ALI

Hallo,
ich habe folgende herausforderung.
Ich habe eine Einsatzplan mit mehreren LKW.
NAME Tag1 Tag2 Tag3 Tag4 Tag5
LKW1 10:00 10:00 11:00 11:00 11:00
LKW2 10:00 10:00 11:00 11:00 11:00
LKW3
Links stehen die LKW´s 1 - 3 in der Spalte.
17.12.2015 11:32:04
Thread-ID: 1464860
12 Beiträge
mittels VBA "msgbox eingabe" eine Zahl suchen
Michel

Hallo liebe Excel Freunde
Ich habe hier eine Routine Aufgabe und möchte diese gerne automatisieren.
vielen Dank vorab für euer Feedback
Hier das File um was es geht:
https://www.herber.de/bbs/user/104662.xlsm
Dies ist ein Auszug aus dem SAP und kann je nach dem von der Date...
30.03.2016 15:53:48
Thread-ID: 1484875
4 Beiträge
VBA MSG Box vor Ausführen
Andi

Hallo Excel-Experten,
kleines Problem- große Wirkung!
Bei meinen Moderaten VBA Anfängerkenntnissen benötige ich Hilfe.
Bin auf der Suche nach einer VBA Funktion, die mir in meiner Zeile, wo ich mich befinde, eine Zelle, (es ist immer die "Zelle B") erst Abfragt, ob dort ein Text ein...
16.10.2016 12:14:18
Thread-ID: 1519897
6 Beiträge
Anzeige
VBA MSG Box Pflichtfelder
Matthias

Hallo Forum,
ich habe hier eine Sache und zwar haben wir Service reports, die die Kollegen nur rudimentär pflegen. Beispielsweise werden Zeiten vergessen oder die Lohnart weg gelassen etc. Wir laden die Daten in unsere Zeitwirtschaft und da kommen die Probleme dann hoch. Ich möchte nun ein...
11.11.2016 12:55:13
Thread-ID: 1524252
7 Beiträge
Mit Vba bei bestimmtem Text eine Msg Box zeigen
Nils

Hallo,
ich würde gerne bei mit einem Makro hinbekommen, dass wenn ich ein eine Zelle eine Straße mit Hausnummer eingebe, beispielsweise Hauptstraße 1, soll eine Msg Box erscheinen, das Problem ist das wenn beispielsweise Hauptstraße 113 eingegeben wird, kommt die Msg Box nicht.
Wie krie...
09.02.2017 13:39:25
Thread-ID: 1540468
5 Beiträge
Über VBA mittels msgbox ein Verzeichnis zuweisen
Marcus

Hallo zusammen,
ich habe ein Access-Datenbank mit einem Makro mit deren Hilfe ich viele xls.Dateien aus einem festen Verzeichnis einlade: Public Sub MehrereDateienImportierenV1() 'geteset AC97, AC2000 ' es werden mehrere GLEICHARTIGE Importdateien nacheinander verknüpft und an ' eine Hauptt...
11.04.2017 12:52:53
Thread-ID: 1552297
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige