аЯрЁБс>ўџ  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ  ўџџџL.1 !"#$%&'()*+,-ўџџџ/03Nўџџџ45?789:;<=>ўџџџ@IBCDEFGH2JKMўџџџOQPўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFр+Чj3Щ &Workbookџџџџџџџџ__VBA_PROJECT_CUR"CЅ2„НУum3„НУVBAџџџџџџџџCЅ2„НУ`ьP3„НУ ЏЭЩ@сАСт\pmayeras e BАaР=гКDieseArbeitsmappeœЏМ=hxœ6ƒ"8X@"Зк1ШџArial1ШџArial1ШџArial1ШџArial1№џМArial1Ш Arial1Ш$Arial3#,##0\ "Ќ ";\-#,##0\ "Ќ "=#,##0\ "Ќ ";[Red]\-#,##0\ "Ќ "?#,##0.00\ "Ќ ";\-#,##0.00\ "Ќ "I"#,##0.00\ "Ќ ";[Red]\-#,##0.00\ "Ќ "q*6_-* #,##0\ "Ќ "_-;\-* #,##0\ "Ќ "_-;_-* "-"\ "Ќ "_-;_-@_-k)3_-* #,##0\ _Ќ _-;\-* #,##0\ _Ќ _-;_-* "-"\ _Ќ _-;_-@_-,>_-* #,##0.00\ "Ќ "_-;\-* #,##0.00\ "Ќ "_-;_-* "-"??\ "Ќ "_-;_-@_-{+;_-* #,##0.00\ _Ќ _-;\-* #,##0.00\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_-Є#,##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_-;_-@_-Ќ #,##0.00" MB"рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р рєџєР рЋѕџ јР рЉѕџ јР рєџєР р ѕџ јР рЊѕџ јР рЈѕџ јР рЌ Р р1 Р р Р “€ џ“€џ“€џ“€џ“€џ“€џ“€џ“€џ`…b Verzeichnisse…C Dateien 1Œ11Ўўџўџ& Verzeichnisse_auflistenСС€8ыZ№R№3 №П Р@@ё  їќџ ЏЭЩ@  y  dќЉёвMbP?_*+‚€%џСƒ„Ё"џŠ<ќ§~п?Š<ќ§~п?U } л9} m  Pfad:@зьШ№Ш№№А№( № №№x’ № “ №6€Ь<†…ПCƒCПР@П№-6№],BЬ<†р/—”Cц )†9ь №Ж$"<#Verzeichnisse und Dateien einlesen<">О@A @я7К Tabelle1 ЏЭЩ@ џ я  dќЉёвMbP?_*+‚€%џСƒ„Ё"џŠ<ќ§~п?Š<ќ§~п?seU } $} Жf} Iџџџџџџџџ џ џ џ џ џџџџџ          з&Ј@>Ж@я7К Tabelle2 Tabelle1џџџџџџџџџџџџ€__SRP_4 џџџџџџџџр__SRP_5 џџџџBTabelle2 џџџџл ўџџџўџџџўџџџ !"#$%&'ўџџџ)*+,ўџџџ./0123456789:;<ўџџџ>?@ABCDEFGHIўџџџKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}ўџџџ€<фjxЬћСѕСџџ#ˆЖџџџџџџџџ<џџ!њл#|_е…0„(З РF њл#|_е…0„(Зџџџџџџџџџџџџx њл#|_е…0„(З!њл#|_е…0„(ЗџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@џџџџџџџџџџџџџџџџџџџџџџ0 b&;$*\Rffff*1P3c69ad0aпџџџџ4ўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle1"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2rU€€€ ИyЁЩџџџџ™ 4ёЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€`rU€€€ џџџџџџџџ@n№Ьдџџџџг'ћСїСџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0 b&;пўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle2"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2Modul1 џџџџu4__SRP_2џџџџ6__SRP_3џџџџџџџџџџџџ(DieseArbeitsmappe$ џџџџџџџџ-ч2*\R1*#c0*\R1*#b3*\R0*#3*\R0*#11*\R1*#3c*\R1*#175*\R0*#f*\R0*#14*\R0*#13*\R1*#1e8*\R1*#c4*\R1*#cd*\R1*#b8*\R1*#c0*\R1*#b3*\R0*#fпўЪ™€ < € <P € < € <а € <€ <P€ <€ џџџџ€ >˜ € .и € џџџџ€(€0€8€@€H€P€X€`€h€p€ џџџџH€ xH€ €€ џџџџ"ˆ€>€а€р?шC '  +0€ *@>p "ˆG˜CИ а "р№€ џџџџ€ ј*@P0h %˜ Ј'А'Р'и'№n"RFџџџџ2‚)ћСэСџџЖџџT4@џџ#SHGetPathFromIDListA4@@OSHBrowseForFolderAџџџџџџџџџџџџџџџџџџџџџxџџRR џџџџџџџџџџџџџџџџџџџџME,џџџџџџџџпџџdџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Hџџ ”џџT> џџџџ”џџџџLџџџџLџџџџLџџџџPџџџџџџџџLџџџџLџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLџџџџLџџџџLџџџџLџџџџLџџџџџџџџџџџџ\џџџ џџenы@„@џџџџLџџџ џџ@„Bџџџџ<џџџ џџ №@„Dџџџџ,џџџ џџ@ё@„Fџџџџџџџ џџќ@„HH џџџ џџ?Х@„Jџџџџќўџџ џџer@„Lџџџџьўџџ џџft@„Nџџџџмўџџ џџI_їП@„PџџџџЬўџџ џџ „SџџџџШўџџ %`„VЈФўџџџџџџџч+jџџџџ`џџџџџџџџР џk€џџџџ}ŒIƒVџџџџ џџ џџџџџџ€$ „Є` XџџџИ@%`„ІџџџџTџџџџџ`„ЈџџџџPџџџџџh‰`„BџџџџLџџџџџј`„Њ Jџџџџџ1000џџџџџџџџXи@џџџџРƒџџџџџџhџџџџџџџџџџџџџџ%ˆ(џџџџџџџџP №8 Р0џџџџџџџџ    џџџџ`(ˆџџџџXџџџџ0џџџџџџџџџџџџџџџџh Hр џџџџџџџџ џџџџџџџџџџџџџџџџH`џџџџX^djl~|z@ўџ@Рўџџ џџ (€`@ўџpМўџџ џџ ge T@ўџИЌўџџ џџ enџџ@ўџ Јўџџ џџ œ@ўџ˜ўџџ џџ џ @\xˆўџџ џџ’@ўџаxўџџ џџ h@ўџшhўџџ џџ З @ўџЈXўџџ џџ р@ўџHўџџ џџ Ж"@ўџи8ўџџ џџ en O@ўџџџџџ4ўџџџџ V@ўџp$ўџџ џџ ›ˆH <@ўџјўџ џџ Ers˜p g abrupP(€n@ўџРўџџ џџ P@ўџ№є§џџ џџ P(€@ўџ€ф§џџ џџ P@ўџд§џџ џџ Verz@ўџ Ф§џџ џџ Ќ@ўџ8Д§џџ џџ P@ўџPЄ§џџ џџ z@ўџh”§џџ џџ @ўџџџџџ„§џџ џџ D@ўџ˜t§џџ џџ P@ўџАd§џџ џџ d se@ўџШT§џџ џџ $€@ўџрD§џџ џџ \@ўџИ 4§џџ џџ $~@ўџ $§џџ џџ 8ј @ўџИ§џ џџ x  €‚ŠšœЂЌ @ўџџџџџ§џџџџ а 5@„и§џџ џџ@†№ќџџ џџ@ўџррќџџ џџ јИ?@ўџџџџџаќџ џџ € р?@ˆРќџџ џџ@Є`Аќџџ џџ@Ž  ќџџ џџ@’џџџџќџџ џџ@ўџџџџџŒќџџ џџ Ј h F@ўџИ ˆќџџџџ а  F@ўџџџџџ„ќџџџџ ј И F@ўџџџџџ€ќџoџџ € р F@ўџ |ќџџ џџ @ўџ8 xќџџ џџ @ўџP tќџџ џџ @ўџh pќџџ џџ @ўџџџџџlќџџ џџ  р WџџџџрZ@ž \ќџџ џџ@ўџа Lќџџ џџ @ўџш <ќџџ џџ @ўџ ,ќџџ џџ @ўџ ќџџ џџ @ўџ0 ќџџ џџ @ўџH ќћџџ џџ @ўџ` ьћџџ џџ @ўџx мћџџ џџ @ўџ Ьћџџ џџ @ўџЈ Мћџџ џџ @ўџџџџџЌћџџ џџ џџџџ€Рџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџ№џџџџШ џџџџ0 џџџџА џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџш џџџџџџџџџџџџџџџџџџџџ` ˜ x `jџџџџxџџџџџˆ `  џџџџџџџџЌ6Ў.Ђм@ўџџџџџ8џџџ џџ @ўџџџџџ4џџџџџ џџџџўџџџџџџџџ Р%џџџџш @ўџџџџџџџџџџ @ўџџџџџџџџ џџ џџџџАиџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџ  b&;$*\Rffff*1O3c69ad03(*\Rffff*1O3c69ad03\0*\R1*#228*\R1*#229*\R1*#c4*\R1*#cd*\R1*#b8*\R1*#c0*\R0*#1  LЏ p€ џџџџ*ˆ,5И0ш & € <H%ˆ€ <Ј€ ш * $30X€ DhАИ(Рш№  (0€ џџџџ€ .8€ џџџџ(Yh  ˜  И Р*Ш".ј € џџџџ0@P,У`0gMР рш№5(K0€ &FtH <XAx ˜ АИ".а ј€  € џџџџ( Дх0 ш € џџџџ€ >и € . € џџџџB № €ј € € € "  H € X  p .€ А  И Ш € *а  €  ,( € 8 X )h  € %ˆ #  И Р Ш а € џџџџ€ џџџџџџџџир Hyperlink auf die Datei einfќgen№^ђ^ђ0^ђH^ђ`^ђx^ђ^ђЈ^ђРpџџ–и–X–Р]ђђђ0ђHђ`ђxђђЈђРђиRm]ђ№ђH3]ђ(эЌ X%Z.P?ef)эЌ X%Z.R ^'\Ж P(€`8Ж R(€`џџџџр$ќberflќssige Tabellenblфtter lіschenџџџџџџ X!Z!bЌ œџџЗ d(f џ BўЌ X!Z!b’~1.XЌ X%ZB@hџ BўШЗ d(fџџџџџџkџџр Pfad abfragenЖ"Wфhlen Sie bitte einen Ordner aus:'Vb V$j'<z0 <Ж›G|jЇZ < l$~'>р$ Ersten Eintrag abrufen. < P(€nЌ'@ЖPfad P(€pЖ UnterVerz. P(€rЖ Anz. Dateien P(€tЖDatgrіпe in Verz. P(€vЌ'DЌ'F | z!bЌ P%x%!~ | z!bЌ P%x%!~bџ Hў D F’Pfad HЌ P%x'<р" Pfad setzen.ь <Ќ$€Ж\›G <Ж\'<j № < l$~'>р( Ersten Eintrag abrufen.Ќ'J >Жbр Schleife beginnen.р5 Aktuelles und ќbergeordnetes Verzeichnis ignorieren., >Ж. >Ж..œbЋ9р6 Mit bit-weisem Vergleich sicherstellen, daп Name1 einsse р Verzeichnis ist. < >$‚ l lœ @Ќ '@ < >Ж\ @Ќ P,x JЌ 'Jleр>Eintrag nur anzeigen, wenn es sich um ein Verzeichnis handelt.kџџHkџџ@ ~'>р Nфchsten Eintrag abrufen.Йџџ J HЌ P,xџ HўШŠ<ќ§ FЌ 'D H'FЙџџШр'Dateien aus den Verzeichnissen auslesen | z!bЌ P%x%!~'LЌ'„Ќ'†џ JўЌ L’Ќ'@Ќ'NэЖScripting.FileSystemObject$Š.ˆэ JЌ P%x ˆ%Œ.Єэ Є!.Žџ ’ў Ž“ „­œ †Ќ '† X!Z!b X%Zб˜ X!Z!”B@–ЖDateien †Ќ  †Ќ X%Z(э †Ќ X%Z.RЌ'„kџџ „Ќ '„ @Ќ '@ ’! „Ќ R,x ЄЖ\ ’! „Ќ R,x ’$š „Ќ R,x ’$œ „Ќ R,x N ’$š 'NџЧH @ JЌ P,x NЌЌ JЌ P,xџ JўШ рMsgBox (ii * 65536) + i ^'žІ ЖAnzahl der Verzeichnisse: JЌ $ЂЖAnzahl der Dateien:  †­ „ Ќ $ЂЌ $ЂЖDauer:  ž \ Жnn:ss$ЌA@ €oџџ–@]ђ ]ђР]ђиђ№ђр Ausgangsordner = Desktop­ Є( р Dialogtitel V$ЌœЖ"Wфhlen Sie bitte einen Ordner aus. Є($dџџH V Є($kџџ0р# Rќckgabe des UnterverzeichnissesЎ Є(&р Dialog anzeigen Є$6'Bр Ergebnis gliedernЌ$ Ў'І BЯ ІЯ$.'Ј Јœ ІЌ$ Ђ„'Њ І ЊЌ $м'jdџџ@Ж'jkџџ0iџџ(р7 Muп erwфhnt sein: Diese Funktion stammt nicht von mir., р' Die Quelle ist mir nicht mehr bekannt.e.І „Ќ R%xбж ЄЖ\ ’!бк R!дB@”џџџџ`р7 Muп erwфhnt sein: Der API-Aufruf stammt nicht von mir.р' Die Quelle ist mir nicht mehr bekannt.џџџџ0 р6######################################################р6# #р6# Diese Makros stammen von Bert Kіrn #р6# E-Mail: bert@bert-koern.de #р6# Homepage: http://www.bert-koern.de #р6# #р6######################################################џџџџH џџџџИAttribute VB_Name = "Modul1" '#+2p 0#8Diese Makros stammen von Bert Kіrn` 8E-MaiPl: b+@-koern.de4 8Homepage: http://www.”8Œ+ДЊ Muп erwфhnt sein: Der API-Aufrufƒ•t nichta˜mir.€Ј Quelle ist meh‚r€Jkannt@ Public Type BROWSEINFO„ A5hOwn@s LongУpidlRoot AJszDispиlayТ•РSРšХ €lpszTit# ulFlags!ЫlpfnLPaˆramЫiIm€oЧEnd1 Declare€ FunctiР‘SHGetPathFromIDLСDLib "shРH32.dll" Alias " A" (ByV˜al ?, ФмszСC=)E’"BrowseFoрrFold€W"Œ !lpInfoЧlH Sub@ Verze€†nisse_aufBlрen()Рim Pfad1, 6РAnzahаl, X@0`@HX2,b, €v€ , Grіпe‰УTB@TB2Work@)etC8msgЁƒ!`et†   Thisa book.†s(Њ1@SЂ2И2  ƒ@‚= Now  € .[a:D]€"@˜ ъ'ќ zflќssige Tabbnblфttр.lіschen If !.Cou`o> Ž2 AЁbApp fJaK.„^Al€sс Falsр#С<„ X@3 Toћ ku#3).DeletФ Next ЦXC9Tru ЁbIfab'т= ab|frрf a5`РWфhl ЎSie 4bi`# `рOrТdСaus:€+сBF`getdir€ectory(€O3С)%"""& рExit €QbM!рDir(", vb€# ) ' Erst@EinЮtрРРœen •с }у=2С=ЂЄ "W  2{уЃ1‚BСdТbYУUn@Сc.‰cƒ€]. DatehienЩdУ g1Ё` inЂcEX0 GX1gDo W,hi`ŸC Ps(R€CK, 1).€4(xlUp).Q <>e./2,Ѓс"BM!g`€MX~1G'"&` gё=1œ) PБftzІƒaрRightЅsАР "\Єs&ў €зŸŸŸъёН№ 0GІгС"а $Scр+ifР+eginnJ' Akbt‚ps u bAgФeo‘-tes$R ignorieюrњ0Ч.0b0T2Dё1' M/P4-weise’mgl! s Xeс-Pyn, daЎпГWб67'; sQz;ХР(€lqœ3 &я# _p Њ4=љВ87Я.А^А„+ #ї!џг!* UУмЄbЪ'…p>ъё№= XT™єDr РT dNб„'sћр`l0А`Y# wп`— _CWCSi№”ўiБЄ3сAёаplPƒќnzС–Г Ф~‹фQyf‘mCre QObjАZ("Scripting.RF MSyРmГ"ЧД`‚pfs. +ЃŽо(Ч ё‘%йcсsГ Sс Each f1 In fccР016553>6ј-‚@vuheets.Add.€Move AfР`ь:=r(ѓЂф ?Гrp[б)Р "НU "€;9 СЁ”=€ ћ’а (”Ѓqty0љai †у;`„B2фeiФ=f1.П! гQ”гgрЂ0fр 'а]PŠ'H@Уrlˆink`-f dрƒѓсї–ra№Єchor0™2)€Іddress№:= _УЁ6явЩ z 3!;Б(Len(nfёЄ‘*4%A T8imewE/s+ эŽNP—е 1Ф#,‚Уrz, bƒ€/ 1024 cгЂOу'MsgBox ё* В-к)iгSeАQPїАA$"d!ХЁ жE : с& ЭВz & Chr(13)_ "Anzahl der Dat€eien: "Œ(ii * 65536) + i$€("DauerzFormat(ende - start, "nn:ss") End Sub ' Muп erwфhn t seiDiese Funktion>mmt nicht vamir.9' Quelle ist $mehr bekannRt) Kc‚%getdirect@ory(Op al msg) As StringƒŽDim bInfo BROWS EINFOPathr Long, XposInteger^ Ausga€ngsordn€П= Desktopƒ1>.pidlRoot = 0&Dialog titelƒIf€ IsMiss^Т(‚eThenƒ ѓƒ$lpszTitK= "Wфhlen Sie b`itte ^РOAC"aus."УExlseY€ РtIfC(RќckgaDbe€•s U€stdo le [)*\G{00€020430-C 0046}#2.0#0#C:\WIN_98\SYSTEM\b2.tlb_VBA_PROJECTџџџџџџџџџџџџAПdirџџџџџџџџџџџџ=@__SRP_0џџџџџџџџJЦ __SRP_1џџџџџџџџџџџџ~А_fcоё €џџџ_B_var_f1Ьё €џџџ_B_var_endeIЉ _B_var_Chr\; _B_var_Formatр _B_str_Spaceу _B_str_Chrm# _B_var_LeftQс €џActiveSheet%N €џHyperlinks:•Anchor#r €џSelectionZЎ€џAddressЇХџџxџџџџџџџџџџџџ џџџџџџџџџџБ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH€@30-0000-0000-C000-000000000046}##OLE Aut€omation‡MSF€orms>SF€Drms3€H‚CD452EE1-E08F-101A-8-02608C4D0BB4–CFM20.DLL#Micro soft 9 €[ ObЋ Lib€rary/;€B~1€„~rˆ~ˆ~0а0}#0‚~#€бži0ž€€AE56DE36C-AA13-45E6-9C16-8016F66B7995Ш5DOKUME~1\BF€W\LOKALTemp\VBEТ\„R.exdр:€ €с.E р….`ŒM ДAЄCˆOfficDˆOf@ic5BˆŒР ‚РA02DF8D04C-5BFAAfB-BDЄE5РHAA@‡4Р2E0E:\PRO GRAMM+ICROSOFT O@FFICE\„M0SO97Œkƒ" 8\.0Ьk!€BЫТћС@Tabelle1GAaŠb@/lBЙ1ЪŠ2вР HB‚1BгвBE,ТѕС"B+ЋBЪ2б2Ы2qд2o-pїl!{`Modul a~Mq`idu`!Ї2'т~Љя ˆ)oэС !j DieseArbeits€mappeG"(DiР-s`A*rB/iРŒs{aкp eР в2пТ?$aЈѓ*$!A“K*mџџџџrU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~# ЩэмXРЖeе…0„(З фџџџџƒŠa 9џџџџџџщ џџџџџџџџџџџџ ˆa Б џџџџаџџџџIyQ ‰ џџ) џџџџџџџџџџџџA9A!љС VBAProjectTabelle1Tabelle2Modul1DieseArbeitsmappeяРFBC:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA qџџџџ ™)0РF 3E:\Programme\Microsoft OrU€€€€~| 8Щ! љ I q ™ С й љ ! I Љqщ с ) i ‰ б ё I i ‰ Ё сЙ б щ Q С‰ЙљйQ1 yЁщq qYiЩсй I џџџџџџџџL 4 ?Јў(Ќў%МўРўѕ $ РРў Мў dQЈўќќЬў)РўМўCЈў(Ќў%МўРўѕ $ РРў Мў dlЈў=Шў)РўМўЈў˜ў ˜ўќіˆў':hў%:Ќў%Ьў§ŸўЂ8ўћџџџ§Ÿ,58ў+:xў%˜ўѕ :Ќў%Шў 0˜ў§Ÿ,5˜ў>4ўМўРўѕ $ РРў Мў 0l4ўѕл)РўМўў"єѕ Рў$ Рў р РўG(hў<џ4ўМўРўѕ $ РРў Мў 0l4ў§ixў)РўМўўhўмCЈў(Ќў%МўРўѕ $ РРў Мў dЈўў˜ )РўМўЈў <џў~ўŽ"єџѕ Рў$ Рў р Рў CФўФўMЌў@ F˜ўќіlџlџ:Ќў]ћ31ѕlџ F˜ўќі\џ%ќэlџ:Ќў%Ьў§ŸўЂ8ўћџџџ§Ÿ,58ў (ЌўќіLџ':hў%:Ќў%Ьў§ŸўЂ8ўћџџџ§Ÿ,58ў':hў%:Ќў%Ьў§ŸўЂ8ўћџџџ§Ÿ,58ў':hў%:Ќў%Ьў§ŸўЂ8ўћџџџ§Ÿ,58ў':hў%:Ќў%Ьў§ŸўЂ8ўћџџџ§Ÿ,58ў (Ќўќі,џ (ЌўќіџЏўСўОяџџ%Рў$ ЄРўa˜ўvќ"§iЌў%(hў%Ьўџ>Hўџ>8ўџAT§ўС”§Ояџџ%Мў$ ЄМўaф§vќ"§iд§%(Д§%Ьўџ>t§џ>d§џAD§ћ@)РўМў6˜ўHў8ўф§t§d§T§D§|,џ џџўh§\ џ§“ @(xў%ЬўџB˜ўќіlџ#ѕlџ˜ў  ˜ў:Ќў]ћ@5˜ў<lџ:Ќўћя˜ўќіlџѕlџ F˜ўќі\џ (Ќўќіќў\џ:Ќў]ћ@5%\џ:Ќў]ћ<˜ў\џ:xў]ћHўџ>8ўџAф§ќіьўРў6˜ўHў8ў (Ќўќі§ (Ќўќі№ќ(xўќўьўўhаќ8 (ЌўќіLџ (Ќўќімўѕ˜ў ˜ўРќўN.ќў§“ @(xў%ЬўџB˜ў%РќџBHў!АќўN5˜ўАќџA˜ў" ќўN ќќў‰€ќу §ўСЌў]ћ3!№ќ(Ќўћ”˜ўќі№ќУxќ4ўМўРўѕ $ РРў Мў 0l4ў§iЌў%|ќЈўѕ $ РЈў |ќ dQxќ§o˜ў%lќѕ 'ў%'Xў%'hў%'xў%pќtќѕ $ Рtќ pќ (lќўІ#$)РўМўЈў|ќtќpќlќ5˜ўg:xў%№ќ(Ќўћ”˜ўћяHў%Јў№ќ(hўћ”8ў%МўРўѕ $ РРў Мў dЈўў›&)РўМўЈў6˜ў8ўHўMЈў№ќ(Ќўћ”˜ў%МўРўѕ $ РРў Мў dlЈў=Шў)РўМўЈў5˜ў (Ќўќі§§(Ќўћ”˜ўќі§Lџ(Ќўћ”˜ўќіLџ5§§“ @(xў%ќџA˜ў&%РўШў аРўўЄРў5˜ўK§§“ @(hў%Аќ:Ќўћя˜ўќџAHў&ћя8ў%РўШў аРўўЄРў6˜ўHў8ўt§§“ @(xў%РўШў аРўўЂф§%Аќ:Xўћя˜ўќџAHў&ћя8ў%МўШў №МўўЊЕ)РўМў6˜ўHўф§8ў<§§“ @(xў%ќ§ў§^'§iXў%РўШў аРўўЄ/§РўA§§“ @(xў%ќ§ў§˜ў (ќэ˜ўРўШў аРўўЄ/§Рў5˜ў мўќ§ў§^'§iЌўћ”˜ўќімў/§ ќўŒ€ќzќў§“ @(xў%ќэLџЬўџD.ќў§“ @(Xў%мў(ЌўћМ˜ў(xўћМHў%ЬўџD ќўў~аќў˜ў ˜ўќі\ќхѕ Hў )ѕ D§ )ѕ Lќ )ѕѕ:ў*Nќћќћ\ќˆўћœќќі ќ ќьћ +'Ќћ'Мћ'Ьћѕ:Ќў,ќўћя˜ўHўћя8ў:xў-ћяф§№ќўСhўћДt§§ћ”d§ћяT§D§ћя4§Lќћя<ќ:Xў.ћя,ќьћћямћ /6$˜ўHў8ўф§d§T§D§4§Lќ<ќ ќќћ,ќьћмћЬћМћЌћ‰а4 ˜€€ќŒќ$ўў$§§рќаќ§мўФўќўќЬў ќРќШўьўLџ№ќlџ\џ\ќАќ,џˆўџ џ<џ€§РўМўЈў|ќxќtќpќlќ˜ўHў8ўф§t§d§T§D§4§Lќ<ќ,ќќ ќќћьћмћЬћМћЌћŒ ѕq\џ l 0$1Cdџ9§ 8џќ#4џCdџ/4џ ѕqhџ,Xџџ2џ^3qџ<џXџ 2lџqLџўіџ2ѕ 41Tџ)lTџ4џ4l4џlLџ^5qџyAfterЁXFileLenз FileDateTimeendeнCMsgBox—RChrK~bInfo”Path2riposдФ IsMissing˜эSpace ю DieseArbeitsmappeЏWorkbookk€џ_DefaultjТ €џџџ_B_var_startъЪ _B_var_Right9й€џџџ_B_var_i Ђ €џџџ_B_var_iiSђ €џџџ_B_var_fsюё€џџџ_B_var_fЂ €џџџ_B_varF  a:DеРF Delete DWфhlen Sie bitte einen Ordner aus: a2 a1 UnterVerz. b1 Anz. Dateien c1 "Datgrіпe in Verz. d1 CellsEndRow \ . .. 4Scripting.FileSystemObjectGetFolder Files AfterMove Dateien Name 4Anzahl der Verzeichnisse:  (Anzahl der Dateien:  Dauer:  nn:ssб шVBE6.DLL сџџџџ" ј сџџџџ…  сџџџџk 8 сџџџџC X сџџџџЬ x сџџџџB ˜  сџџџџA И сџџџџ` и сџџџџ” ј сџџџџS  DWфhlen Sie bitte einen Ordner aus. сџџџџP 8 сџџџџ  X сџџџџ x  сџџџџi ˜!њл#|_е…0„(З РF њл#|_е…0„(ЗDРF Worksheet @UrU€€€€~} џџџџџџџџџџџџ џџџџ џџџџpidlpszPath lpBrowseInfўџџџ‚ƒўџџџ…†‡ˆ‰Š‹ŒўџџџŽўџџџ’“”•ўџџџ—ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџomsg AёcTabelle1Tabelle1Tabelle2Tabelle2DieseArbeitsmappeDieseArbeitsmappeModul1Modul1ID="{2268A50E-5F16-11D5-851E-00308428B70F}" Document=Tabelle1/&H00000000 Document=Tabelle2/&H00000000 Document=DieseArbeitsmappe/&H00000000 Module=Modul1 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D4D6457F4593499349934PROJECTwmџџџџџџџџџџџџƒPROJECTџџџџ„SummaryInformation(џџџџџџџџиDocumentSummaryInformation8џџџџџџџџџџџџ‘99349" DPB="ECEE7D678D7E8E7E8E7E" GC="0406958FB5A6B6A6B659" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Tabelle1=0, 0, 0, 0, C Tabelle2=0, 0, 0, 0, C DieseArbeitsmappe=0, 0, 0, 0, C Modul1=0, 0, 444, 440, Z ўџр…ŸђљOhЋ‘+'Гй0Ј@H\p ˆ ” ф Bert Kіrn  andreas e Microsoft Excel@ЇsўѓР@€E3„НУўџеЭеœ.“—+,љЎ0ь PXt |„Œ” œ Ффprivate Verwendung ќ Verzeichnisse Dateien 1 Arbeitsblфtterўџ џџџџ РFMicrosoft Excel-ArbeitsblattBiff8Excel.Sheet.8є9ВqCompObjџџџџџџџџџџџџ–iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ