PDA

Vollständige Version anzeigen : speichern unter mit 2 Pfaden


Wolf38
08.07.2015, 11:22
Hallo miteinnander,

ist es möglich eine Exceldatei (speichern unter) mit 2 Pfaden durchzuführen ?

Mit einem Pfad habe ich die ganze Sache schon.

Dim dateiname As String
dateiname = "C:\Test\" _
& Range("A1").Value & " " & Range("C1").Value & " " & Range("D2").Value & ".xlsm"

Application.Dialogs(xlDialogSaveAs).Show dateiname

Wie kann ich hier noch einen Pfad hinzufügen ?

Wäre super wenn mir jemand helfen könnte.

Gruss
Wolf

chris-kaiser
08.07.2015, 11:57
Hi,

Sub so_vielleicht()
Dim path1 As String
Dim path2 As String
Dim Datn As String
'************
path1 = "C:\Test\"
path2 = "C:\Temp\"
'****************
Datn = Range("A1").Value & " " & Range("C1").Value & " " & Range("D2").Value

ActiveWorkbook.SaveAs path1 & Datn, xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.SaveAs path2 & Datn, xlOpenXMLWorkbookMacroEnabled
End Sub

Wolf38
08.07.2015, 12:35
Hi Chris,

hat super geklappt :-)

vielen vielen Dank......

Gruss
Wolfram

EarlFred
08.07.2015, 12:41
Hallo,

wäre SaveCopyAs hier nicht besser?

Durch SaveAs ist das gespeicherte Workbook hinterher ein anderes - nämlich das zuletzt gespeicherte und nicht mehr das ursprüngliche.

Grüße
EarlFred