Ordner umbenennen und verschieben über Excel geschlossen

[Daniela]

Hallo!

Mein VBA Kenntnisse sind leider nicht so gut, dass ich diese nachflogende Aufgabe einfach nicht lössen kann.

1.) Ich möchte, wenn ich in die Zelle A1 einen Namen für eine "Ordenerbezeichnung1" und in die Zelle A2 den Wert "1" das der bereits bestehende Vorlagenordner in einen bestehenden Ordner (1) kopiert und den neuen Ordner von "Vorlagenordner" in "Ordnerbezeichnung1" umbenennt.

2.) Wenn ich die Zelle A2 mit einem anderen Wert (zum Beispiel Wert
"3") versehe, soll der neue Ordner "Ordnerbezeichnung1" in die bereits vorhandenen Ordner"3" verschoben werden. Wenn ich den Wert in der Zelle auf "2" setzte soll der vorhandene Ordner "Ordnerbezeichnung1" in den Ordner"2" verschoben werden.

Somit ist es dann wohl möglich, dass ich in jeder neuen Zeile einen neuen Ordner mit einer neuen Bezeichnung "OrdnerbezeichnungXX"vom bestehenden Vorlagenordner erstellen kann und durch das Ändern den Wert in der jeweiligen Spalte den Ordner entsprechend verschieben kann.


Ist soetwas in VBA möglich oder gibt es dafür eine entsprechende Software dafür!

Ich sage schon jetzt ein herzliches Dankeschön dafür!


lg

Daniela

 

[dark41836]

Hallo,

hier einmal Ansätze für deine Aufgabe:

Sub datei_kopieren_und_umbenennen()
Dim myFileSystemObject As Object
Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
myFileSystemObject.CopyFile "C:\test\OrdnerA\alpha.xls", "C:\test\OrdnerB\beta.xls"
Set myFileSystemObject = Nothing
End Sub
-----------------------------------------------------------------------
Sub ordner_kopieren_und_umbenennen()
Dim myFileSystemObject As Object
Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
myFileSystemObject.CopyFolder "C:\test\OrdnerA", "C:\test\OrdnerB"
'zum verschieben MoveFolder
Set myFileSystemObject = Nothing
End Sub

Das Ganze nur noch variabel, gem. deiner Angaben in der Tabelle, machen.
Das sollte dann eigentlich funktionieren.

LG
dark41836
:read:

PS:
Nachträglich noch herzlichen Glückwunsch zum Geburtstag

 

[Daniela]

dark41836





für deine super

Arbeit!!!​

Super Danke!

Auf das wäre ich nicht gekommen!

 

[yuhu]

Ist das ganze erledigt, oder möchtest du noch weitere Lösungsansätze ?

Du könntest dies zum Beispiel mit dem Präfix zum Ausdruck bringen (aktuell möchtest du somit weitere Ansätze ).

Gruß
yuhu