Do
While
strDateiname <>
""
Workbooks.Open Filename:=strVerzeichnis & strDateiname
Call
clean_File
ActiveWorkbook.SaveCopyAs Application.Substitute(strDateiname,
".csv"
,
""
)
ActiveWorkbook.Close
strDateiname = Dir
Loop
Application.ScreenUpdating =
True
End
Sub
leider bringt dies auch nichts weil dann nicht mehr gespeichert wird:
Do
While
strDateiname <>
""
Workbooks.Open Filename:=strVerzeichnis & strDateiname
Call
clean_File
Application.DisplayAlerts =
False
ActiveWorkbook.SaveCopyAs Application.Substitute(strDateiname,
".csv"
,
""
)
Application.DisplayAlerts =
True
ActiveWorkbook.Close
strDateiname = Dir
Loop
Application.ScreenUpdating =
True
End
Sub