аЯрЁБс>ўџ  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ  ўџџџB-1& !"#$%'()*+,ўџџџ./2ўџџџ@345>789:;<=0?AўџџџCўџџџDўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFDсЫ†+ЧаDv™+Ч@"Workbookџџџџџџџџ _VBA_PROJECT_CUR"щу№˜+Ч@У-ё˜+ЧVBAџџџџџџџџщу№˜+ЧpАё˜+Ч ЏЭЩ@сАСт\p Nancy Erkmann BАaР=гКDieseArbeitsmappeœЏМ=xx‰It18X@"Зк1ШџTahoma1ШџTahoma1ШџTahoma1ШџTahoma1ШџTahoma#,##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_-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р ѕџ јР р,ѕџ јР р*ѕџ јР р HР р @Р “€џ“€џ“€џ“€џ“€џ“€џ`…Tabelle1Œ11ЎСС`iќвCIDLand Unterkunft іsterreichhotelgutschweiz deutschlandprivatschlechtitalienokportugalenglandprimasuper in ordnungmiesunterallerkanone Kommentar(e)џ$ pXИ  ЏЭЩ@ т ’  dќЉёвMbP?_*+‚€%џСƒ„MHP LaserJet 5Lм4Cя€ š 4d,,A4џџџџDINU"4јFлюЁ" d,,Š<ќ§~п?Š<ќ§~п?U } Жџџџџџџџџџ џ џ џ џ џџџџџџџџџ§ § § § ~ №?§ § § ~ @§ § § ~ @§ § §  ~ @§ § § ~ @§  § §  ~ @§  § §  ~ @§  § § ~ @§  § § ~ @§  § § ~ @§  § § ~ @§  § § ~ @§  § § ~ @§  § § ~ @§  § § ~ @§  § § ~ @§  § § ~ @§  § § ~ @§ § §  ~ @§ § § ~ @§ § § ~ @§  § § з0ˆЄ888888888888888888888>Ж@$$$я7К Tabelle1 DieseArbeitsmappe$ џџџџџџџџTabelle1џџџџД__SRP_4 џџџџ$р__SRP_5џџџџџџџџџџџџ(B ўџџџ !"#ўџџџ%&'ўџџџ)ўџџџ+,-./0123456789:;<=>?@AўџџџCDўџџџFGHIJKLMўџџџOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrўџџџtўџџџvўџџџxyz{|}~ўџџџ€№ЬдџџџџгGтImџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0S_ G&пўЪ€€ џџџџџџџџЭџџxџџџџpџџџџЪАAttribute VB_Name = "DieseArbeitsmappe" "  Bas 0{00020819ъ-0C$ 0046} |GlobalкSpa‚cIFalse dCreatablPredeclaIdЖTru BExposeTemplate`Deriv’BuРstomizD2€Option /licit <фjxьтцџџ#ˆЖџџџџџџџџ<џџ§ЅІpмOB‡рњlљŒi6 РFP/эqЂ3дHЋЕжЌЎcPџџџџџџџџџџџџxP/эqЂ3дHЋЕжЌЎcP§ЅІpмOB‡рњlљŒi6џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@џџџџџџџџџџџџџџџџџџџџџџ0S_ G&$*\Rffff*0=4709311aпџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџОАAttribute VB_Name = "Tabelle1"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2Op tion /licit rU€€€ ˆбљ!џџџџЉ4Iaqџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€`rU€€€ џџџџџџџџ@nrU€€€€~|  iљ Щ1YЩy‘a ) I 0 ќЦ  Ьt*Hџ:Lџ%\џ$ И\џ dQHџDџ\џ{(Lџ%($џ%DџўšФўќ‹(џ%(фў%DџўšДўќ‹\џќэДўќэФў$  Q\џ§oЄў%Hџ$ Hџўš„ўќіdџHџModul1 џџџџW.__SRP_2 џџџџ*Т__SRP_3џџџџџџџџџџџџBŒ_VBA_PROJECTџџџџџџџџџџџџ6XRffff*:;47096bfb*\R1*#175*\R1*#3c*\R1*#229*\R1*#b8*\R1*#c4пўЪE€€ џџџџ" €€ (€ џџџџ€ "Hp€ ˆЈ€ $Р0`ш € (&/H€ &p€ .˜ $LШ,M№ * 0iP,M€ А€ 2И $K№  ( 8€ >H€ @ˆ€ Ш€ >ш€ 4(€ `€ p€€ џџџџ"ˆ€ Ш*Ј0{.g˜  " X <jЏ№ ˜h  H  P Pp2Ш2ш22( ` HР 7€8АА1ш€ џ№єд(џџџџ……)тЂ№џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 6 џџџџ<,џџ<џџ<џџ< џџ<џџџџџџџџџџ”џџџџLџџџџLџџџџ<0џџ<4џџ<8џџ<<џџ<џџџџџџШ@ ˆ`џџџџџџџџџџџџpўJџџџџџџџџџџ$$„`„џџџџxџџџџџin`„ џџџџtџџџџџen`„"џџџџpџџџџџx 4џџџџ`џџџџџџџџиPўkџџџџџџџџџџ&„Шƒџџџџџџјџџџџџџџџџџџџџџ% „$џџџџPџџџ8џџџџ’ˆџџџџџџџџџџџџHPTD>&Њ@ўџ˜\џџџ џџ џџ@ўџˆLџџџ џџ џџ@ўџ8Hџџџ џџ џџ@ўџџџџџDџџџ џџ`џџh  xџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџРџџџџџџџџџџџџџџџџџџџџh0џџџџ€џџџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџјЈџџџџџџџџџџџџџџџџPxРАџџџџџџ@ўџ 4џџџ џџ џџџџ@ўџИ$џџџ џџ џџџџ@ўџаџџџ џџ џџџџ@ўџшџџџ џџ џџџџ@ўџєўџџ џџ @ўџфўџџ џџ @ўџxдўџџ џџ 0@ўџHФўџџ џџ @ўџ`Дўџџ џџ @ўџЄўџџ џџ @ўџH”ўџџ џџ @ўџџџџџ„ўџџ џџ @ўџа€ўџџџџ шЈ џџ@ўџџџџџ|ўџџџ џџаџџ џџ@ўџ zўџџџџ џџ8јўџ@ўџџџџџxўџџџ x џџ@ўџ`hўџџ џџ џџ@ўџџџџџXўџџ џџ ( џџџџџџџџџџџџџџџџјџџџџџџџџpџџџџ@X˜џџџџџџџџџџџџџџџџџџџџp@ШџџџџXџџџџџџџџџџџџџџџџџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџ@ўџPTўџџ џџ џџ@ўџџџџџPўџџ џџ  0Œўџџџџ  № џџџџ(џџџџџџџџџџџџјџџџџџџџџџџџџАШ˜џџџџџџџџџџџџџџџџџџџџxXрџџџџpџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџјџџџџџџџџџџџџАШ˜џџџџџџџџџџџџџџџџџџџџxXрџџџџpџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџјџџџџџџџџџџџџАШ˜џџџџџџџџџџџџџџџџџџџџxXрџџџџpџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџјџџџџџџџџџџџџАШ˜џџџџџџџџџџџџџџџџџџџџxXрџџџџpџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџ№P`џџџџџџџџџџџџ<ў@џџџџџџџџџџ>>E„№ˆўџџџ P„џџџџxџџџџџ џџP„hџџџџvџџџџџ џџ`„lџџџџtџџџ џџ џџ@„6Јdџџџ џџџџP„|џџџџbџџџџџР Ј((р , џџР ˆxўџџ џџ џџp tўџџ џџ џџ@ўџdўџџ џџ @ўџTўџџ џџ № Pўџџ џџ џџ@ўџ@ўџџ џџ рџџџџ<ўџџи `џџџџ№ џџџџ4џџџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ иўџџ џџ џџЈ дўџџџџ џџ@ўџФўџџ џџ џџЈ Дўџџ џџ џџ@ўџЄўџџ џџ џџ(  ўџџ џџ џџ@ўџўџџ џџ џџ@ўџ€ўџџ џџ џџ@ўџpўџџ џџ џџ џџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџЈџџџџџџџџџџџџџџџџџџџџPџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџ аџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Иџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџ џџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџР € џџџџр џџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџ`  џџџџџџџџџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@S_ G&$*\џџџџџџџxЭџџx–]ђ@ђXђp86]ЮЌЮЌђр:)oleрBereich: Spalten A : D (i+1)6 Mџ ўЌЌ’ xрBereich Zeilen: 2:9 (j+2)џ ўЌЌ’hen 'рarray fќllen mit DatenTabelleow.D Ќ Ќ %&!(  +$ Ќ œрwenn ID ќbereinstimmt Ќ$$ Ќ Ќ$$œр Spalte E bekommt neuen Eintrag:р 'Tabelle1.Cells(j + 2, 5) = Ar(j - 1, 3) Ќ Ќ %&!(Жœ Ќ Ќ$$ Ќ Ќ ,&dр!wenn schon einer da war, Spalte F Ќ Ќ %& Ќ Ќ ,& Ќ Ќ$$ Ќ Ќ ,&kџџHр +Kenntlich machen der "ќberflќssigen" ZeilenЌ Ќ Ќ %&!*(,kџџрkџџиџ ўШџ ўШр7Wer 's mag, kann auch die ќberflќssigen Zeilen lіschen:р9und wenn wir Zeilen lіschen, tun wir das immer rќckwфrts!рFor k = 10 To 2 Step -1р8 If Tabelle1.Cells(k, 1).Interior.ColorIndex = 3 Thenр- Tabelle1.Cells(k, 1).EntireRow.Deleteр End IfрNext koџџx–ˆoџџhyЗ'lЖTabelle1$Hѕroq]ђxђђЈђРђиЖA:D$ЊB@ЌЗ'ldЗ'lЌЌ7&ЌЌ7&$P T%V'6џЧH hЌ 'hЌkkЌЌЌ hс@6а(i), 0Ќ'hџ ўЌ D >!@Ќ7&%!F’ Ќ7&Ќ h+6x Ќ7&Ќ h+6X Ќ7&Ќ h+68 Ќ7&Ќ h+6r) TџЧ lœџ |ў 6ЌŠ 6Ќ‘’’ HB@Š1), "" Ќ7&Ќ |$6œ 6 T%VЌЌ$& 6Ќ‘Ќ$&+PџџџџxІЌЌ |$6 Ќ7&…Ќ›GЌ |$6Ж- Ќ7&Ќ |+6jtIndexџџџџЈџџџџ`џџџџhџџџџШДAttribute VB_Name = "Modul1" Option Explicit  Pub, Sub Zusammenfuehren() Dim i As Lo ng, jkHAr(18, 3)Sƒng € ':)olee'Bereich: Spalten A : D (i+1fForf= 0 To 03 2 Zeilen: 2€:9 (j+2/›3jн3184'array fќl mit Da€8Tabe€‡Yj, i)#€!„ 1.Cs(`j + 2 1Р).Valub-)Ifƒ>Uhenˆ:wenn ID ќbunstИimm€А808 - 1, T $'ƒ’ E beko€# neušEintra\g:;‚_5 3ПФMA СР1а @$5„ЄўџA„ўќ"\џ6ФўДўЄў„ўўd|ўQєptџ dџќ5IєLфbџdџќ5IєќЫфўcxўK<xџ§“@(4џ%DџўšФў(џ%bџ§“@dџўЎДўћ36ФўДў6Rѕ(4џ%bџ§“@dџўЎДўxџ§“@(џ%DџўšФўѕўўЄў(фў]ћ36ФўДўЄў'](”ў%bџ§“@(4џ%bџ§“@dџўЎФў:џ ћяДўxџ§“@(єў%DџўšЄўћя„ў%dџўА6ФўДўЄў„ўєџptџK?єptџ bџdxў< ktџУE kvџєЉpvџѕѕѕkvџчdџў‘ 2(џ%vџ§“@xџ§“@(4џ%DџўšФў%dџўА5Фў2(џ%vџ§“@xџ§“@(4џ%DџўšФў%dџўА5Фў2(џ%vџ§“@xџ§“@(4џ%DџўšФў%dџўА5Фў2(џ%vџ§“@xџ§“@(4џ%DџўšФў%dџўА5Фў xџf|ўќcќјDџ7Hџѕ 'џ%'$џ%'4џ%'Lџ%\џ$ И\џ ()\џHџА(4џ%(џ%Hџ$ XHџўЂФўќ‹dџќ5IєќЫ§iєў%(дў%Tў$ XTўўЂДўќ‹dџ§“ @\џ$ \џўšЄў%PўќэДўќэФў$  Pў,)\џHџTўPў6ФўДўЄў1:Lџ %\џ$ `\џўЂДў§Ÿў˜ \џ5Дў,t,Dџdџ,\џHџTўPўФўДўЄў„ўfrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџn%В€0* pH‚dф VBAProjeˆct4@j = r S_ G&” J< r€stdole>stdo€le f%\*\G{00€020430-C 0046}#2.0#0#C:\WINNT\system32\c2.tl  џџџџџџџџџџџџ 6ons*\G{00020813-0000-0000-C000-000000000046}#1.3#0#C:\Programme\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32dirџџџџџџџџџџџџE)__SRP_0џџџџџџџџN __SRP_1џџџџџџџџџџџџsrPROJECTwmџџџџџџџџџџџџuhb#OLE Automation^ƒDOffic„DO€>fic5‚D‹€€D2DF8D04C-5BFA-101B -BDE5€DAA5€B4€2ˆD€—gramme\Mic€rosoft 4\MSO9.DLL#  9.0 ObЗ LibАrary€AЪ‚т€ DieseArbeitsmaРppeG" €bes€cAr b€i€Вsmˆap€e“Š2ЄHB‚1‚zMB%,B)Im#"+Т РTabelle1GЎA$'l‚1€%-Щ2вЯђацƒЫModul@ХЄM€œduРAG2ЅIЯ‹)Я:8Ђ№!Р3Х:С6џџџџџџџџџџџџџџџџџџџџџџџ“K*mџџџџrU€€€~~~~~~~~~~~~~~~~~I щИKJзЩN—РoЕ+!‰ш фџџџџ џџџџџџџџџџџџ ƒŠe ‘џџџџџџ9ˆa ‰џџџџ џџџџaQџџY  Projekt1 VBAProjectDieseArbeitsmappeTabelle1Modul1яРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA qџџџџ ™0РF /C:\Programme\Microsoft Office\Office\EXCEL9.OLBExcel iџџџџ‘љ@0РFC:\WINNT\system32\stdole2.tlbstdole iџџџџ‘йPLај-њ[НхЊDоR -C:\Programme\Microsoft Office\Office\MSO9.DLLOffice aџџџџ‰ё`Zusammenfuehren иРF§ЅІpмOB‡рњlљŒi6 РFP/эqЂ3дHЋЕжЌЎcPDРF Worksheet @ Value InteriorColorIndextest Tabelle1РFйРFЁЩџџџџзРF CellsEndRow RangeTransposeЁа 1VBE6.DLL ) џџџЬamџ фњ*\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.3#0#C:\Programme\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automation*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Programme\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library џџџџџџS_ G&џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџт"DieseArbeitsmappe0747093112џџ"DieseArbeitsmappeџџImMџџTabelle10=4709311aџџTabelle1џџцђџџ Modul1:;47096bfbџџ Modul1џџЂ№0‹)џџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ—ЃiЧ?lžFЅq7.мVœџџџџ“(AB’Й@ЌбЬŠ}ыуџџџџдXp‚рIHŸMMЖ_Д%™џџџџАџџџџHџџџџPџџџџX€i{џ 3 €џAs=€џDimD€џElseO€џexitR€џFalseT€џFor_€џIfl€џLBound…€џNot€џPreserve›€џReDimЏ€џSubВ€џThenГ€џToД€џTrueЗ€џUBoundР€џWith Excel€+ VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“` VBAProjectОП Officeu DieseArbeitsmappeЏ €џ_Evaluateй Tabelle1RŠ Modul1ЭЌ(Zusammenfuehreni`jakbArŒ\€џCells€џValueфK€џInterior;ф €џColorIndexгу WorksheetСў€џ_DefaultjТWorkbookkЌ(test4Ћarr uricZlastroww„€џRowsЁUCount0vend8xlup$а€џxlUp ч€џRow‰Я€џSheets  €џџџ_B_var_WithYБ €џџџ_B_var_arr2 €џџџ_B_var_ReDim•В€џRangeк dummyArrО €џApplicationЅ* €џTransposeзРfilt4№FilterД;€џџџ_B_var_i Ђ €џџџ_B_var_lboundĘ €џџџ_B_var_ForjL €џџџ_B_var_UBoundлd €џџџ_B_var_IfPђrobertАxozqflag›ўReplacef €џSpecialCellsЅО€џxlCellTypeBlanks›x€џDeleteИxTabelle2SŠ Tabelle11 ђ €џџџ_B_str_arr-arrIndexщд€џџџ_B_var_arrIndexrЌ €џџџ_B_var_flagШc€џџџ_B_var_xЂto4кen] €џџџ_B_var_enФёAddїr cellsuboundbм€џџџ_B_var_cellsuboundCОaXrr_Tabelle3TŠTabelle4UŠTabelle5VŠTabelle6WŠTabelle7XŠSplit) splitIndex?splitArrдM splitindex9w5Tabelle8YŠTabelle9ZŠ€џColumnsp9€џAutoFit&  Tabelle10 ђ Tabelle12 ђ Tabelle13ђ Tabelle14ђ Tabelle15ђ Tabelle16ђ Tabelle17ђ Tabelle18ђ Tabelle19ђtest_Maxй8vntArrayЊУstrIDJ`lngRowыЗ lngCounterPЧlngIndex д objWorksheetPЭ €џWorksheetsМј€џWorksheetFunctionѓ& Tabelle200ђџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџФ рTabelle2 Tabelle11robertFРF ) џџџџШ arrTabelle3Tabelle4Tabelle5Tabelle6Tabelle7 - ) џџџџЧ PTabelle8Tabelle9 A:DAutoFit Tabelle10 Tabelle12 $ Tabelle13 ++ Tabelle14  |  Tabelle15 _ Tabelle16 == Tabelle17 ||| Tabelle18 # Tabelle19test_Max ,Text  -  A1:D1 Tabelle20rU€€€€~} џџџџџџџџџџџџџџџџ   IpDieseArbeitsmappeDieseArbeitsmappeTabelle1Tabelle1Modul1Modul1ID="{00C1E57D-3360-4F86-BA05-7B49287B9A35}" Document=DieseArbeiPROJECTџџџџwтSummaryInformation(џџџџџџџџрDocumentSummaryInformation8џџџџџџџџџџџџƒјCompObjџџџџџџџџџџџџ‡itsmappe/&H00000000 Document=Tabelle1/&H00000000 Module=Modul1 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="AFAD138E1D920096009600960096" DPB="96942AB7F679DC7ADC7ADC" GC="7D7FC1DC4FC250C2503D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] DieseArbeitsmappe=0, 0, 0, 0, C Tabelle1=0, 0, 0, 0, C Modul1=22, 22, 913, 538, ўџр…ŸђљOhЋ‘+'Гй0А@‚ўџџџ„…†ўџџџˆўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH`x  œЈфNancy ErkmannxNancy ErkmannxMicrosoft Excel@†L›u+Ч@Zц№˜+ЧўџеЭеœ.“—+,љЎ0Ш PXd lt|„ Œ Ёфlэ  Tabelle1 Arbeitsblфtterўџ џџџџ РFMicrosoft Excel-ArbeitsblattBiff8Excel.Sheet.8є9Вq