Ich bekomme zur weiteren Bearbeitung eine Excel Datei, welche ich mit Hilfe eines Macrobefehls unter einen anderen Namen und in einem anderen Ordner speichern muss.
Habe ich eine Möglichkeit, die Orginaldatei mit dem Ausführen des neuen Speicherbefehl (neuer Speichername) im Quellverzeichniss gleichzeitig zu löschen.
Wäre mir eine echte Hilfe.
Die Ausgangsdateien haben immer einen anderen Namen .
Orginalpfad: Z:\Werkstatt\Wareneingang\2012
Da liegt dieAusgangsdatei.
neuer Speicherpfad: Z:\Werkstatt\Arbeitsscheine\2012
Vielleicht gibt es ein Befehl, den ich in mei Macro einfügen kann.
Mein Macro lautet:
Sub nur_speichern()
''Abfragebox für sicheres übernehmen
Dim strQuest As String
strQuest = MsgBox(" NAME___DATUM___GERÄTETYP ? ", vbYesNo + vbQuestion, " Datei _
wird gespeichert unter:")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub
'Datum fest übernehmen in Zelle AJ2
Range("AJ2").Select
Selection.Copy
Range("AJ2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' speichern Makro
ActiveWorkbook.SaveAs Filename:="Z:\Werkstatt\Arbeitsscheine\2012\" & Range("I73") & ".xls"
End Sub
Vielleicht hat jemand einen Tipp für mich
Gruß
Andreas