1.) Die Datei soll nicht nur so heißen, wie die beiden Zellen rechts von der aktiven Zelle, es soll ein Ordner mit dem gleichen Namen erstellt werden in welchem dann die Datei landet. Also befindet sich in Zelle A2 der Inhalt "BAUM" und in B2 der Inhalt "HAUS", dann soll ein Ordner Baumhaus angelegt werden wo die Datei Baum_haus.xls gespeichert ist.
2.) Ist die Datei bereits vorhanden, so soll eine Abfrage erfolgen, ob die derzeit vorhandene gelöscht werden soll.
Vielen Dank im Voraus
Mfg
Nico
Sub test()
quelle = "Mappe1.xls"
wert = ActiveCell.Value
ziel = ActiveCell.Offset(0, 1).Value & "_" & ActiveCell.Offset(0, 2).Value
Select Case wert
Case 1
FileCopy "C:\" & quelle, "D:\Personen\Mueller\" & quelle
Case 2
FileCopy "C:\" & quelle, "D:\Personen\Meyer\" & quelle
Case 15
FileCopy "C:\" & quelle, "D:\Personen\Anton\" & "@" & ziel & ".xls"
Case Else
MsgBox "fehler"
End Select
End Sub