ich benötige Unterstützung! Ich möchte einen Vorlagenordner mit einem gewissen Inhalt komplett kopieren, im gleichen Verzeichnis einfügen und gem. der Excelaufstellung nach 2 SPalten benennen.
Ähnliches habe ich vor kurzem schon einmal gemacht (Ordner erstellen und gem. Excel benennen.) Der bisherige Code war
Sub ordner_anlegen()
Dim intzeile As Integer
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
intzeile = 2
With Worksheets("Help")
Do While Not IsEmpty(.Range("B" & intzeile))
fs.createfolder ("C:\Temp\Ordner\" & "Anlage " & .Range("B" & intzeile))
intzeile = intzeile + 1
Loop
End With
End Sub
und ich versuchte diesen zunächst so umzuwandelnSub ordner_anlegen()
Dim intzeile As Integer
Dim fs As Object
'Set fs = CreateObject("Scripting.FileSystemObject")
intzeile = 2
With Worksheets("RisiExport")
Do While Not IsEmpty(.Range("F" & intzeile))
FileSystemObject.CopyFolder ("C:\Users\Alle\Desktop\Test\Vorlage\*" = "C:\Users\ _
_
Alle\Desktop\Test\" & .Range("B" & intzeile) & .Range("F" & intzeile))
intzeile = intzeile + 1
Loop
End With
End Sub
bekam allerdings nur Fehlermeldungen. Hat jemand noch eine andere Idee?Vielen Dank im Voraus!