VBA _pivate_sub save as
Volker
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateiname = dem Wert in Zelle K48 entpricht, wenn ja normal speichern, ansonsten den Dialog.
Hintergrund, das Makro machte sich in der Art erforderlich, weil die Urpsrungsdatein eine Vorlage ist. Und in Vorlagen funktionieren "normale" Speichern unter Makros nicht
----------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo Fehler
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show ([K48])
Cancel = True
Fehler:
Application.EnableEvents = True
End Sub
---------------