'
' Makro1 Makro
 
    Range("A1").Select
    ChDir "C:\Test"
    Workbooks.OpenText Filename:="C:\Test\Kopie von 520_65_Lohn.txt", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
        2) _
        , Array(3, 2), Array(6, 2), Array(13, 2), Array(18, 2), Array(21, 2), _
        Array(23, 2), Array(32 _
        , 2), Array(43, 2), Array(82, 2)), TrailingMinusNumbers:=True
    ActiveWorkbook.SaveAs Filename:="C:\Test\Kopie von 520_65_Lohn.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False