wie kann ich mit VBA bei allen geöffneten Workbooks prüfen ob sich ein bestimtmes Wort im Dateinamen befindet und dieses Workbook dann löschen?
Danke und Gruß
Sub a()
Dim intCt As Integer
Application.DisplayAlerts = False
For intCt = Application.Workbooks.Count To 1 Step -1
If Workbooks(intCt).Name Like "*" & "test" & "*" Then Workbooks(intCt).Delete
Next
Application.DisplayAlerts = True
End Sub
Sub aa()
Dim wkb As Workbook, s As String
For Each wkb In Workbooks
If InStr(wkb.Name, "test") Then
s = wkb.FullName
wkb.Close False
Kill s
End If
Next
End Sub
Gruß