Thema Datum  Von Nutzer Rating
Antwort
01.02.2020 13:59:41 Alex G
NotSolved
01.02.2020 14:02:36 Gast2580
NotSolved
01.02.2020 15:41:59 Gast71083
NotSolved
Blau Speichern unter als xls
 01.02.2020 19:48:56 Gast78965
NotSolved
02.02.2020 09:50:34 Gast59127
NotSolved
02.02.2020 12:40:30 Werner
NotSolved
02.02.2020 19:29:31 Gast61141
NotSolved
02.02.2020 19:20:33 Werner
NotSolved

Ansicht des Beitrags:
Von:
Gast78965		 Datum:
01.02.2020 19:48:56		 Views:
651		 Rating:
     
Antwort:
  Ja
Thema:
Speichern unter als xls		 
Dim sFileName As String
sFileName = Application.GetSaveAsFilename("D:\Daten\" & Format(Now, "yyyymmdd"), "Microsoft Excel-Arbeitsmappe (*.xls),*.xls")
If Not sFileName = "Falsch" Then ThisWorkbook.SaveCopyAs sFileName

 

"D:\Daten\ ... -> In diese Verzeichnis würde er speichern, wenn es verfügbar ist... wenn nicht, bekommst Du eins vorgeschlagen

Format(Now, "yyyymmdd") -> hier schlägt er Dir den Dateinamen vor....als Vorgabe (Now) verwendet er das Datum und formatiert als jahrMonatTag

If Not sFileName = "Falsch" Then ThisWorkbook.SaveCopyAs sFileName -> wenn der Benutzer aus abbrechen geklickt hat, wird FALSCH zurückgeliefert...es wird geprüft ob NICHt abbrechen geklickt wurde und speichert dann dann entsprechend....


Du kannst also D:\Daten\ vernachlässigen... noch besser isses, wenn Du hier eine vorgabe machen kannst...

 

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
01.02.2020 13:59:41 Alex G
NotSolved
01.02.2020 14:02:36 Gast2580
NotSolved
01.02.2020 15:41:59 Gast71083
NotSolved
Blau Speichern unter als xls
 01.02.2020 19:48:56 Gast78965
NotSolved
02.02.2020 09:50:34 Gast59127
NotSolved
02.02.2020 12:40:30 Werner
NotSolved
02.02.2020 19:29:31 Gast61141
NotSolved
02.02.2020 19:20:33 Werner
NotSolved