ich möchte, dass sich eine MessageBox nach einer bestimmten Anzahl an Sekunden selbstständig wieder schließt. Die MsgBox wird aufgerufen, wenn die letzte Zeile eines textdokuments leer ist.
Wenn ich meinen Code in Einzelschritten durchlaufe funktioniert dies auch. Sobald ich das Programm jedoch laufen lasse schließt sich das Meldungsfenster nicht mehr selbstständig sonder nur noch über den OK-Button.
Weiß jemand woran dies liegen könnte?
Mein Code sieht folgendermaßen aus:
Sub VerbundenUeber()
Dim Meldung As Object
Set Meldung = CreateObject("WScript.Shell")
Verbindungsart = USB
Call StatusVectorBox
Call UpdateMeldungen
If letzteZeileWert = Empty Then 'letzteZeile = leer
Meldung.Popup "verbunden über USB", 3, "Verbunden über ...", 64
Set Meldung = Nothing
Else 'wenn nicht, Verbindungsart IP1 überprüfen
Verbindungsart = IP1
Call StatusVectorBox
Call UpdateMeldungen
If letzteZeileWert = Empty Then
Meldung.Popup "verbunden über IP: " & IP1, 3, "Verbunden über ...", 64
Set Meldung = Nothing
End If
End If
End Sub