title image


Smiley Jetzt bin ich wohl zu spät dran...
Hallo,



Aber da ich mir die Arbeit gemacht habe wollte ich es jetzt auch posten. Habe dafür auch Erklärungen mit eingebracht :-)



Sub SpecialMsgbox()

'Verweis auf WSH Object Model setzen

'Syntax: WshShell.Popup strMessage [,intSecondsToWait] [,strTitle] [,intType]



'ButtonTypen:

'0 = OK

'1 = OK , Cancel

'2 = Abort , Ignore, Retry

'3 = Yes , No, Cancel

'4 = Yes , No

'5 = Retry , Cancel



'IconTypen:

'16 = Critical

'32 = Question

'48 = Exclamation

'64 = Information



'RückgabeWerte:

'1 = OK

'2 = Cancel

'3 = Abort

'4 = Retry

'5 = Ignore

'6 = Yes

'7 = No

'-1 = None, message box was dismissed automatically (timeout)



Dim WshShell

Dim intBack As Integer

Set WshShell = CreateObject("WScript.Shell")



Select Case (intBack = WshShell.Popup("Möchten Sie jetzt speichern?", 3, "Speicherabfrage", 4 + 32))

Case 6

Application.DisplayAlerts = False

ActiveWorkbook.Save

Application.DisplayAlerts = True

Case 7

'...

Case -1

'...z.b. das ganze in 10min wieder starten

End Select



End Sub





Der Zugvogel
Der Zugvogel
(mIsCHa Reichelt)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: