аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ !ўџџџўџџџ #2ўџџџ$%&'0)*+,-./"13546ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF•eqšЉЦР@•ђЊЉЦ€1WorkbookџџџџџџџџЧ_VBA_PROJECT_CUR"АНPђЊЉЦР@•ђЊЉЦVBAџџџџџџџџАНPђЊЉЦ№‡ђЊЉЦ ўџџџ!"#$%&'()*+,-./012ўџџџ4567ўџџџ9ўџџџ;<=>?@ABCDEFGHIJKLўџџџNOPўџџџRўџџџTUVWXYZ[\]^_`abcdefghijklmnopqrstuўџџџwўџџџyz{|}~€ ьЭЩРсАСт\p n.freiburg BАaР=гКDieseArbeitsmappeœЏМ=H;МCД-8X@"Зк1ШџАArial1ШџАArial1ШџАArial1ШџАArial1ШџАArial#,##0\ "DM";\-#,##0\ "DM"##,##0\ "DM";[Red]\-#,##0\ "DM"$#,##0.00\ "DM";\-#,##0.00\ "DM")$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">*9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->)9_-* #,##0\ _D_M_-;\-* #,##0\ _D_M_-;_-* "-"\ _D_M_-;_-@_-F,A_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-F+A_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р ѕџ јР р,ѕџ јР р*ѕџ јР р1 Р р Р “€џ“€џ“€џ“€џ“€џ“€џ`…;ImportŒ11ЎСС"ОќџccІ ьЭЩР їs  dќЉёвMbP?_*+‚€%џСƒ„Ё"џŠ<ќ§~п?Š<ќ§~п?U џџџз d( >Ж@  я7К Tabelle1 DieseArbeitsmappe$ џџџџџџџџ ”__SRP_4 џџџџџџџџ30__SRP_5 џџџџ8BTabelle1џџџџ:ˆDфr€д}8pџџ#ˆЖџџџџџџџџ<џџœ-ФЊH†ašЮ.<ŒЖРFаЬЙFОЅеO›BbніХ‡џџџџџџџџџџџџxаЬЙFОЅеO›BbніХ‡œ-ФЊH†ašЮ.<ŒЖџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@TTџџџџџџџџџџџџџџџџџџџџџџ08д,FК$*\Rffff*2>462ccc39пџџџџ4ўЪџџџџџџџџxџџџџЖАAttribute VB_Name = "DieseArbeitsmappe" "  Bas 0{00020819ъ-0C$ 0046} |GlobalкSpa‚cIFalse dCreatablPredeclaIdЖTru BExposeTemplate`Deriv’BuРstomizD2rU€€€ и9 a ‰ џџџџ #4Б щй џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЮ`rU€€€ џџџџџџџџ@nDфr€д}8iЁџџ#ˆЖџџџџџџџџ<џџ5+љ%…јŽGЛZ8›№ž*ž РF0 /mCЌq‰m–bџџџџџџџџџџџџx0 /mCЌq‰m–b5+љ%…јŽGЛZ8›№ž*žџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@HHџџџџџџџџџџџџџџџџџџџџџџ08д,FК$*\Rffff*2?462ccc39пџџџџ4ўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle1"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2rU€€€ Ai‘џџџџ4Й сџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_6џџџџ џџџџMф__SRP_7џџџџџџџџџџџџQBModul1џџџџX__SRP_2 џџџџSКџџџџџџџџџџџџџџџџџџџџџџџџ‹`rU€€€ џџџџџџџџ@nrU€€€€~| ( ‘q С™I )С Yљщ1‘ i Щ щ ! A q Љ ‰СQ)q  Ссљ ierРen() д t.ŒDescri ptionšakro am 17.07.2006 v4n.freіrg aufgezeichnetw_ProcDatakInvo€ke_Funck \n14@Dim i As Integer, тt ObjektDLGDialogChDir "C:\€)Set ‡= Appl(icau.s(xlƒFindFјile€—ƒ( `.Showƒ ƒ'A8Excel„:Workbooks .OpenЙ ,Вnз:=N\в.txt", Origin:=932, StarРtRow _ƒ3B := ЃType:=@-elimited,Т|Qualif€|ТoubleQuote, Consecu tiveD„r: =FalsР TabЦSemico lo@$DCommŽaФ‰@+pac@$!Ф OtheРTrFu€Cha"=@9FieldInfo:=Array(C1, 21Щ), €<1)@TrailingMinusNu€mbers:=СHFor= 1 To 3GMCells(i, 5).РmulaR1C1Сž=MID(RC[-3],р2,15)Do[† Ц7  2]*Сл ! Copyа8)€.SelectЧУ@н.PasteаSpecРВ qValuesР‡perТ­!Non€+SkipBlaxnksi'сЦ8р&npsposХ3‡)aCќutЁРˆС‰т8Бу. Ё(at(#,##А0.00ф&CNР ic Xs("3 :3").РMeteуColumnq@B:GHƒЃ'tј in definРZ@žMap@pe schсeЬn:CaAcAZхn.УSheet.C9A.Count, 1).Endср~Up).У‹v‡vbтЈ.xls„ВW€‡ow@ˆz)уaХRange(Р"A1:B2РЩAџП1Р:чEgLьl-_%G€e_%" &рД+*Š‚1Ѓ/bX,І>A :BРУWidt2h€I20ƒ 9Saмve ТЗЇ ,т6DTŠЇxlNormal,сksword@Б ’Wr@ЈResЈReadOn lyRecРžendeРЉl„CreР;Backup„nа РK `ёAўџџџџџџџџш И @ўџ№ўџџ џџ џџ@ўџ рўџџ џџ џџ@ўџ8аўџџ џџ џџ@ўџPРўџџ џџ џџ@ўџhАўџџ џџ џџ@ўџ€ ўџџ џџ џџ@ўџ˜ўџџ џџ џџ@ўџА€ўџџ џџ џџ@ўџШpўџџ џџ џџ@ўџр`ўџџ џџ џџ@ўџјPўџџ џџ џџ@ўџ@ўџџ џџ џџ@ўџ(0ўџџ џџ џџ@ўџ@ ўџџ џџ џџ@ўџXўџџ џџ џџ@ўџџџџџўџџ џџ Ai!СЙ1 ‘"Ќ  BўС\џл%lџpџ$ pџ иlџўЂ<џ§ѓtџ)pџlџ5<џ tџў №ѕѕџўŽ€ѕѕ8џўŽ€(\џѕl8џR(Lџѕl8џR8џ<џ 8џZ<џќџѕѕ4џўŽ€($џѕl4џR(џѕl4џR4џџ 4џZџќџџ№ў џZѕ 'ў%c@ў%'ў%' ў%'0ў%ќэ№ў:Pў %c`ў%ќfpў%ќf€ў%ќfў%ќf ў%ќfАў%ѕўСРў%(аў%(рўЄ% pџ$ аpџ P pџ5№ўєzџєўcќ§::рў %kzџD\џ%($џ%ўџџџƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎўџџџАБВўџџџДўџџџЖЗИЙКЛМўџџџОПўџџџСТУўџџџХўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџ$ XpџўЂ<џџC pџ5<џ::рў%kzџD\џ%($џ%pџ$ XpџўЂ<џџC pџ5<џ8kzџD\џ%($џ%pџ$ XpџўЂџ§Ÿў˜pџ5џ8kzџD\џ%($џ%pџ$ XpџўЂџ§Ÿў˜pџ5џGўС\џНяџџ%ўС$џвяџџ%ќfрў%ќfРў%pџѕ $ АpџўІ pџ#єчѕ pџ$ pџ Œpџ%:\џ%pџѕ $ Аpџў›pџ zџdќ§Ё1:\џ%pџ$ ЄpџўЂџ§Ÿў˜pџ5џ1:\џ%pџ$ `pџўЂџ§Ÿў˜pџ5џzўСрўОяџџ%pџ$ Єpџa<џvќ"§i\џ%($џ%ј§lџ$ Hlџ 8ј§ўšџџ>№ўџAш§Upxџ)pџlџј§6<џџ№ўш§blџѕ 'Pў%'`ў%'pў%'€ў%'ў%' ў%'Аў%'Рў%'аў%'рў%'џ%'$џ%'Lџ%'\џ%pџ$ аpџ L )pџlџ?:\џ %pџ$ ЬpџўЂ<џ§ѓ!lџlџў 0)pџlџ5<џ(pџ'Lџ%:\џ"%$  pџў ыpџ#єчѕ pџ$ pџ Œpџ!pџѕ $ Аpџў˜pџ?:\џ#%pџ$ ЬpџўЂ<џ§ѓ!lџlџў 0)pџlџ5<џzўСрўОяџџ%pџ$ Єpџa<џvќ"§i\џ%($џ%ј§lџ$ Hlџ 8ј§ўšџџ>№ўџAш§Upxџ)pџlџј§6№t дШџџџџ Ф}8ИЂџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@(џџОЗб@ B@"иїѕЖ =RC[-2]*1 Ќ$z(F Ќ$zB@fFѕ Ќ$zB@H$BЗ v(xJpі]ђ€ЖC:\A@:Noџџрџџџџиџ ўШ i = 1џ ўЌЌ’Ж3:3$LB@RЖ Import.txt$~B@€B@HІ lбj pбnЗбrЗбt HB@hpЖ#,##0.00 H(JААЖ=MID(RC[-3],2,15) Ќ$z(FЖA1:B2$BB@Hla HB@f$~ ‚B@j ІЖC:\Excel\ImportierteTexte.xlsб$ ŠбˆЖбŒЖбŽЗбЗб’ „B@†З v(xction.ЌЖA:B$^(dct œ L!šЌ „!‚%z%!ž' џџџџhџџџџ0р$texte in definierte Mappe schreiben:xlsб œ L!šЌ „!‚%z%!ž' †ЖImportierteTexte.xls$~B@€4jџџџџhЖC:\Excel\ImportierteTexte.xlsб$ B@џџџџHЖA  Ќ $BB@Hџџџџџџџџxэ Ц v%Р.МlU МB@Ф(Laџџџџ рChDir "C:\Excel"~џџџџxџџџџŠДAttribute VB_Name = "Modul1" Sub TexteImport<џџ№ўш§;pџ'\џ%$kxџєЉћ§#ф§*F<џ%$  pџў ы/ф§pџ5<џpџ$ @pџў˜pџ3($џ%:\џ%%pџ$ `pџўЂ<џџC&pџ5<џ^ѕ '€ў%'ў%' ў%'Аў%'Рў%ѕќfаў%ќfрў%:џ'%:$џ'%ўСLџбяџџ%:\џ%pџ$ Hpџ Аpџ˜Ќ(rtџJ ф§pџlџј§<џџ№ўш§8џ4џџ7krU€€€ џџџџџџџџ$`§џџџaбn__SRP_3џџџџџџџџџџџџvo_VBA_PROJECTџџџџџџџџџџџџ(ddirџџџџџџџџџџџџxM__SRP_0џџџџџџџџ‚ џџџџџџ  џџџџџџџџџџџџ 6@00000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Programme\Microsoft Office\OFFICE11\EXCEL.EXE#MicrosoftIВ€0* pH‚dф VBAProjeˆct4@j = r 8д,FК” J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`ƒEOffDic„EOf€iдc‚E €–€E2DF8D04C-5BFA-10€1B-BDE5€EдAA€C4€2ˆE€˜gramme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.0DLL#‡ƒN 1@1.0 ObТ €LibraryLE‚е‚}8€ DieseArbeitsmappeGR" ils€APrbРi_s@map@eT“2ЄHB1B€к,B,B)p#+Т РTabellep1GA$'lmB…1€%Щ2вуiЁЫAЃModul‹@СЉM@ЂduРЛAG2ТЊIЯЪ€^qЭ:ИЂ!Р3Х:С6 џџџџџџ8д,FКџџџџџџџџџџџџ“K*yџџџџrU€€€€~~~~~~~~~~~~~~~M щѕЂ *Я:N”~ВS|—Ў фџџџџƒŠe љ џџџџџџ ƒŠe љ џџџџџџ9ˆa Ёџџџџ€џџџџйџџY 1Projekt1 VBAProjectDieseArbeitsmappeTabelle1Modul1яРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA qџџџџ ™0РF 0C:\Programme\Microsoft Office\OFFICE11\EXCEL.EXEExcel iџџџџ‘@0РFC:\WINDOWS\system32\stdole2.tlbstdole qџџџџ™сPLај-њ[НхЊDоRAC:\Programme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.DLLOffice aџџџџ‰`Makro3  C:\Excel &C:\Excel\Import.txt =РFйРFq™џџџџлРF E1 "=MID(RC[-3],2,15) #,##0.00NumberFormat 1:1 Delete 3:3VBE6.DLL qџџџџ ˆ qџџџџY ЈqШ B:DEntireColumn Hidden A:AColumnWidth =RC[-2]*1 G1 G:G E:F H1 PasteOperationSkipBlanksTransposePastЬayџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Programme\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation,*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Programme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library џџџџџџ8д,FКџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ}8"DieseArbeitsmappe2>462ccc39џџ"DieseArbeitsmappeџџpкџџTabelle12?462ccc39џџTabelle1џџiЁкџџ Modul10g462cd9acџџ Modul1џџИЂ0ЪџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ?NcКЏ4IJW