Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1440to1444
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1440to1444
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA MsgBox aufrufen, automatisch schließen

VBA MsgBox aufrufen, automatisch schließen
07.08.2015 07:11:03
Anton
Hallo.
bastle gerade mit VBA eine Berechnung, die bei bestimmtem Ergebnis eine MsgBox einblendet , calculate, ganze Prozedur sieht so aus:

Private Sub worksheet_Calculate()
If Range("B6").Value > 32 Then
msgbox "Bezugszeit" & vbCrLf & "ist zu groß!", vbOKOnly, "HOPPLA"
End If
End Sub

---
Nun habe ich gesehen, dass man diese Box auch timergesteuert nach ein paar Sekunden automatisch ausblenden kann statt mit Klick auf Ok. Wie baue ich das hier mit ein?
Danke f.d Hilfe.
Anton

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA MsgBox aufrufen, automatisch schließen
07.08.2015 07:37:31
Nepumuk
Hallo,
teste mal:
Private Sub worksheet_Calculate()
    Dim objShell As Object
    If Range("B6").Value > 32 Then
        Set objShell = CreateObject("WScript.Shell")
        Call objShell.Popup("Bezugszeit" & vbCrLf & "ist zu groß!", 2, "HOPPLA", vbOKOnly)
        Set objShell = Nothing
    End If
End Sub


Gruß
Nepumuk

Anzeige
AW: VBA MsgBox aufrufen, automatisch schließen
07.08.2015 10:27:26
Anton
Hallo Nepumuk,
spitze, das klappt!
Danke

WsShell.Popup ...
07.08.2015 07:39:15
Matthias
Hallo
Dim Ibox, WsShell
If Range("B6").Value > 32 Then
'Verweis auf "Microsoft Scripting Runtime" erforderlich
Set WsShell = CreateObject("WScript.Shell")
Ibox = WsShell.Popup("Bezugszeit ist zu groß!", 3, "3 Sek Fenster")
End If

Gruß Matthias

AW: WsShell.Popup ...
07.08.2015 07:46:30
Luschi
Hallo Matthias,
diese Info: 

'Verweis auf "Microsoft Scripting Runtime" erforderlich
ist falsch, da
Set WsShell = CreateObject("WScript.Shell")
ein 'Late Binding' ist und keinen expliziten Verweis erfordert.
Gruß von Luschi
aus klein-Paris

Anzeige
Info entfernt ...
07.08.2015 08:07:56
Matthias
Hallo Luschi
Habs gerade mal geprüft und Du hast Recht,
Der Verweis ist auch bei mir nicht gesetzt und es funktioniert.
Evtl war es ja früher mal notwendig, stammt noch aus der Zeit um XL2000
Danke. Hab die Info aus meiner Personl.xls entfernt.
Gruß Matthias

AW: WsShell.Popup ...
07.08.2015 10:30:51
Anton
Sieht gut aus, aber
er markiert B6 und meldet "Fehler beim Kompilieren außerhalb einer Prozedur ungültig".

AW: WsShell.Popup ...
07.08.2015 10:53:41
Daniel
Hi
die meisten zeigen hier nur den relevanten Ausschnitt des Codes und lassen gerne mal die Selbstverständlichkeiten wie die Start- und Endzeile des Makros weg.
Auch deswegen weil man davon ausgehen kann, dass du den gezeigten Code ja so nicht alleine als Makro einsetzen willst, sondern in ein grösseres Projekt einfügst.
dh. du musst hier die Start- und Endzeile des Makros selber schreiben und den gezeigten Code dazwischen einfügen:
Sub Test()
... hier dann der Code
End Sub

Anzeige
AW: WsShell.Popup ...
07.08.2015 17:56:58
Anton
Sorry, bin halt doch noch blutiger Anfänger bei VBA.
Nun habe ich es so gemacht 
Sub test()
Dim Ibox, WsShell
If Range("B6").Value > 32 Then
'Verweis auf "Microsoft Scripting Runtime" erforderlich
Set WsShell = CreateObject("WScript.Shell")
Ibox = WsShell.Popup("Bezugszeit ist zu groß!", 3, "3 Sek Fenster")
End If
End Sub
Ergebnis: keines, auch keien fehler. Hängt es damit zusammen, dass es nun ein Infobox ist?
Anton

ist denn B6 > 32 ? ...kwT
07.08.2015 20:47:31
Matthias
.

AW: ist denn B6 > 32 ? ...kwT
08.08.2015 17:29:32
Anton
Hallo, auch wenn B6 den Wert von 32 überschreitet, erscheint keine infoBox.
Ehrlich

Anzeige
Funkt doch, siehe Datei...
08.08.2015 17:40:24
robert

Die Datei https://www.herber.de/bbs/user/99427.xlsm wurde aus Datenschutzgründen gelöscht


AW: Funkt doch, siehe Datei...
08.08.2015 18:49:46
Anton
Danke Robert, danke Matthias.
Ja mit direkter Eingabe in B6 klappt das.
Hatte aber eingangs erwähnt, dass dieser Wert in B6 keine Eingabe ist, sondern ein Berechnungsergebnis von drei anderen Zellen. Deshalb auch der erste Ansatz mit sub calculate().
Evtl.liegt da unser Missverständnis ?
Trotzdem danke im Voraus.
Anton

AW: Funkt doch, siehe Datei,mit Formel B6...
08.08.2015 21:51:55
Anton
Alles klar, super danke
Anton

10 Forumthreads zu ähnlichen Themen

msgbox für 3 sekunden, dann automatisch schließen
k

Hallo,
...kann man eine MSGbox 3 Sekunden stehen lassen (Warnung) und dann automatisch schließen ?
Wenn ja wie ?
Gruß und Danke
Kay
14.08.2009 14:47:19
Thread-ID: 1096002
8 Beiträge
Anzeige
MsgBox automatisch schließen
Julian

Hallo zusammen,
ich habe folgendes Problem:
Ich hab eine Messagebox programmiert, welche erscheint wenn ein Wert in Spalte J negativ wird (Daten werden aus anderem Programm ständig aktualisiert).
Um dieses Makro ständig laufen zulassen, habe ich eine ApplicationOnTime hinzugefügt,...
25.04.2016 15:10:47
Thread-ID: 1490162
16 Beiträge
VBA MsgBox schließen
Steffen

Hi zusammen,
eine kurze Frage.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("M3")) Is Nothing Then Call Ablauf ElseIf Not Intersect(Target, Range("A1:J50")) Is Nothing Then Call Prio End If End Sub
Sub Prio() Range("i3") = "hoch" MsgBox ("Acht...
23.02.2018 08:57:14
Thread-ID: 1610677
10 Beiträge
Anzeige
MS Msgbox automatisch im Makro schliesen
mika
Hallo zusammen,
ich habe ein Makro, dass ein Tabellenblatt löscht.
Dabei kommt immer die Sicherheitsabfrage (Msbbox) "Wollen sie wirklich löschen?" mit den buttons "Löschen"und "Abbrechen"
Wie kann ich diese Box innerhalb des Makros automatisch beantworten?

Danke für eure hilfe,
05.11.2003 23:05:28
Thread-ID: 333876
3 Beiträge
msgbox automatisch schließen
Kay

Hallo zusammen,
ich habe ein Problem beim automatischen öffnen von Dateien und hoffe mir kann hier jemand helfen.
Ich habe eine Datei, in die aus diversen anderen Dateien, Daten kopiert werden sollen. Das klappt auch alles soweit, jedoch erscheinen bei einigen Dateien beim durchlaufen d...
27.11.2020 16:34:26
Thread-ID: 1795950
4 Beiträge
MsgBox automatisch schließen
Herbert_Grom

Hallo,
bisher habe ich mit dem folgenden Code eine MsgBox automatisch nach x Sek geschlossen. Jetzt funzt es bei mir nicht mehr.
Habt ihr eine Idee, warum?
Vielen Dank im Voraus.
Servus
Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Popup "Bitte nur di...
04.04.2021 11:03:14
Thread-ID: 1824025
3 Beiträge
VBA zum automatischem Schließen
Lara
Guten Morgen,
wir haben das Problem, dass User immer wieder Dateien nicht schließen und im schlimmsten Fall bis zum nächsten Morgen geöffnet lassen.
Dieses Problem habe ich schon lösen können, die Datei schließt sich jetzt nach 15 Minuten Inaktivität automatisch.
Dazu ist unter "Diese A...
25.03.2022 07:14:34
Thread-ID: 1876780
2 Beiträge
Outlook VBA - Mailanzeige in MsgBox
Steffen
Hallo zusammen,
nicht direkt Excel, aber ich hoffe hier trotzdem Hilffe zu bekommen.
Ich habe ein Makro, welches markierte Outlook-Mails in einem bestimmten Format auf der Festplatte speichert. Nun können Dateipfade mit mehr als 260 Zeichen so nicht abgelegt werden, da der Explorer diese Gr...
23.09.2022 19:34:04
Thread-ID: 1900228
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
15
9
9
2
3
2
1
3