in der Variablen "ziel" werden zwei Werte geschrieben. Anschließend wird im Ordner Müller ein Ordner mit demselben Namen angegeben. Nun möchte ich in diesen erstellten Ordner eine Datei kopieren !!! Das klappt so wie ich es gemacht habe leider nicht, ich erhalte die Meldung, "Fehler beim Zugriff auf Pfad/Datei). Was mache ich falsch ? Kann ich mit CurDir nicht das aktuelle Verzeichnis ansprechen ?
Danke
Nico
Sub test()
quelle = "Mappe1.xls"
ziel = ActiveCell.Offset(0, 1).Value & "_" & ActiveCell.Offset(0, 2).Value
Select Case wert
Case 1
MkDir "d:\Personen\Mueller\" & ziel
ChDir "d:\Personen\Mueller\" & ziel
FileCopy "C:\" & quelle, CurDir