Speichern unter mit Meldung
13.12.2016 03:44:35
Thomas
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
Anzeige