Button zum speichern unter, schließen und öffnen
18.08.2018 21:03:19
Theo
habe folgendes Problem:
Ich möchte eine unausgefüllte Vorlage nach dem Befüllen mittels Klick auf einen Button:
1) Speichern unter, mit anderem Dateinamen
2) Arbeitsmappe schließen
3) Die unausgefüllte Vorlage wieder öffnen
Speichern unter funktioniert, Arbeitsmappe schließen funktioniert, die unausgefüllte Vorlage wieder öffnen funktioniert.
Was aber passiert ist, dass es zusätzlich zur unausgefüllten Vorlage auch die andere, ausgefüllte Datei öffnet. Das möchte ich aber verhindern. Wo könnte das Problem liegen?
Hier meine Codes
Private Sub CommandButton1_Click()
Dim strDateiname As String
Dim strAntwort As String
strDateiname = "RE " & Range("C10").Value & " " & Range("C11").Value & ".XLSM"
ActiveWorkbook.SaveAs ("H:\Infos\Test\" & strDateiname)
Application.OnTime Now + TimeValue("00:00:03"), "Start"
ActiveWorkbook.Close
End Sub
Und das Modul
Sub Start()
Workbooks.Open Filename:="H:\Infos\Test\Vorlage1.xlsm"
End Sub
Vielen Dank für Eure Hilfe