Office: (Office 2013) Dateien kopieren auch wenn geöffnet

Hallo Zusammen,

ich habe in einem Ordner etwa 60 Dateien.
20 heißen so:Auswertung_MB_WER_******.xlsx
20 heißen so:Auswertung_HTA_WER_*****.xlsx
20 heißen so:Auswertung_MON_WER_****.xlsx

Nun möchte ich aber nur die 20 Dateien Auswertung_MB_WER_******.xlsx in einen anderen Ordner kopiert werden,auch wenn diese geöffnet sind.

Die Dateien liegen in dem Ordner "C:\WER_Dateien\" und sollen in den Ordner "D:\Auswertungen\WER_MB\"

Würde mich über Hilfe sehr freuen.

 

mache speichern unter, damit die letzten Änderungen auch gespeichert werden.

Code:

Option Explicit

Sub Makro2()
    Dim WbDatei As Workbook
    For Each WbDatei In Workbooks
        If Left(UCase(WbDatei.Name), 6) = "MB_WER" And Right(UCase(WbDatei), 5 = ".XLSX") Then
            WbDatei.SaveAs Filename:= _
                "D:\Auswertungen\WER_MB\" & WbDatei.Name, FileFormat:= _
                xlOpenXMLWorkbook
            WbDatei.Close True
        End If
    Next WbDatei
End Sub

 

Hallo Hajo,

erstmal danke für den Code.

Wo bitte trage ich den den Quellordner ein ?

 

Hallo Merkur,

ich bin dann raus, ich habe es wohl falsch gelesen das die Dateien auf sind.
Viel Erfolg noch.

<a href="Homeseite - Hajo's Excelseiten" target="_blank" title="Hajo&#039;s Excelseiten">Gruß Hajo</a>

 

...........ja Hajo da hast Du etwas falsch gelesen.

Ich hatte geschrieben.........Auch wenn sie geöffnet sind.Betonung auf Auch .
Die Dateien liegen in dem Ordner "C:\WER_Dateien\" und sollen in den Ordner "D:\Auswertungen\WER_MB\"

 

Hallo,

meines Wissens ist das unmöglich. Das hieße ja doch, die Erde unter den Füßen wegziehen.

 

..........wenn ich eine geöffnete Excel Datei habe. Mit der rechten Maus darauf klicke,dann kopieren auswähle. In einen ordner wechsle und mit der rechten Maus das Menue aufrufe ,dann einfügen auswähle,wird die Datei auch kopiert.
Daher wird mein "kopieren" hier als "Ausschneiden" verwechselt vermute ich.