Sub F_en()
Dim WB As Workbook
Pf = "z:\BILDER_NAS\myExcel\VBA\Foren\" ' <<<<<<<< anpassen >>>>>>>>
f = Dir(Pf & "J*.csv")
Do While Len(f)
Workbooks.OpenText Pf & f, xlMSDOS, , xlDelimited, xlTextQualifierNone, True, , True
With ActiveWorkbook
With .Sheets(1)
.Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=False, Semicolon _
:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array( _
Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers _
:=True
lr = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("CB1:CB" & lr).Value = 90
.Range("CC1:CC" & lr).Value = 50
End With
f = Replace(f, ".", "_1.")
.SaveAs Pf & f, xlTextMSDOS 'xlCSV
.Close 0
End With
f = Dir
Loop
End Sub
|