Speichern unter mit Meldung

Forumthread: Speichern unter mit Meldung
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Speichern unter mit Meldung

13.12.2016 04:44:35

Thomas

Hallo
Ich habe ein Button mit speichern unter und Excel schließen.
Dies funktioniert auch prima.
Wie muss ich meinen Code erweitern, wenn ein Meldefenster für 10Sec erscheint mit folgendem Text "Daten wurden auf dem Laufwerk erfolgreich gespeichert".
Alternativ auch mit "Ok" Button. Wobei mir lieber die 10sec Variante gefällt.
hier der Code:

Private Sub Ölblattspeichern_Click()
Dim a As String
a = Range("Tabelle2!C3").Value
b = Range("Tabelle2!C28").Value
ChDir "X:\Groups\EASZ-FR17\Oelblätter"
ActiveWorkbook.SaveAs Filename:= _
"X:\Groups\EASZ-FR17\Oelblätter\" + a + "_" + b, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.Quit
End Sub

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hier Beispiel ...

13.12.2016 09:56:24

Dieter(Drummer)

AW: Hier Beispiel ...

13.12.2016 09:56:24

Dieter(Drummer)

Hallo Thomas,
hier ein Bespielcode von P@ulchen (Herber Forum):


Sub MsgBox_3Sekunden()
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 3, " _
Automatisch...")
End Sub

Wenn du 10 Sekunden haben möchtest, einfach die 3 durch 10 ersetzen. Diesen Code kannst du ja mit Call MsgBox ... in dein Makro einbauen und entsprechenden Text noch ändern.
Gruß, Dieter(Drummer)