Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Mehrere Workbooks nach dateinamen prüfen

VBA: Mehrere Workbooks nach dateinamen prüfen
11.07.2014 11:45:43
david.a2k
Hallo,
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ß

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Mehrere Workbooks nach dateinamen prüfen
11.07.2014 11:56:42
Gerd
Hallo David!
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

Gruß Gerd

AW: VBA: Mehrere Workbooks nach dateinamen prüfen
11.07.2014 12:05:28
david.a2k
Danke!
Es kommt noch die Fehlermeldung: Objekt unterstützt diese Eigenschaft oder Methode nicht.
An was liegt das?
Danke und Gruß

AW: VBA: Mehrere Workbooks nach dateinamen prüfen
11.07.2014 12:13:15
Rudi
Hallo,
und dieses Workbook dann löschen?
von der Platte putzen?
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ß
Rudi

Anzeige
AW: VBA: Mehrere Workbooks nach dateinamen prüfen
11.07.2014 12:37:40
david.a2k
Klappt!
Vielen Danke!

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige