In einer Datei eine Datei schliessen und löschen
12.01.2020 17:34:10
speednetz
Ich brauche mal eure Hilfe
Ich möchte in einem Makro eine Datei schließen, und diese dann löschen.
Es soll vorher geprüft werden ob die Datei offen ist, wenn ja soll sie geschlossen werden.
Mit folgender Zeile wird die Datei geschlossen. Aber läuft so nicht weiter wenn Datei schon geschlossen ist
Workbooks("Kopie.xlsm").Close SaveChanges:=False
Als nächstes soll die geschlossene Datei gelöscht werden, wenn die Datei vorhanden ist. Wenn nicht vorhanden dann soll das Makro weiterlaufen.
Die Datei hat den Namen Kopie.xlsm
Ich habe diesen Code gefunden, der alleine auch läuft und die Datei löscht aber nicht in meinem Makro.
Sub Test()
Dim sDatei As String
sDatei = "C:\Users\speed\Desktop\Rechnungen\Kopie.xlsm"
If Dir(sDatei) "" Then
Kill sDatei
End If
End Sub
In nachfolgendem Code sollte es dann laufen
Sub Makro1()
' Makro1 Makro
Pfad = ThisWorkbook.Path
Workbooks.Open Pfad & "\Rechnungsprogramm.xlsm"
ActiveSheet.Unprotect
Workbooks("Kopie.xlsm").Close SaveChanges:=False
Range("B41:F57").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=30
Range("C23").Select
Selection.ClearContents
Range("C24").Select
Selection.ClearContents
Range("C25").Select
Selection.ClearContents
Range("C26").Select
Selection.ClearContents
Range("F28").Select
Selection.ClearContents
Range("G28").Select
Selection.ClearContents
Range("C30").Select
Selection.ClearContents
Range("C59").Select
Selection.ClearContents
Range("C67").Select
Selection.ClearContents
Range("C70").Select
Selection.ClearContents
Range("B23").Value = "Anrede:"
Range("B24").Value = "Name:"
Range("B25").Value = "Straße:"
Range("B26").Value = "PLZ-Stadt:"
Range("B30").Value = "mail:"
Range("A59").Value = "Erklärung:"
Range("A67").Value = "Rechn. = Lieferd."
Range("A70").Value = "Zahlbar:"
ActiveSheet.Range("C23").Interior.ColorIndex = 6
ActiveSheet.Range("C24").Interior.ColorIndex = 6
ActiveSheet.Range("C25").Interior.ColorIndex = 6
ActiveSheet.Range("C26").Interior.ColorIndex = 6
ActiveSheet.Range("C30").Interior.ColorIndex = 6
ActiveSheet.Range("F28").Interior.ColorIndex = 6
ActiveSheet.Range("G28").Interior.ColorIndex = 6
ActiveSheet.Range("F30").Interior.ColorIndex = 6
ActiveSheet.Range("G30").Interior.ColorIndex = 6
ActiveSheet.Range("C60").Interior.ColorIndex = 6
ActiveSheet.Range("C60").Interior.ColorIndex = 6
ActiveSheet.Range("F64").Interior.ColorIndex = 6
ActiveSheet.Range("C70").Interior.ColorIndex = 6
Sheets("Rechnungsformular").Range("F64").Value = "19%"
ActiveSheet.Protect
Range("C23").Select
End Sub
Gruß speednetz