Hallo Zusammen,
mit dem folgenden VBA lege ich je Zeile eine Ordner mit zwei Unterordnern an.
Nun möchte ich in den Unterordner "Anschreiben" jeweils die Datei X und Y und in den Unterordner "Bewertungsbogen" die Datei Z aus dem Ordner C:\Inhalte einfügen.
Sub OrdnerAnlegen()
Dim FSO As Object, strIdeenOrdner As String, Zelle As Range
Const cstPfad As String = "C:\Compu-Tests\Ideenschmiede\"
Set FSO = CreateObject("Scripting.FileSystemObject")
With ActiveSheet
strIdeenOrdner = .Range("A1") & " " & .Range("B1")
If Not FSO.FolderExists(cstPfad & strIdeenOrdner) Then MkDir cstPfad & strIdeenOrdner
For Each Zelle In .Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp))
If Not FSO.FolderExists(cstPfad & strIdeenOrdner & "/" & Zelle) Then
MkDir cstPfad & strIdeenOrdner & "/" & Zelle
MkDir cstPfad & strIdeenOrdner & "/" & Zelle & "/Anschreiben"
MkDir cstPfad & strIdeenOrdner & "/" & Zelle & "/Bewertungsbogen"
End If
Next Zelle
End With
End Sub
Im nächsten Schritt sollte es möglich sein, die eingefügten Dateien in dem geschaffenen Ordner als Hyperlinks jeweils speziellen Zellen zuzuordnen (z.B. Datei X soll in Spalte C, Y in Spalte F und Z in Spalte G). - Dabei ist es wichtig, dass die Hyperlinks in der richtigen Zeile stehen (aus der der Ordner erstellt wurde), da diese bearbeitet und abgespeichert werden sollen.
Die Tabelle ist fortlaufend.
Kann mir hier jemand von euch behilflich sein?
Danke.
Flo