Hallo!! Ich möchte folgendes erreichen: 

aus einem bestimmten Ordner soll einen Quelldatei geöffnet werden und daraus ein Worksheet kopiert werden. Der Anfang des Names der Quelldatei ändert sich je nach Monat. 

Oktober_Customer Projects_China.xlsx

im nächsten Monat 

November_Customer Projects_China.xlsx

usw...

Beim öffnen der Quelldatei kann ich ein Stern als Platzhalter nutzen . Bei der Definition der Datei als Variable hat ein * nicht funktioniert. 

Wie müsste ich diese Zeile schreiben, damit es egal ist in welchem Monat ich die Variable QuellWorkbook1 definiere?

der Code (Teil) der funktioniert: 

---------

Dim ZielWorkbook As Workbook

 Dim QuellWorkbook1 As Workbook

 Dim QuellWorksheet1 As Worksheet

 Dim ZielWorksheet As Worksheet

 Set ZielWorkbook = Workbooks("Projektlisten 2_0")

'Die Datei Oktober_Customer Projects_China.xlsx ansprechen und rüberkopieren, Sheet in Zieldatei umbenennen, Quelldatei ohne speichern schließen

Workbooks.Open "C:\PM\China\*Customer Projects_China.xlsx"

Set QuellWorkbook1 = Workbooks("Oktober_Customer Projects_China.xlsx")

For Each QuellWorksheet1 In QuellWorkbook1.Sheets

QuellWorksheet1.Copy After:=ZielWorkbook.Sheets(ZielWorkbook.Sheets.Count)

Next

Sheets(2).Name = "China"

QuellWorkbook1.Close savechanges:=False

------