VBA Probleme mit Dateien

Sub DateiOeffnen()

   Dim strOrig As String, strJahr As String, strMonat As String

   strJahr = Range("X4").Value 'Das Jahr

   strMonat = Range("Y4").Text 'der Monat

   strQuelle = ActiveWorkbook.Name 'Starttabelle

   strOrig = Sheets(2).[n142].Value 'Originalname der Tabelle. Hier wird Jahr_Monat vorandestellt und als neue Tabelle abgespeichert

   strZiel = strJahr & "_" & strMonat & "_" & strOrig 'hier setze ich den Namen der Zieltabelle zusammen

   strPath = ThisWorkbook.Path & "\" & strZiel 'das ganze als kompletter Pfad

   ActiveWorkbook.SaveCopyAs Filename:=strPath 'die neue Tabelle wird gespeichet und ist dann auch vorhanden

   If WkbExists(strZiel) = False Then 'Prüfung ob Tabelle vorhanden

      If Dir(strPath) = "" Then 'dieser ganze Tel wurde mir von euch mal vor langer Zeit gegeben

         MsgBox "Datei " & strPath & " wurde nicht gefunden!"

      Else

         Workbooks.Open strPath '----- Nachdem alles durchlaufen wurde kommt hier eine Fehler!!!

      End If

   End If

   Call Daten_kopieren

End Sub



Private Function WkbExists(strPath As String) As Boolean

   Dim objWkb As Object

   On Error Resume Next

   Set objWkb = Workbooks(strPath)

   If Not objWkb Is Nothing Then

      WkbExists = True

   End If

   On Error GoTo 0

End Function