Hallo,

ich habe folgendes Problem. Ich möchte gerne alle Arbeitsmappen eines Ordner öffnen ein neues Arbeitsblatt einfügen mit dem neuem Monat und wieder schliessen.

Den Code habe ich hier.

Private Sub CommandButton8_Click()

Dim WB As Workbook
Dim strFName As String
 
Dim Datei As String
Dim Arbeitsmappe As String
Dim PFAD As String
PFAD = "C:\Users\sde\Desktop\TelefonService Test\"
Datei = Dir(PFAD & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
  Do While Datei <> ""
    Application.Workbooks.Open Datei
    Worksheets.Add After:=Worksheets(Worksheets.Count)
    With Worksheets(Worksheets.Count)
            .Name = Format(Date, "mmmm" & " " & "yyyy")
    End With
    ActiveWorkbook.Close True
    Datei = Dir()
  Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Mein Problem er erkennt zwar was im Ordner ist aber er schafft sie nicht zu öffnen. Er sagt mir ständig das er die Datei nicht findet und er sie nicht öffnen kann.

Danke euch schon einmal.