Habe folgendes Problem:
Vorgangsweise:
Ich öffne eine Arbeitsmappe über Excel aus einem Netzlaufwerk.
Speichere die Arbeitsmappe unter einem neuen Dateinamen im gleichen Ordner per VBA und
anschließend lösche ich die ursprüngliche Arbeitsmappe per VBA mit Kill.
Bei Excel2010 hat alles tadellos geklappt.
Das Speichern unter funktioniert auch bei Excel2016
Der Fehler:
Jedoch bei Excel 2016 funktioniert das löschen der alten Arbeitsmappe nicht mehr, da diese immer noch in Verwendung ist.
Die Arbeitsmappe lässt sich erst löschen wenn ich Excel schliesse.
Wenn ich jedoch die Arbeitsmappe über den Windows-Explorer öffne funktioniert das löschen der Arbeitsmappe tadellos.
Gibt es hier eine Lösung, dass das löschen der Arbeitsmappe auch funtioniert mit dem Befehl Kill wenn ich die Arbeitsmappe über Excel öffne.
Das Makro:
Sub Datei_umbenennen_Bstfertig()
On Error Resume Next
Dim strNameOld As String
Dim strName As String
strNameOld = ThisWorkbook.FullName
strName = ThisWorkbook.Name
'Wenn kein Dateiname vergeben Makro beenden
If Left(strNameOld, 9) = "Std-Liste" Then Exit
Sub
If Left(ThisWorkbook.Name, 2) = "A_" And Range("AD4") "X" Then
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Mid(strName, 3)
End If
If Left(ThisWorkbook.Name, 2) "A_" And Range("AD4") = "X" Then
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "A_" & strName
End If
Kill strNameOld
End Sub
Gruß Albert