Msgbox über rotes X schließen
16.04.2018 08:13:53
Nati
folgendes Problem: wie schaffe ich es eine Msgbox über das rote X zu schließen, sodass der restliche Code danach nicht mehr ausgeführt wird ? (momentan läuft der restliche Code trotzdem:
mein Code, der leider nicht so funktioniert...:
answer = MsgBox("Please select the file of the SWAT Data Extract", vbOKOnly + vbInformation, _
"File selection.")
Select Case answer
Case -1 'Gesichert Format(Date(),"DD.MM.YYYY")
Exit Sub
Case 0 'Abgebrochen
Exit Sub
End Select
Gruß Nati