Fehler bei Speichern Unter - Makro
26.06.2017 11:50:47
Tim
ich habe die letzten Wochen immer einen Code genutzt um ein schreibgeschütztes Excel-File zu speichern, welches auch immer funktionierte. Seit heute erhalte ich folgende Fehlermeldung:
Exception has been thrown by the target of an invocation.
Was hat es damit auf sich?
Macro:
Sub Speichern_unter()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Sheets("Claims Report").Select
Verzeichnis = "L:\Testordner\" 'Verzeichnis-Vorschlag
Datei = Format(Date, "yyyy_mm_dd_") & Range("B11") & ".xlsm" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy False Then ActiveWorkbook.SaveAs SaveDummy 'Es wurde im Dialog auf Speichern _
_
gedrückt
Sheets("Startseite").Select
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
Tim
Anzeige