ich habe folgende Vorstellung von meiner periodisch aktualisierten ToDo- (Aktions-) Liste.
Ich unterscheide den Fall A & B:
Fall A:
Die Liste wird zum ersten mal genutzt.
Dafür ist im Tabellenblatt 3 jeweils ein Eingabefeld für Pfad und Dateinamen vorgesehen.
Das Speichern wird durchgeführt und die Datei wird an dem gewünschten Ort & mit dem korrekten Namen gespeichert.
Fall B:
Die bestehende Datei wird geöffnet, im korrekten Dateipfad, bearbeitet und soll neu gespeichert werden, unter Nutzung des Abgleichs:
B.1 - ist Dateiname alt = Dateiname neu (neu definiert sich über die Endung mit dem aktuellen Datum), dann wird gespeichert mit
ActiveWorkbook.Save
B.2 - ist Dateiname alt Dateiname neu, dann soll mit dem neuen Dateinamen gespeichert werden.Problem:
der Fall B.2 funktioniert nicht. Ich erhalte die Fehlermeldung "Laufzeitfehler '1004'"
Könnt Ihr mir helfen?
Danke, Thomas
Mein Code:
Sub Speichern_1() 'speichert die Datei an einem oder mehreren Orten, Zeitstempel kann mit vergeben werden - automatisch
Dim FilePath_AsIs As String
Dim FileName_AsIs As String
Dim FilePath_New As String
Dim FileName_New As String
Dim Heute As Date
'Speichern am Speicherort laut Definition in Tabelle mit Zeitstempel (Dateiname_JJJJMMTT.xlsm)
Heute = Date
FileName_AsIs = ThisWorkbook.Name
FilePath_New = Sheets(3).Range("C8") 'Dateipfad laut Tabelle
FileName_New = Sheets(3).Range("C7") & Format(Date, "_yyyymmdd") & ".xlsm" 'Dateiname laut Tabelle + heutiges Datum
If FileName_AsIs = FileName_New Then
ActiveWorkbook.Save
Else
ActiveWorkbook.SaveAs Filename:=FilePath_New & "\" & FileName_New, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End If
'Speichern - nur speichern
'Speichern an weiterem Speicherort mit Datumsangabe ohne Makro (Dateiname_JJJJMMTT.xlsm)
End Sub