Datei Speichern unter Variablem Pfad
19.12.2022 09:51:22
Timo
ich habe ein kleines Problem und komme leider nicht wirklich weiter...
Ich möchte gern meine Datei automatisiert am Ende des Monats in dem dazu passenden Ordner speichern.
Das Feld A6 gibt an um welchen Monat es sich handelt 1 = Januar usw.
ich habe das hier mal testweise für Januar und Feburar probiert allerdings funktioniert der Code leider nicht.
Es gibt einen Laufzeitfehler 1004, beim Debuggen sehe ich, dass das Problem mit dem spath1 zu tun hat, leider kommt ich hier aber nicht weiter.
Bin über jede Hilfe dankbar.
Hier der Code:
Sub Speicher2()
' Speicher2 Makro
Dim sFile As String, spath As String, wks As Worksheet
spath = Application.DefaultFilePath & "F:\Controlling\Berichtswesen\2023\03_Bereichsberichte\Sicherungen\"
sFile = Range("A5") & Range("B5")
For Each wks In Worksheets
With wks.UsedRange
.Value = .Value
End With
Next wks
If Range("A6") = "1" Then
folder1 = "23-01\"
Else
If Range("A6") = "2" Then
folder1 = "23-02\"
Exit Sub
End If
End If
spath1 = spath & folder1 & sFile & ".xls"
ActiveSheet.SaveAs spath1
End Sub
Anzeige