AW: Letzten Ordner löschen
17.12.2019 14:49:01
Steve
Moin Chris,
Vielleicht war das unglücklich ausgedrückt, aber da ist keine Schleife. Habe es ganz einfach gestaltet.
Das Makro sucht an einem bestimmten Ort den Ordnernamen der dem Sheetnamen entspricht und löscht ihn.
Jeder löschvorgang wird einzeln und manuell ausgelöst. (Es kommt selten vor, das mehr als ein Ordner gleichzeitig gelöscht werden muss.)
Wie schon erwähnt funktioniert das ganze auch. Aber wenn mal der Fall auftritt, das der zu löschende Ordner just der letzte im Hauptordner ist, dann hakt das ganze so lange bis die Datei geschlossen wird. Dann erst verschwindet der Ordner.
Ich sende dir hier mal das Makro dazu.
Sub LÖSCHEN()
Dim Blatt As String, Datum As String, strPfad As String
Dim fso As Object
Dim z As Long, lZ As Long
Dim objFSO As Object
strPfad = ThisWorkbook.Path
Blatt = ActiveSheet.Range("D1")
'Ordner löschen'
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder (strPfad & "\001 AKTIV\" & Blatt)
Set objFSO = Nothing
'Sheet löschen'
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
'Listeneinträge löschen'
lZ = Sheets("Startseite").Cells(65536, 2).End(xlUp).Row
For z = lZ To 1 Step -1
With Sheets("Startseite")
If .Cells(z, 2) = Blatt Then .Rows(z).Delete
End With
With Sheets("LISTE")
If .Cells(z, 1) = Blatt Then .Rows(z).Delete
End With
Next
End Sub
entsprechend habe ich auch ein Makro Unterordner von einem Hauptordner umbenennt und in einen anderen Hauptordner verschiebt. Da tritt das Problem auch, aber wesentlich seltener auf.
Dachte zunächst das liegt am Computer, aber an einem anderen Rechner habe ich dasselbe Problem.
Liebe Grüße
Steve