Guten Tag,

ich habe einen Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt. 

Für mich ist leider nicht schlüssig wieso.. 

Der Code:

Sub Unterordner_verschieben()
Dim FSO As Object
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