Speichern unter Dialog mit Hinweisanzeige
28.07.2006 15:20:22
Torge
kann jemand helfen?
Mittels Button rufe ich den Speichern unter Dialog auf. Bei klick auf speichern schließt sich das Dialogfeld und nun möchte ich gern einen Hinweis angezeigt bekommen, der nach Betätigung "Speichern" erscheint und die Zeit des Wartens abkürzt.
Sieht bei mir so aus (aus dem Forum).
Sub commanbutton1_click()
Application.Dialogs(xlDialogSaveAs).Show
'Verweis auf MS Scripting Runtime!
Dim WsShell As Object, _
iRgw As Integer
Set WsShell = CreateObject("WScript.Shell")
iRgw = _
WsShell.popup("Daten werden aktualisiert, bitte warten_
5, "Dezenter Hinweis für " & Application.UserName & ":")
'Die "5" in der letzten Zeile gibt die Öffnungsdauer in Sekunden an.
Set WsShell = Nothing
ThisWorkbook.Close SaveChanges:=True
End Sub
Der Hinweis kommt hier zwar aber leider nicht an der Stelle wo ich ihn haben möchte. Ach wenn ich dass speichern schließen vor der Hinweisausgabe setzte funktioniert es nicht.
Geht dies überhaupt zu realisieren?
Vielen Dank für die Hilfe
Gruß Torge