"speichern unter" Code klappt nicht 100%
11.10.2018 11:30:31
Dennis
kurze Frage:
Ich habe mir folgenden Code gebaut um in einer Excel Mappe das Speichern nur unter gewissen umständen und mit vorgegebenen Namen zu erlauben:
(Mindestanzahl von Bildern)
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Dateiname As String
Dateiname = Format(Date, "yyyy_mm_dd") & "_KBW_" & Range("F20") & "_" & Range("F6")
If ActiveSheet.Pictures.Count > 6 Then
Application.Dialogs(xlDialogSaveAs).Show (Dateiname)
Else
MsgBox "Bitte alle geforderten Bilder einfügen!"
End If
End Sub
Klappt soweit auch alles ganz gut, solang ich nicht "speichern unter" benutze.
Klicke ich auf das Speichern Symbol kommt die Fehlermeldung und alles ist in Ordnung.
Klicke ich auf "speichern unter" kommt auch die Meldung, allerdings direkt danach der Speichern Dialog, wo ich Name und Ort wählen/ändern kann.
Kann mir jemand sagen wie ich meinen Code umbauen muss um dieses Fenster zu "unterdrücken"?
Vielen Dank.
MfG
Dennis