Danke für deine  Antwort Mase,

trotz deines Links komme ich nicht richtigweiter. Ich habe jetzt folgendes gemacht:

Ich habe, nach dem Befehl Quellenarbeitsmappe.close versucht eben diese Datei in das Verzeichnis "Importiert" zu kopieren und dann im ursprünglichen zu löschen. Klappt natürlich nicht -.-   Vielleicht kann mir dazu jemand genauer helfen?

Sub Bedarfsverursacher_ermitteln()

Dim Zielarbeitsmappe As Object
Dim Quellenarbeitsmappe As Object
Dim Sheet As Worksheet
Dim Pfad As String
Dim Path As String
Dim Datei As String
Dim SaveName As String
Dim filename As String

Dim FSO As Object

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set Zielarbeitsmappe = ActiveWorkbook

'Eingabebox öffnen
Pfad = Environ("Userprofile") & "\Desktop\Makro\Sven\"

Datei = Dir(CStr(Pfad & "*.csv"))
If Dir(Pfad & Datei) = "" Then
MsgBox "Hey Sven, leider habe ich keine Datei in dem Ordner gefunden"
Exit Sub
End If

'Do While Datei <> ""

Set Quellenarbeitsmappe = Workbooks.Open(Pfad & Datei, False, True)
Quellenarbeitsmappe.Sheets().Copy After:=Zielarbeitsmappe.Sheets(Zielarbeitsmappe.Sheets.Count)

Zielarbeitsmappe.Sheets(Zielarbeitsmappe.Sheets.Count).Name = Datei

Quellenarbeitsmappe.Close

'Jetzt soll die zuvor verwendete Quellenarbeitsmappe nach "Environ("Userprofile") & "\Desktop\Makro\Sven\Importiert" verschoben werden und im Verzeichnis "Environ("Userprofile") & "\Desktop\Makro\Sven\" gelöscht werden.
?
Set Quellenarbeitsmappe = ActiveWorkbook
ActiveWorkbook.SavecopyAs Filename = "Environ("Userprofile") & "\Desktop\Makro\Sven\Importiert\filename" 
Kill "Environ("Userprofile") & "\Desktop\Makro\Sven\filename.csv"
?
Datei = Dir()

Vielen Dank!