Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: den21 am August 10, 2017, 10:58:49 Vormittag

Titel: Office 2016 Angebot/Rechnung, selbstständig den richtigen Speicherpfad wählen
Beitrag von: den21 am August 10, 2017, 10:58:49 Vormittag

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: [Auswählen]

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

Titel: Antw:Office 2016 Angebot/Rechnung, selbstständig den richtigen Speicherpfad wählen
Beitrag von: steve1da am August 10, 2017, 12:00:11 Nachmittag

Hola,

zur Info:

http://www.clever-excel-forum.de/Thread-Angebot-Rechnung-selbststaendig-den-richtigen-Speicherpfad-waehlen (http://www.clever-excel-forum.de/Thread-Angebot-Rechnung-selbststaendig-den-richtigen-Speicherpfad-waehlen)
http://www.vba-forum.de/forum/View.aspx?ziel=38798-Angebot/Rechnung,_selbstst%C3%A4ndig_den_richtigen_Speicherpfad_w%C3%A4hlen (http://www.vba-forum.de/forum/View.aspx?ziel=38798-Angebot/Rechnung,_selbstst%C3%A4ndig_den_richtigen_Speicherpfad_w%C3%A4hlen)

Gruß,
steve1da