Liebe Community, 

ich bin kompletter Anfänger auf dem VBA-Gebiet und wollte mir ein neues Makro erstellen. Ziel des Makros ist es: 2 Ordner an vordefinierten Pfaden zu erstellen. Dafür habe ich eine Userform mit einer Liste und einem Eingabefeld erstellt.  Die Ordnernamen bestimme ich über das Eingabefeld. Dies gelingt bereits sehr gut. Nun zu meinem Problem: Die Datei, die ich mit dem einen Ordner mitkopiere soll dem erstellten Ordner im Namen gleichen. Wenn ich jedoch das Script ausführe, sagt er mir immer wieder, dass die Datei nicht gefunden wird "Laufzeitfehler 53". ICh habe die Pfade kontrolliert und eigentlich stimmen sie, jedoch kommt trotzdem immer wieder dieser Fehler. Könntet ihr mir weiterhelfen? 

Private Sub CommandButton1_Click()


Dim SourceFolder As String, TargetFolder As String, strPfad As String, strAltname As String
strNeuname As String, strprojekt As String, strtalt As String, strneu As String, strchrometabelle As String
strdefault As String, strneuername As String


If Pfad.ComboBox1 = "5500C" Then

SourceFolder = "C:\Report\5500C\Default"
TargetFolder = "C:\Report\5500C\"

'Copy the folder and sub folder
Call Shell("cmd.exe /c xcopy /y " & SourceFolder & " " & TargetFolder & Studie.Value & " /E /i ")

End If

If Pfad.ComboBox1 = "5500D" Then

SourceFolder = "C:\Report\5500D\Default"
TargetFolder = "C:\Report\5500D\"

'Copy the folder and sub folder
Call Shell("cmd.exe /c xcopy /y " & SourceFolder & " " & TargetFolder & Studie.Value & " /E /i ")


End If


'Copy the folder and sub folder


'Ergbenisordner erstellen

SourceFolder = "C:\Report\Ergebnisse\Default"
TargetFolder = "C:\Report\Ergebnisse\"


Call Shell("cmd.exe /c xcopy /y " & SourceFolder & " " & TargetFolder & Studie.Value & " /E /i ")

strPfad = "\"
strAltname = "Chrom.xls"
strchrometabelle = "Chrom-Tabelle -"
strNeuname = "Chrom-" & Studie.Value & ".xls"
strAlt = TargetFolder & Studie.Value & strPfad & strAltname
strneu = TargetFolder & Studie.Value & strPfad & Studie.Value
Zielpfad = "C:\Report\Ergebnisse\" & Studie.Value & "\" & "Chrome.xls"



Name TargetFolder & Studie.Value & strPfad & strAltname As TargetFolder & Studie.Value & strPfad & strNeuname


Unload Pfad

End Sub


Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)


End Sub

Private Sub UserForm_Initialize()



    With Pfad.ComboBox1
        
        .AddItem "5500C"
        .AddItem "5500D"
        
        .ListIndex = 0
        
    
    End With


End Sub

VIele Grüße Benjamin