Leider nicht so ganz... verstehe leider nicht so ganz das Problem... theoertisch habe doch alles richtig benannt und deklariert...

Ich habe leider immernoch einen Laufzeitfehler unten im Code an der selben Stelle.

Naja, ich werde nicht aufgeben! Danke für die Unterstützung!! 

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
        objFSO.CreateFolder ("\\wttv94011.gbx.corp\Pruefstandsdaten\Arbeitsbereich\" & Seriennummer & "_V" & i & "\" & UnterordnerArray)
        objFSO.MoveFile "\\wttv94011.gbx.corp\Pruefstandsdaten\Transferdaten\" & Seriennummer & "\" & UnterordnerArray & "\*", "\\wttv94011.gbx.corp\Pruefstandsdaten\Arbeitsbereich\" & Seriennummer & "_V" & i & "\" & UnterordnerArray
    End If

End Sub