Dim
strVerzeichnis
As
String
Dim
strDatei
As
String
Dim
strTyp
As
String
Dim
strDateiname
As
String
strTyp =
"*.csv"
Application.ScreenUpdating =
False
strVerzeichnis = strOrdner
strDateiname = Dir(strVerzeichnis & strTyp)
Do
While
strDateiname <>
""
Workbooks.Open Filename:=strVerzeichnis & strDateiname
Call
clean_File
Application.DisplayAlerts =
False
ActiveWorkbook.SaveAs Filename:=(strDateiname), FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
Application.DisplayAlerts =
True
strDateiname = Dir
Loop
Application.ScreenUpdating =
True
End
Sub