VBA Ordner kopieren Name aus Zelle
02.10.2018 17:08:52
Michl
bin an einem wohl recht einfachen vba Code am verzweifeln.
Eines vorweg, ich habe keine Ahnung, was ich hier (vba modul) tue.
Bin ein reiner Kopierer aus div. Foren und versuche den Code nach meinen Bedürfnissen an zu passen.
Folgendes Problem:
Ich möchte einen bestehenden Ordner kopieren und umbenennen. Dabei soll der Ordnername aus der aktiven Zelle entnommen werden.
Hier der Code, mit welchem ich den Ordner kopiere:
Sub KopiereOrdner()
Dim filesystem As Object
Dim name As String
name = Sheets("Tabelle1").Range("A1")
Set filesystem = CreateObject("Scripting.FileSystemObject")
filesystem.CopyFolder "P:\Transfer", "P:\Transfer\" & name
Set filesystem = Nothing
End Sub
Hierbei wird der Ordner kopiert und er erhält den Name aus der Zelle A1.
Ich möchte jedoch den Wert (Text) aus der aktiven Zelle
Beispiel:
Dim filesystem As Object
Dim name As String
name = Sheets("Tabelle1").ActiveCell
Set filesystem = CreateObject("Scripting.FileSystemObject")
filesystem.CopyFolder "P:\Transfer", "P:\Transfer\" & name
Set filesystem = Nothing
End Sub
Kann mir hierbei jemand helfen?
Vielen Dank im Voraus.