Arbeitsmappe mit Macro sichern
17.11.2020 18:15:32
Andy
ich will eine bestehende Arbeitsmappe mit Macros in ein Verzeichnis Speichern.
aktueller VBA CODE
Hier wird die aktuelle Arbeitsmappe gespeichert und umbenannt!
Es soll aber nur die Arbeitsmappe im Verzeichnis umbenannt werden.
Sub Export_ausführen()
Dim Pfad As String
Dim sPrüf As String
Dim DateiName As String
Dim rngZelle As String
Dim Tag As String
Tag = Format(Now, "dd_MM_yyyy_hh_mm")
rngZelle = Range("A3").Value
Pfad = "K:\Sichern\"
sPrüf = Dir(Pfad, vbDirectory)
If sPrüf = "" Then
MkDir (Pfad)
End If
DateiName = Pfad & rngZelle & "_" & "Mitarbeiter-Import_" & Tag & ".xlsm"
ThisWorkbook.SaveAs (DateiName)
End Sub