Guten Tag,

so habe heute daran etwas herum probiert. Vielen Dank für ihre Mühe!

Bei folgenden Code meldet Excel mir einen Laufzeitfehler 424 "Objekt erforderlich" und ich bin ehrlich gesagt ratlos warum...

Ich wäre sehr dankbar über einen Hinweis wieso.

Sub Unterordner_verschieben()
Dim objFSO As Object
Dim objFolder As Object
Dim strPfad As String
Dim objSubfolder As Object, colSubfolders As Object
Dim i As Integer
Dim UnterordnerArray As Variant
Dim Subfolders123 As Variant
Dim strFolderName As String
Dim strFolderExists As String

i = 1
With CreateObject("Scripting.FileSystemObject")
    strFolder = Folder
    Do
      If .FolderExists(Folder & "_V" & i) Then
        i = i + 1
    Else
        GoTo UnterordnerVerpacken
    Exit Do
  End If
Loop
End With
    
UnterordnerVerpacken:
    strPfad = "\\wttv94011.gbx.corp\Pruefstandsdaten\Transferdaten\" & Seriennummer
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPfad)
    Set colSubfolders = objFolder.Subfolders
    For Each objSubfolder In colSubfolders
        UnterordnerArray = objSubfolder.Name
    Next objSubfolder
    Set objFolder = Nothing
    Set colSubfolders = Nothing
    Set objFSO = Nothing
    
'liest die Namen der Unterordner in ein Array ein
'For Each Subfolders123 In UnterordnerArray
'Next Subfolders123
    
    'MsgBox UnterordnerArray
    
    strFolderName = "\\wttv94011.gbx.corp\Pruefstandsdaten\Transferdaten\" & Seriennummer
    strFolderExists = Dir(strFolderName, vbDirectory)
 
    If strFolderExists = "" Then
        MsgBox "Es gibt keine Unterordner"
    Else
        FSO.CreateFolder ("\\wttv94011.gbx.corp\Pruefstandsdaten\Arbeitsbereich\" & Seriennummer & "_V" & i & "\" & UnterordnerArray)
        FSO.MoveFile "\\wttv94011.gbx.corp\Pruefstandsdaten\Transferdaten\" & Seriennummer & "\" & UnterordnerArray & "\*", "\\wttv94011.gbx.corp\Pruefstandsdaten\Arbeitsbereich\" & Seriennummer & "_V" & i & "\" & UnterordnerArray
    End If

End Sub