Application.Dialogs(xlDialogSaveAs)
23.07.2018 15:02:55
Mars
brauche mal Unterstützung
mit folgendem code kann ich im Dialogfenster den AbbrechenButton abfangen
Beim SpeichernButton passiert nichts, das Fenster bleibt unverändert und nichts wird _
gespeichert. Wie muss der code lauten dass gespeichert wird und das Dialogfenster schliesst ?
Private Sub cb_Anwerst_Click()
zif = Mid(Date, 1, 2) & Mid(Date, 4, 2) & Mid(Date, 7, 4)
nam = "KA" & zif
speich = Application.Dialogs(xlDialogSaveAs).Show(nam)
If speich = False Then Exit Sub
End Sub
Mars
Anzeige