Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 91
25.11.2021 08:47:15 Konstantin
NotSolved
25.11.2021 09:30:33 Mase
NotSolved
25.11.2021 09:51:12 Konstantin
NotSolved
25.11.2021 10:33:51 Gast15543
NotSolved
25.11.2021 12:09:01 Gast41368
NotSolved
25.11.2021 12:16:22 Gast33604
NotSolved
25.11.2021 13:08:35 Gast50737
NotSolved
25.11.2021 13:51:31 Mase
NotSolved
25.11.2021 14:22:07 Gast4591
NotSolved
25.11.2021 15:04:33 Mase
NotSolved

Ansicht des Beitrags:
Von:
Konstantin
Datum:
25.11.2021 08:47:15
Views:
75
Rating: Antwort:
  Ja
Thema:
Laufzeitfehler 91

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 91
25.11.2021 08:47:15 Konstantin
NotSolved
25.11.2021 09:30:33 Mase
NotSolved
25.11.2021 09:51:12 Konstantin
NotSolved
25.11.2021 10:33:51 Gast15543
NotSolved
25.11.2021 12:09:01 Gast41368
NotSolved
25.11.2021 12:16:22 Gast33604
NotSolved
25.11.2021 13:08:35 Gast50737
NotSolved
25.11.2021 13:51:31 Mase
NotSolved
25.11.2021 14:22:07 Gast4591
NotSolved
25.11.2021 15:04:33 Mase
NotSolved