Thema Datum  Von Nutzer Rating
Antwort
Rot per Button in "Speichern unter" in vorbestimmtem Ordner
 14.06.2023 12:01:02 J.J.
NotSolved
14.06.2023 12:41:19 Mase
NotSolved

Ansicht des Beitrags:
Von:
J.J.		 Datum:
14.06.2023 12:01:02		 Views:
956		 Rating:
     
Antwort:
  Ja
Thema:
per Button in "Speichern unter" in vorbestimmtem Ordner

Hallo zusammen,

ich möchte per Klick auf einen Button die Arbeitsmappe in einem bestimmten Ornderpfad speichern. Ich habe es bisher geschafft, per Klick auf Button "Speichern unter" zu öffnen. Ich muss allerdings noch den Ordnerpfad unterkriegen, sodass sich "Speichern unter" direkt im richtigen Ordner öffnet. Wie kriege ich den Ordnerpfad mitrein? Welches Format muss der Ordnerpfad haben? Mein Code sieht bisher wie folgt aus:

 

Sub Speichern_Unter()
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Dim Pfad As String
Pfad = "" 'ActiveWorkbook.Path & "\"                        '?
Datname = Range("B1") & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot per Button in "Speichern unter" in vorbestimmtem Ordner
 14.06.2023 12:01:02 J.J.
NotSolved
14.06.2023 12:41:19 Mase
NotSolved