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
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
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
?
Set Quellenarbeitsmappe = ActiveWorkbook
ActiveWorkbook.SavecopyAs Filename = "Environ("Userprofile") & "\Desktop\Makro\Sven\Importiert\filename"
Kill "Environ("Userprofile") & "\Desktop\Makro\Sven\filename.csv"
?
Datei = Dir()