Thema Datum  Von Nutzer Rating
Antwort
17.02.2020 13:56:27 Christian
NotSolved
17.02.2020 14:40:30 Christian
NotSolved
Rot  Application.GetSaveAsFilename
 17.02.2020 14:49:43 Mase
NotSolved
18.02.2020 09:06:27 Christian
NotSolved
18.02.2020 09:21:56 Mase
NotSolved
18.02.2020 10:03:23 Alex
NotSolved
03.03.2020 16:06:29 Christian
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
17.02.2020 14:49:43		 Views:
1127		 Rating:
     
Antwort:
  Ja
Thema:
Application.GetSaveAsFilename

Mahlzeit,

 

jetzt wo Du den Namen hast, musst Du nurnoch prüfen ob gespeichert werden soll:

Sub SpeichernA()
    Dim sInitialname As String
    '
    sInitialname = "T:\Test\" & Format(Date, "YYYY-MM-DD")
    '
    sInitialname = Application.GetSaveAsFilename( _
                                                InitialFileName:=sInitialname, _
                                                FileFilter:="Excel-Dateien (*.xlsx), *.xlsx", _
                                                FilterIndex:=1, _
                                                Title:="Titel")
                                        
    If sInitialname <> "Falsch" Then
        'Wenn nicht auf abbrechen geklickt wurde, dann speichern
        Call ThisWorkbook.SaveAs( _
                                Filename:=sInitialname, _
                                FileFormat:=xlWorkbookDefault)
    
    End If
                                        
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.02.2020 13:56:27 Christian
NotSolved
17.02.2020 14:40:30 Christian
NotSolved
Rot  Application.GetSaveAsFilename
 17.02.2020 14:49:43 Mase
NotSolved
18.02.2020 09:06:27 Christian
NotSolved
18.02.2020 09:21:56 Mase
NotSolved
18.02.2020 10:03:23 Alex
NotSolved
03.03.2020 16:06:29 Christian
NotSolved