Tabellenblatt aus vielen Excel-Dateien löschen

[MWCN]

Hallo

Wie kann ich aus einem Ordner ( ca. 2500 Exceldateien *.xlsm) alle Exceldateien deren Arbeitsblatt ("RT     ") löschen ?
ohne alle manuell zu löschen ? Also per vba

[Mase]

Hi,

hab ein paar Frage dazu:

.) gehen von aktuellen Windows Betriebssystemen aus:
a) gibt es eine geprüfte Datensicherung von den ~2500Files ?
b) sind die NTFS-Berechtigungen ausreichen vorhanden?
b) alle Files lokal oder im Netzwerk?
c) alle Files in einem Ordner oder verschiedenen Ordner/Unterordner?
d) privat oder gewerblich?
d.1) wenn gewerblich (wovon ich ausgehe); ist die IT-Abteilung informiert und das Vorhaben erwünscht und genehmigt?


gruß
Marco

[Fennek]

Hallo,

teste mal mit einer Kopie:

Code:

sub Blaetter_loeschen()
dim WB as Workbook
dim WS as Worksheet

Pfad = "c:\temp\" '<<< anpassesn "\" am Ende

f = dir(Pfad & "*.xlsm")
do while f <> ""
    set wb = workbooks.open(Pfad & f)
    for each WS in WB.Sheets
        if left(WS.Name, 2) = "RT" then WS.delete
    next i    
        wb.close 1
f = dir
loop
end sub

(ungeprüft)

mfg

[MWCN]

Danke
bei Next muss das "i" gelöscht werden