Makro Problem

[Kuwer]

Hallo André,

genau darauf wollte ich hinaus, bei SaveAs auch diesen lokalen Pfad zu verwenden.

Gruß Uwe

[Atlan]

'hier das Original Makro sowie von Ecel erstellt

Sub sichern()
'
' sichern Makro
'

'
    ChDir "C:\Users\Arsène\OneDrive\Dokumenter"
    ActiveWorkbook.SaveAs Filename:= _
        "https://d.docs.live.net/a2d24fc3f125772b/Dokumenter/AloeVera-2022.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "C:\Users\Arsène\OneDrive\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "https://d.docs.live.net/a2d24fc3f125772b/Desktop/AloeVera-2022.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "C:\Users\Arsène\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Arsène\Desktop\AloeVera-2022.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "Z:\"
    ActiveWorkbook.SaveAs Filename:="Z:\AloeVera-2022.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "Z:\_DRINGEND Daten"
    ActiveWorkbook.SaveAs Filename:="Z:\_DRINGEND Daten\AloeVera-2022.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "L:\"
    ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:="D:\AloeVera-2022.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "E:\"
    ActiveWorkbook.SaveAs Filename:="E:\AloeVera-2022.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

---

Sub sichern()
'
' sichern Makro
'

'
    ChDir "C:\Users\Arsène\OneDrive\Dokumenter"
    ActiveWorkbook.SaveAs Filename:= _
        "https://d.docs.live.net/a2d24fc3f125772b/Dokumenter/AloeVera-2022.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "C:\Users\Arsène\OneDrive\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "https://d.docs.live.net/a2d24fc3f125772b/Desktop/AloeVera-2022.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "C:\Users\Arsène\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Arsène\Desktop\AloeVera-2022.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "Z:\"
    ActiveWorkbook.SaveAs Filename:="Z:\AloeVera-2022.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "Z:\_DRINGEND Daten"
    ActiveWorkbook.SaveAs Filename:="Z:\_DRINGEND Daten\AloeVera-2022.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "L:\"
    ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:="D:\AloeVera-2022.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "E:\"
    ActiveWorkbook.SaveAs Filename:="E:\AloeVera-2022.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

[schauan]

Hallöchen,

eventuell liegt es daran: è

[Kuwer]

Hallo André,

in der Fehlerzeile gibt es kein è.

Gruß Uwe

[snb]

Code:

Sub M_snb()
  Application.DisplayAlerts=False
  ThisWorkbook.SaveAs "AloeVera-2022.xlsm", 52
 
  sn = Split("https://d.docs.live.net/a2d24fc3f125772b/Dokumenter/_https://d.docs.live.net/a2d24fc3f125772b/Desktop/_C:\Users\Arsène\Desktop\_D:\_E:\_Z:\_Z:\_DRINGEND Daten\", "_")
  For j = 0 To 6
    ThisWorkbook.SaveCopyAs sn(j) & ThisWorkbook.Name
  Next
End Sub