Msgbox

Hallo Excel Profis,
Ich habe folgendes Problem:
Beim Ersten öffnen einer Datei in einem neuen Monat wird eine erste MsgBox angezeigt die mit OK bestätigt oder mit Cancel abgebrochen wird.
Nach bestätigen mit OK wird ein Sheet aktiviert und eine zweite MsgBox erscheint, die nach 3 Sek. ausgeblendet werden soll.
Das funktioniert soweit alles super, bis auf das ausblenden nach 3 Sek. Man muss die zweite MsgBox mit OK bestätigen damit sie ausgeblendet wird.
Wurde aber bei öffnen der Datei die erste MsgBox mit Cancel abgebrochen, und das Sheet manuell aktiviert, erscheint die zweite MsgBox und wird nach 3 Sek. ausgeblendet.
Habe schon rumgebastelt und nach Lösungen gesucht, kann aber nichts finden. Habe keine Ahnung wo das Problem liegt.
Wäre toll wenn jemand eine Idee hätte.
Gruß Benny

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Msgbox

14.04.2022 12:13:58

Mullit

AW: Msgbox

14.04.2022 12:41:51

Benny

AW: Msgbox

14.04.2022 13:11:03

Mullit

AW: Msgbox

14.04.2022 17:42:49

Benny

AW: Msgbox

14.04.2022 23:45:14

volti

AW: Msgbox

15.04.2022 13:07:42

Benny

AW: Msgbox

15.04.2022 15:40:19

Benny

AW: Msgbox

14.04.2022 12:14:51

GerdL

AW: Msgbox

15.04.2022 15:44:21

snb


Private Sub Workbook_Open()
'Beim ersten öffnen im Monat öffnet Sheets("1"), sonst Sheets("2")
If Month(Sheets("3").Cells(1, 5))  Month(Sheets("2").Cells(1, 1)) Then
Sheets("1").Activate
If MsgBox("Die Datei wurde das Erste Mal im neuen Monat geöffnet." & Chr(10) & _
"Bitte Sheets(2) mit OK Automatisch aktivieren," & Chr(10) & _
"um letzte Eingaben für den Vormonat zu tätigen." & Chr(10) & _
"Bei Abbrechen, das Sheets(2), bitte Manuell auswählen." _
, vbExclamation + vbOKCancel) = vbOK Then
Sheets("2").Activate
Else
Exit Sub
End If
End If
Sheets("2").Activate
VBA im Sheet 2
Dim f, i, j, y As Integer
j = 3
y = 2021
For f = 1 To 13
If y = Sheets("3").Cells(15, 5).Value Then
For i = 1 To 12
If Sheets("3").Cells(j, 5).Value = Sheets("3").Cells(2, 5).Value Then
MsgZeit
End If
j = j + 1
Next i
End If
y = y + 1
Next f
Modul 2
Sub MsgZeit()
Const bytZeit As Byte = 3
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("!!! Bitte noch die Daten für den Vormonat eingeben wenn nötig !!!" _
& Chr(10) & "Beim aktivieren von Sheet (3) werden die Monatsdaten" _
& Chr(10) & "sowie im Januar die Jahresdaten gespeichert.", _
bytZeit, "Diese Nachricht wird in " & bytZeit & " Sekunden gelöscht", vbExclamation)
Set objWSH = Nothing
End Sub

Benny

Code: Private Declare PtrSafe Function MessageBoxTimeoutA Lib "user32" ( _ ByVal hwnd As LongPtr, _ ByVal lpText As String, ByVal lpCation As String, _ ByVal uType As Long, ByVal wLanguageId As Integer, _ ByVal dwMiliseconds As Long) As Long Sub test() Dim intMsg As Long, bytzeit As Long bytzeit = 3000 intMsg = MessageBoxTimeoutA(Application.hwnd, _ "!!! Bitte noch die Daten für den Vormonat eingeben wenn nötig !!!" _ & Chr(10) & "Beim aktivieren von Sheet (3) werden die Monatsdaten" _ & Chr(10) & "sowie im Januar die Jahresdaten gespeichert.", _ "Diese Nachricht wird in " & bytzeit & " Sekunden gelöscht", _ vbExclamation, 0, bytzeit) End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Msgbox

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread