VBA Fehler nach Speichern Befehl
13.04.2020 18:00:46
Christian
ich bin bei meiner Datei gerade auf einen Fehler gestoßen, den ich nicht allein bewältigen kann und wo ich bitte nochmal Eure Hilfe benötige.
Wenn auf den Button Speichern gedrückt wird, bezieht es den Namen aus Zelle AB11. Führt man das Speichern normal durch, ist alles ok. Drückt man allerdings auf Speichern und es kommt die Meldung "Name bereits vorhanden" "Datei ersetzen" und man geht da auf Nein oder Abbruch, kommt die Fehlermeldung: Laufzeitfehler 1004 "Die Methode SaveAS für das Objekt_Workbook ist fehlgeschlagen"
Die Datei lade ich mal hoch, dann kann man es sicher besser nachvollziehen. Ich bin über Euere Hilfe sehr dankbar.
https://www.herber.de/bbs/user/136679.xlsm
Liebe Grüße Christian
Private Sub CommandButton4_click()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\\" 'Verzeichnis-Vorschlag
Datei = Range("AB11") & ".xlsm" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy False Then ActiveWorkbook.SaveAs SaveDummy 'Es wurde im Dialog auf Speichern _
gedrückt
If MsgBox("Programm beenden?", vbQuestion Or vbYesNo, "LV Kopier-Mietservice GmbH") = vbYes _
Then
If Workbooks.Count > 1 Then
ThisWorkbook.Close False
Else
ThisWorkbook.Saved = True
Application.Quit
End If
End If
End Sub
Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel Dateien (*.xlsm),*.xlsm*", FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function