21.05.2019, 12:50
Guten Tag zusammen,
ich habe folgenden Code welcher beim speichern der Datei abgefragt wird. Nun ist das Ziel von mir, dass das "normale" speichern nicht funktioniert, aber dafür nur "speichern unter", wie bei einer Excel Vorlage. Ich nehme keine Vorlage weil ich andauernd Ändernungen an dem "Dummy" vornehmen muss.
Für "speichern unter" nutze ich folgenden Code, der auch die Datei und das wichtigste Tabellenblatt umbennent.
Mein Ziel ist es, dass in der Msgbox sozusagen per VBA "ok" gedrückt wird. Also das wenn ich das Makro zum speichern unter nutze, dass die msgbox erst gar nicht erscheint und er direkt "speichern unter" ausführt. Meine Idee war wenn die msgbox eingeblendet wird, über sendkeys Enter zu "senden", dies klappt allerdings nicht wirklich.
Hat jemand eine Idee?
ich habe folgenden Code welcher beim speichern der Datei abgefragt wird. Nun ist das Ziel von mir, dass das "normale" speichern nicht funktioniert, aber dafür nur "speichern unter", wie bei einer Excel Vorlage. Ich nehme keine Vorlage weil ich andauernd Ändernungen an dem "Dummy" vornehmen muss.
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Antwort = MsgBox("Soll der Dummy wirklich gespeichert werden? Hinweis: Falls der Prozess normal durchlaufen wurden bitte JA drücken", vbYesNo)
If Antwort = vbYes Then
MsgBox ("Der Dummy wurde neu gespeichert")
End If
If Antwort = vbNo Then
MsgBox ("Dummy wurde NICHT gespeichert!")
Cancel = True
End If
End Sub
Code:
Private Sub CommandButton1_Click()
Dim dateiname As String
Dim tabellenblattname As String
Sheets("Master").Shapes("CommandButton1").Delete
Sheets("Master").OLEObjects("CommandButton2").Object.Enabled = True
dateiname = TextBox2.Text
tabellenblattname = TextBox1.Text
Sheets("Master").Name = tabellenblattname
ActiveWorkbook.SaveAs Filename:="\\C\XXX\XXXXX\" & dateiname
Unload UserForm1
End Sub
Code:
SendKeys "{ENTER}"
Hat jemand eine Idee?