Thema Datum  Von Nutzer Rating
Antwort
Rot Angebot/Rechnung, selbstständig den richtigen Speicherpfad wählen
 10.08.2017 10:54:41 DeN
NotSolved
10.08.2017 12:00:50 Gast39450
NotSolved

Ansicht des Beitrags:
Von:
DeN		 Datum:
10.08.2017 10:54:41		 Views:
1129		 Rating:
     
Antwort:
  Ja
Thema:
Angebot/Rechnung, selbstständig den richtigen Speicherpfad wählen

Hi!

Ich habe das ein kleines/großes Problem. Bisher habe ich es immer so gemacht, dass ich einen festen Speicherpfad angegeben habe. Je nach Angebot, oder Rechnung habe ich dann nur in den entsprechenden Ordner geklickt. Nun hoffe ich, dass es auch noch einfacher geht.... In der Zelle A19 steht entweder Angebot oder Rechnung drin. Dachte es wäre möglich somit auch zu definieren, wo er bei klick hinspeichert?

Mein bisheriger Code sieht so aus:
 

Code:
Sub Speichern()
    
   Dim pfad As String
   Dim datei As String
   
   pfad = Environ("USERPROFILE") & "\Documents\Firma\" & Range("S9").Value & "\" & Sheets("Seite01").Cells(11, 3).Value & ".xlsm"
    
datei = Application.GetSaveAsFilename(InitialFileName:=pfad, filefilter:="Excel Arbeitsmappe mit aktivierten Makros (*.xlsm), *.xlsm")
   If datei = "Falsch" Then Exit Sub
   
ThisWorkbook.SaveAs Filename:=datei, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
End Sub


Ich würde mich freuen, wenn mir jemand weiterhelfen könnte. 

Grüße

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
Rot Angebot/Rechnung, selbstständig den richtigen Speicherpfad wählen
 10.08.2017 10:54:41 DeN
NotSolved
10.08.2017 12:00:50 Gast39450
NotSolved