аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ"/#  !ўџџџ'$%&(H)*+,I.0_1234>6789:;<=-?@ABCDEFGўџџџSJKLMNOPQRTeUVWXYZ[\]^`ўџџџabcdfhgijknlmoўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFЎVјŸЊШ™‘`„ЎШ€UWorkbook џџџџљ:_VBA_PROJECT_CUR"џџџџџџџџ‚`„ЎШ™‘`„ЎШCtls џџџџ"џџџџ ўџџџ ўџџџўџџџ!ўџџџ#$%&'()*+,-./0123456789:;<=>?@ўџџџBCDEFGHIJKўџџџMNўџџџPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuўџџџwxyz{|ўџџџ~€@2зiЮЭЇwнŒKџџџџџџџџџџџџxPJDwYјMАэ&ЙФ>ŒKЈ!ЯрVJ‰œЌ@1З^DџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  ЭЩРсАСт\p BАaР=гКDieseArbeitsmappeœЏМ=hJ{Hљ$8X@"Зк1Шџ+Arial1Шџ+Arial1Шџ+Arial1Шџ+Arial1Ш$+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_-;_-@_-3Є#,##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\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_- Ќ000000­ 0#########Ў 0\ "Stќck"#Џ[$-407]dddd\,\ d\.\ mmmm\ yyyy А00000Б"Ja";"Ja";"Nein"В"Wahr";"Wahr";"Falsch"Г"Ein";"Ein";"Aus"IД"#,##0\ [$Ќ -1];[Red]\-#,##0\ [$Ќ -1]рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р рєџєР рЋѕџ јР рЉѕџ јР рєџєР р ѕџ јР рЊѕџ јР рЈѕџ јР р Р р  Р р  hР р  (Р “€ џ“€џ“€џ“€џ“€џ“€џ“€џ“€џ`… Bausteine…г2BriefvordruckeŒ11ЎџџџџAbsender: %Ansprechpartner:Datum:Firma: PLZOrt:' SonderRabText; Strasse:СС`iы'№№  ?№Н"№Пyмывг}aj-~б Р{3Шџ›@=№“yмывг}aj-~б Р{3ؘ мB&љZs aўxкЕVЭKTQџнїfžEcЉ1aЩ(ŠГЈ!ˆ:cVD-мŽ(ˆ„MС,-Z„„: .‚ЖЖ""‚ў.‚DtrQф.c\г9я;sg˜ˆhКђѓнѓ}ЮНчоЙ Р у!fаm РAˆ\ИzPXЋ:‰я dРiь—ˆ>ІpŸк Д€s„Kƒ—Я“Њ  ­[Ќзlq„Р)vиъY“SиЊк pШвЁ[qьВ1šQEџ’$‹‰ўВ'?8хДP6qђЪ•8Š(же–Й\.oЉ ͘g‰"Ы 8KmщКnов2єњI‡uMЫЋ-7пНЭ[к†^ŸgЉŠ,З Vн^’Xe%=иЂеБЫЎЯ”ХёyvViЉЅxz’№УЪцќН[є +>39ЪВйT|ОPэ'п’Ÿ‘H6Йб4Ощч№<еxyџКjУTQˆ2tІœЂŸKLNG’{S‰щ‘Zў lяыslс*—ГЅ—Žr„jЎ‹PGи%Фe—LКVh=Jх-тЇƒіvе~э‹љC„19ц9бДЪћ4Лпэ/?/?t ˆяŒqu,ѕ1t­–а~чjЕJђаУtЌ$ŸJдЊз.sЧŒћъ:сЖђяѕЌ>ф(Кг§[3˜ФhбряFЁЮзmйфяѕо7ЕаБjФтЃez>мsј—укj=Т_—RнUЫ)J3зEпЛЊ_œх[ 7ЇѓOЁЅzяЛ 6ŸWОСМZN­Н`§Ftп_ёєйGЕєРЫUпŽy#7г%O—‡їkфсŠ3L`љfš~нуЯі“Фуѕgў­ЖД'? йw‘нёТф{$(чPяЩ ТКє$ѓЫYѕЖР}ghYHњ+ яЋАєSTоhДOѓ˜ХДgгˆ ‰=L,A”п'UђЕ кдБyЋфЬ{ k!Ол^ЈХэ”9хщ^1z4(9ъо‹П%QуЎч(jЌзBƒјЊ“љ/МFє'№$џ"№Т'ѓірФ_иьф_МŽцљџž@=№–'ѓірФ_иьф_МŽцљ˜ мB&љZs dўxкЕVЫKTQџsgЎ"­б˜АdХYTˆ‹D1+J‰Ж‚Š‚Hјh \мe #ДZV‹ EAа?а2HФзЂРVAуB(˜ОяояЬœ&"œЮ№›{ОѓНЯљЮC˜DОэнR„ие[з…Їе@;Л(j$ƒp^ћEЌЯ+!x/єiрсzп+$ъС!_ћŸГ\ЃfU€SЃи`ГЏMFсЈJпС1m\зIьВ2QAџПˆ“H$Dўщ“œs›(š$YхЬђ#Š(–5šйl6ЇЉ,Й„Џ‰Эmp”FгѓМœІЖфzH†emЭ-дhЎќгt,Йn_Shnt й.тш’œNlаь8%g{JГю]T†ЋwЯ~ъL6XЛХ`аЩщ‰aЎ”ѕ†ъ№ы…6Ÿ§H}!Фb™дFУXECШЗTх{фѕыЈŽRF5Ё‹(ХGя№мЬьшФT,Е7>9:5TE3ТПСёПСˆ#Ѓ@›ЪfЉЅ“œЁ’ѓ"дv IY%›ЎкДb~“иi#D§U ZPG@ЋјтёТˆь{ŸZхlкеяѕ”ю—nЦФіЖЕ/uD&W-tPљљ\uQІй†•ФSŽ\Эœo[Ж ]Ў\Mэ{5ŸЋcХaќmKЎ†VB—+Wо’ЏM—+заСщ’Я5T‡Aw КЙjБgr3єfr-•“lI†f]џСŸ#0і НAш<ЂПП[g$^угвчvЪ:ЏnюЉр\ߘMŽ‚3=8е1 Мў­хѓ|з’I§YŽnУ†&КќъБјd™ž]О9W#ˆ~_šП\Б шЖ†TccЖ  ЭЩР (ЋщЅ!Ї%н)c.!0  dќЉёвMbP?_*+‚€%џСƒ„Ё"џŠ<ќ§~п?Š<ќ§~п?U } $H} mЋџџџџџџџџџџџџџџџџџџџџџџџџџО О ОООООО О О О О О О О О О О О О О О О О О з6„р џ!џ"џ#џ$џ%џ&џ'џ(џ)џ*џ+џ,џ-џ.џ/џ0џ1џ2џ3џ4џ5џ6џ7џ8џ9џ:џ;џ<џ=џ>џ?џО О !О "О #О $О %О &О 'О (О )О *О +О ,О -О .О /О 0О 1О 2О 3О 4О 5О 6О 7О 8О 9О :О ;О <О =О >О ?зD@l@џAџBџCџDџEџFџGџHџIџJџKџLџMџNџOџPџQџRџSџTџUџVџWџXџYџZџ[џ\џ]џ^џ_џО @О AО BО CО DО EО FО GО HО IО JО KО LО MО NО OО PО QО RО SО TО UО VО WО XО YО ZО [О \О ]О ^О _зD@l`џaџbџcџdџeџfџgџhџiџjџkџlџmџoџpџqџrџsџtџuџvџwџxџyџzџ{џ|џ}џ~џџО `abcО defghijklmО oО pО qО rО sО tО uО vО wО xО yО zО {О |О }О ~О зBюX  €џџ‚џƒџ„џ…џ†џ‡џˆџ‰џŠџ‹џŒџџŽџџџ‘џ’џ“џ”џ•џ–џ—џ˜џ™џšџ›џœџџžџŸџО €О О ‚О ƒО „О …О †О ‡О ˆО ‰О ŠО ‹О ŒО О ŽО О О ‘О ’О “О ”О •О –О —О ˜О ™О šО ›О œО О žО ŸзD@l џЁџЂџЃџЄџЅџІџЇџЈџЉџЊџО  О ЁО ЂО ЃО ЄО ЅО ІО ЇО ЈО ЉО ЊзvШьш№v№№^№( № №№’ № “ №VПA ?ПР@џ€У ПcmdBausteinwahl№ цЕ ц#ˆ№]` РQ1 6$Јј™TзwForms.CommandButton.1Pь–№Ž’ № “ №TПA ?ПР@џ€УПCommandButton1№Œ -J №]` tS1 6$фј™TйwForms.CommandButton.1PP>Ж@я7К Tabelle1  ЭЩР =7:  dќЉёвMbP?_*+‚€%џСƒ„MЊBrother MFC-8440 USBмЬCя€ š 4dXXA4џџџџDINU"4˜i{Г ˜IURBAA‚‚џџЁ" dXXŠ<ќ§~п?Š<ќ§~п?U } л$} лQ} m } IL} m џџџџџџџ џ џ џџџџџџџџ§ § § § § § § § § § §  §  § §  § § § §  §  з&r@ ьP№H №№0№( № №>Ж@  я7ВџџџџК Tabelle6 VBAџџџџ№< `„ЎШрŸr`„ЎШDieseArbeitsmappe$џџџџџџџџџџџџЏ__SRP_8џџџџџџџџџџџџx__SRP_9 џџџџ gџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџр џџџџ`џџџџџџџџџџџџ џџџџџџџџT”€ўџџџџџџџhџџ@џџџџџџџџ%џџџџƒўџџџџџџџ џџџџџџџџџџџџџџ %‚ џџџџўџџџаџџўџџџџџџџџџџџ %џџџџ џџџџџџџџ@џџџџџџџџџџџџџџџџ@џџџџџџџџџџџџЈx@XTџџџџџџџџџџџџџџџџџџџџџџpŸI$*\Rffff*12499fcbb4пџџџџ4ўЪ€€ џџџџ€ џџџџ€ џџџџ"   € џџџџџџџџ0Эџџx– B@LiboџџXџџџџPџџџџБAttribute VB_Name = "DieseArbeitsmappe" "  Bas 0{00020819ъ-0C$ 0046} |GlobalкSpa‚cIFalse dCreatablPredeclaIdЖTru BExposeTemplate`Deriv’BuРstomizD2€Option /€licit ƒP$( Sub CommandButton1_Ck() urfBa€+einwahl.Sh€ow End%rU€€€ €!IqџџџџЩ#4™!СџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЮ0 ќЦ  XrU€€€ џџџџџџџџ@$`Tџџџџџџџџџџn_#C—”К^t1ТџџcˆЖџџџџџџџџLџџЫЛjm|jљGДC@Tœsк3 РFпVь=“’‘K–„Ђѕ?’џџџџџџџџџџџџx-cmdBausteinwahl, 1, 0, MSForms, CommandButton,CommandButton1, 2, 1, MSForms, CommandButtonпVь=“’‘K–„Ђѕ?’ЫЛjm|jљGДC@Tœsк3џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџTabelle1џџџџџџџџџџџџ"__SRP_2џџџџџџџџA __SRP_3 џџџџLЕurfBausteinwahl џџџџ5j3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџsџџџџ6"џџџџџџџџš"џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ џџџџ`џџџџџџџџH|џkџџџџџџџџ`”€ўџџџџџџџhџџ@џџџџџџџџ% %*€iЈ8Hp@џџџџџџџџ %*€kџџџџ@T @џџџџџџџџџџџџxЈџџџџ@Ђˆƒўџџџџџџџџџџџџџџџџџџџџџ%‚ џџџџўџџџ@џџўџџџџџџџџџџџ%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџшџџџџџџџџcm.msaџџџџџџџџ@xџџџџџџџџџџџџ@ЈџџџџџџџџшPdHџџџџџџџџџџџџџџџџџџџџџџаŸI*\R8004*#5d$*\Rffff*1;499fcc96$*\Rffff*1>499fcccbпџџџџ4x<ЈDўЪ" € џџџџџџџџ(– B@oџџ`џџџџXџџџџ'БAttribute VB_Name = "Tabelle1"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2Co ntrol—cmdBaeinwahl, 1, 0, MSForms, CommandButtoоnŠˆ#Š€!2‚$#†P`d Sub 11_Click() urf O.Show End rU€€€  ` i‘ЙџџџџA4сa џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <)Qџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ D)ЁЈ§џџ`yџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‹EyЩ§1‡H$ў €%$ 8 @ D*rU€€€ џџџџџџџџP$q``џџџџџџџџ Ёџџџџ@HЩ8 щџџџџ@TЩ@nrU€€€ PЙstem32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R1*#1c8*\R1*#e4*\R1*#e4*\R1*#f1*\R1*#dc*\R1*#e8*\R1*#2acпџџџџ<в@гDбHеLжPўЪ€€ џџџџ€8€.@€2p€ џџџџ" Ј А€ Ррј€ џџџџ" "€ <X h "xˆ € џџџџ"ЈАИ€ џџџџ"Р ,Ши€ џџџџ" р€ @€1И €"ш€ 8€ TH€ b € џџџџ"L€ 0€ P€ `€ 2p€ (Ј€ (а€ ј€ € 0€ H€ X€ $`€ ˆ€ "˜€ *‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“ўџџџ•–—˜ўџџџšўџџџœžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийўџџџлмнопрстуфхцчўџџџщъыьэюя№ёђѓєѕіїјљњћќ§ўџР€ №€ € џџџџ€ (@HH;` Qx ˜Ј€ џџџџ&А0,и€ џџџџ€ џџџџ" € џџџџ€2€P€,X€ Rˆрш №=, € џџџџ€ RH€ P 6 №.(.Xˆ Ј€ ШJMшB<8 4€ € џџџџ€ 8И № 4;ј  J?0 €  8 ˆ 4BР  ј HZ  H P  X h € џџџџ€ €  ˜ € џџџџИ € џџџџ"  Р € |€ 1h € Pи :Б( € V(  € |€ *Р&ˆ  #ј .)Ш А џџџџјЭџџx]ђр*Erste Zeile des Kopierbereichs (Spalte B!)]ђ8рLetzte Zeile des Kopierbereichs] ђр$ActiveSheet in DIESER Mappe (Button)soc–P A@rxlsрurfBausteinwahl.Hide aber эА.$р aufrфumenoџџ–З ,(.џџџџџџр6Textbaustein irgenwo einfќgen, D17 willkќrlich gewфhltџџџџЖD17A@0џџ A@rџџџџџџЗ ,(.џџџџџџэА.$р aufrфumenoџџX–аA@4oџџ@– :A@8џџџџџџoџџ –P]ђрSchleife ќber Zeilenр1Zwei Mіglichkeiten: 1a und 1b mit array, 2 direktрMDim arrBS(1 To 100) As String 'reichen 100 BauSteine aus? Bei Bedarf anpassenр\Dim j As Integer 'fќr Bestќckung des array "arrBS" - evtl. fќr weitere Verarbeitung nќtzlichэЖBriefvordrucke >%@.$р '1a: array fќllenр i = 1р j = 1р, Do While i <= wsAct.UsedRange.Rows.Countр! If Cells(i, 1) <> "" Thenр" arrBS(j) = Cells(i, 1)р j = 1 + jр End Ifр i = 1 + iр Loopрр '1b: cbo aus array fќllenр j = 1р Do While arrBS(j) <> ""р$ cboBaustein.AddItem arrBS(j)р j = 1 + jр Loopр"2: Alternative - cbo direkt fќllenЌ'< < $!B!D!Fb <Ќ$HЖœ <Ќ$H :B@JkџџhЌ < '<ЙџџPЌ :(Lрersten Wert anzeigen :A@8р Vorschau: Textbaustein anzeigenoџџ№–Ј]ђр#Zeile des gewфhlten Bausteins strBS]ђ ]ђ8рZeichenkette fќr di0фt§G(tЌџџˆЖџџџџџџџџXџџ’v/ц( KBЋBN†gўЌJrЎoЧЉУM‡с€PQ‚сгOkфъLЗKЦ9HMтђ\5ъOЌ?7ФЮХ8џџџџџџџџџџџџx\5ъOЌ?7ФЮХ8’v/ц( KBЋBN†gўЌJџџMEџџџџџџџџџџпџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SPџџџџSџџџџSџџџџSџџџџ0”џџ&>"џџџџ џџџџ”џџџџLџџџџLџџџџџџџџџџџџџџџџLџџџџLџџџџџџџџLџџџџPџџџџLџџџџLџџџџLџџџџ”џџџџ<\џџ<`џџ499fcccb*\R0*#1d*\R0*#1e*\R1*#d7ъ*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41ъ*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\R0*#fъ*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#59ъ*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\sye VorschauрLLфnge (Anzahl Zeilen INCL. Leerzeilen) des gewфhlten Textbausteins ermittelnЌ'<_џџЌ < '< <Ќ$H NК <' рerste Zeile des KopierbereichsрLj enthфlt die erste Zeile unterhalb des gewфhlten Textbausteins in Spalte A,рI die wieder einen Wert enthфlt (nicht leer ist --> nфchster Textbaustein) <Ќœр8#erste Zeile (erster Textbaustein...Ќ'Pр8... in Zeile 1): gleiche ZeiledF <Ќ 'Pр8sonst: nфchste Zeilekџџp_р8 j ermittelnЌ P 'Pр8 hochzфhlenрDebug.Print "A" & j $!B!D!F P ›Gxjр8&мberlauf beim LETZEN Baustein abfangen PЌ$HЖКр8%hier beginnt der nфchste Textbaustein PЌ '"р8letzte Zeile des Kopierbereichsр1String strVor fќr die Vorschau 1:1 zusammensetzen_џџ <Ќ$HЖœр8leere Zelle in Spalte B RЌ $TЌ $T'Rр8$Leerzeilen durch 2x "Enter" ersetzendџџx RЖœр8&Beim ERSTEN Durchlauf ist strVor leer: R <Ќ$H'Rр8Wert auslesen ODER...dџџ R <Ќ$HЌ $T'Rр8... Wert PLUS Umbruch auslesenkџџАkџџЈЌ < '< < PЌ КрDebug.Print strVor R'Vр8Vorschau anzeigenoџџ@–P X$\B@Hрeinzelne Zelle anwфhlenisЗ ,(dherumkЖ Bausteine$@B@Zs einf Ќ$H!^Ж: "Ќ$H!^$\B@`!alЖBriefvordrucke$@B@ZerЖA1$\B@bрalles einfќgenoџџ8ЖBriefvordrucke$@B@ZрJwsAct.Activate 'wer weiп, wo der User zwischendurch herumklickt? Anpassen!рP#### HIER wird das Blatt aktiviert, in das der Text geschrieben werden soll ####рv#### wer weiп, wo der User zwischendurch herumklickt? Also nochmal das Blatt, aus dem kopiert werden soll aktiv setzenрv#### und die Zelle angegeben, da kannst Du auch die letzte beschrieben Zeile+1 angeben, code dafќr findest Du im Forumр:#### HIER das Blatt aktivieren, in dem die Vorlagen stehenр$#### dann aber besser mit cells(i,y)џџџџџџџџИAttribute VB_Name = "urfBaustein€wahl" ˜Bas˜0{6FAE0F72-A9C7-4DC3-87E1-131480505182}{6B4FD3,E481-4CEA-B74B-C63948€4DE2F2} d@Global‘SpacoFalse ŠCreatablPredeHclaIdкTru BExpose0TemplateDeriv…–C–omiz‹D€Option 0licit Dim intFirst As Integer 'Ee Zeiedes Kopierbere@ichs (‚l‘вB!)"LaŒ!0Letz€" Pub€D wsAc‚>Worksh`eet '@Р7Sin DIESER Mappe (Button@€€A€C Sub cmdAbbr€echen_C@k(Р Unload Ь‘ СТ'L.HidРdS@"'= Nothing 'aufrфumen А EndRPЫ!DOK AppР#aС_.Screen˜Upd€= ФyA#TextbФК irgenwo РНfќ€, D17 willkќrРh gewфhl€rХШEinФfu€qn "Р В?™@Z'ƒЈДCUserForm_InitializeХecboFue$llSboх_chang†Vorъs u$ € %W3A'# HIA Kdas Bkt@ aktiv`]en,@c dem „diР‘orla`0& РрK bSs("Briefvordrucke"<).BW`RcЪjSchleife ќ@iУkрH'Zwei Mіga:keiten: 1a ‚uрK1b mi €rray, 2`(rek>'AwarrBS(1 To  100)A SрЇSСTuenс Р"S‰Їe K? B€ Bedarf a`npassС/т jŠfќr`stќ8cku@ С€ay "т" - e`vtl.  tA ƒ Veraр„iТtAnќtza#mC`&jThis~book.•) 'A!O'1a: cfVќУEтi@Ј1djAhDo WhA—i( <=у‹.РPdRсG.Rows.C8ounС(С aIf C Qs(i, 1) <> ""< T"=B хB(j>)  шd…b +Ь jш…If‚…€idLoop@сЄ'1b:AZA6Q?в†Т$ hc.A№ddIt Z…Шэ‡CdЅ2: AрОфrn`—ve@ DRџ @#3С3A1e1ЁПaЏІ%q? m)џ •Б1ˆсGбcЙListIndex 0 '‚e‘qn WerP9№nzei@ACIІKЄ 'Х: *^aK№sЁmЌ(st€?їч>ЂpAi <—wtb№@§%Rs€L0CJy?30 'Рuke>t0 ?TQ2X'L‚ф№Y (Anz`šфM INCL. АLeerР ^)0Us•k љs erqрNtel`QсБ0йгDose1Г3с! UntilJ<Ž=5"eŽ= iT тћƒS'j €enthфlt€.e№ `„Derhиalb F|sAdд’LA,$’wiА rOС}@т$u(n@–t l  Р' --№> nфp—Vъ#фџ33-ёJБ?s,„ Š(B-rК...г _ЁƒAN'а ƒ‘#(1): g€o—$“EД: БiА1п 'sрonst:ѕърrџVQPGЯ‘л'?сЃА\КЯ'hpochzP™QuFD ebug.PЂntР "A" &БaеЯ№bІ?j& <‚LEx€€ 'маƒl€Ј beМLET8ZENQ~ )РВabюfqn4О1jn|Œ'hРgin№ ~dСф'"CрУ’П=` - O/ 'ОlЏСљХ“‘“'TTIнG 1:1 zаusam`Йs Ѕї)C@{2с{Deџ л0 ёŒZсЉ8U РF&ОИZ™ЋMB˜dХšНяхџџџџџџџџџџџџx&ОИZ™ЋMB˜dХšНяхљgvџzяF‰InŒл:>UџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџр џџџџ`џџџџџџџџџџџџ џџџџџџџџH”€ўџџџџџџџhџџ@џџџџџџџџ%џџџџƒўџџџџџџџ џџџџџџџџџџџџџџ %‚ fџџџџўџџџаџџўџџџџџџџџџџџ %џџџџ џџџџџџџџ@џџџџџџџџџџџџџџџџ@џџџџџџџџџџџџЈx@LHџџџџџџџџџџџџџџџџџџџџџџpŸI$*\Rffff*11499fcbb0пџџџџ4ўЪ€ џџџџ€ џџџџ€ џџџџ€ џџџџ"  џџџџ(– B@*Eroџџ`џџџџXџџџџїАAttribute VB_Name = "Tabelle6"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2 ƒP€€ Sub CommandButton1_Click()  urfBa$einwahl.Show End rU€€€  Щ‘ џџџџA4сa џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‹0 ќЦ  XrU€€€ џџџџџџџџ@$`HџџџџџџџџџџnЬ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{000208__SRP_7џџџџ™g_VBA_PROJECTџџџџџџџџџџџџ›Јdirџџџџџџџџџџџџкl__SRP_0 џџџџш 13-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\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Libraryо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{9FB4D5E2-F201-4C3A-9194-437A8ADE64F2}#2.0#0#C:\DOKUME~1\NCA07~1.FRE\LOKALE~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџŸIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџt"DieseArbeitsmappe12499fcbb4џџ"DieseArbeitsmappeџџšџџTabelle11;499fcc96џџTabelle1џџ1Т0џџџџdџџurfBausteinwahl1>499fcccbџџurfBausteinwahlџџЌ0…(џџTabelle611499fcbb0џџgTabelle6џџШH†џџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdJYыžCЇгРƒ‰рГ%џџџџ@ž>nTцоM”Њ[KxПЎџџџџбQN‡сmAЕQРаoЇиŸџџџџ1y’3И4щDЎШ1џхџџџџџџџџ€ABџр- Excel€+ VBAїтWin16С~Win32MacГВVBA6­# VBAProjectОПstdole“`OfficeuMSFormsC DieseArbeitsmappeЏ €џ_EvaluateйCommandButton1_ClickфС urfBausteinwahlьsShowѕ Tabelle1RŠintFirstДГintLastLўwsActнє WorksheetСўcmdAbbrechen_Click( cmdOK_ClickИ ApplicationЅ*ScreenUpdating! BausteinEinfuegenv3UserForm_Initialize5c cboFuellenpcboBaustein_changeГСVorschauFuellenT= cboBausteinnai` ThisWorkbook|уSheets  UsedRangeШ‰RowsЁUCount0vCellsAddItem‡  ListIndexїQstrBSV_jastrVorпUChrK~ lblVorschauБяstrPaste‡Activate—|Rangeк AddressЇХCopyЦП PasteSpecialОK CutCopyModeЈ Tabelle6WŠcmdBausteinwahlЮCommandButton1|дWorkbookk€џClickŠуUserFormN frmVorschauзщ cmdAbbrechenš cmdOK' €џInitializeгN€џChangeЃЧ€џ_DefaultjТ€џValueфK _B_var_Chr\;€џCaptionxџџxџџџџџџџџџџџџ џџџџџџџџџџ g џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHhГ€0* pH‚dф VBAProjeˆct4@j = r ŸI” 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\Microsoft 4\MSO9 .DLL#  9 .0 ObИ LРibrary€A€MSFo@rms>SF€rmHs3€‚œD452EE1-Eˆ08FVA-8-02608C4 D0BB4YNFMl20 'B [Ь&/є;"1РУe‰lƒAˆl00}#0‚lŽ#Р €ž50Ћ€ РA9FB4D5E2-F201-4C3A-9194-437A8@ADE64F bDOKUME~1\NCA07~1.FRE\LOKALTemp\Excel8.0\с„V.exdHe>Р#€с.E р….`ŒM ŠДAЮТЯТ t@ DieseArbeitsmappeGЄ"i›sР ArbРiФ"stap@e*“2ЄЊHB1Bхš@ћ"%,Ђ"+трTabelle1GRЁaТl"u1лРi2rodРm1Тk  urfBauyinwa`hlG $fTBuР]tb%n”wрh€Š2Џ…(рSР$€#$Ќт-Ў@ №$6ё$6ы$*6ё$60†p4Шщ$a2“K*yџџџџrU€€€~~~~~~~~~~~~~~~~~~~~~~. ЩJѓoѓ"sSH™жБmQ*" фџџџџƒŠa 1џџџџёџџщƒŠa ) џџџџёџџƒ€a й џџџџБ с  1 a  Љ џџ9ƒŠa 1џџџџёџџa!)  щ VBAProjectDieseArbeitsmappeTabelle1urfBausteinwahlTabelle6яРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ Љ0РF 0C:\Programme\Microsoft Office\OFFICE11\EXCEL.EXEExcel yџџџџЁ     ўџџџ !"#$%&'ўџџџ)*+ўџџџ-.ўџџџ0ўџџџўџџџ3ўџџџ5ўџџџ789:ўџџџ<=ўџџџ?@ABCDEFGHIўџџџKLMўџџџOPQRSўџџџUўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@0РFC:\WINDOWS\system32\stdole2.tlbstdole џџџџЉёPLај-њ[НхЊDоR -C:\Programme\Microsoft Office\Office\MSO9.DLLOffice aџџџџ‰ё`с.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms aa‰бpтеДŸђ:L‘”CzŠоdђ:C:\DOKUME~1\NCA07~1.FRE\LOKALE~1\Temp\Excel8.0\MSForms.exd Aaiб€иРFЫЛjm|jљGДC@Tœsк3 РFпVь=“’‘K–„Ђѕ?’DРF WorksheetС{lЏЮŸFЊWJOcmdBausteinwahl@2зiЮЭЇwнU&ОИZ™ЋMB˜dХšНях @СYl†ЯЋ|ЊРЯVBE6.DLL yџџџџ` PеРF D17#=ћќњ hЇ8+3qЕРG?,2qЯ”ЊЇLаQyџџџџQpAddress :Ј!ЯрVJ‰œЌ@1З^DРFPJDwYјMАэ&ЙФ>ŒKDРFWorkbookCгШf}J››ыѕџФњh§…рЂлFHДEнєњЗїЦ&­6Гb–BИws›п‡њ?џqч~1K•RОЖ#г I›yУ…FЎNПaјшьк џџџџџџџџЁ  BausteineДeh\gкL“\јKEЅў’v/ц( KBЋBN†gўЌJrЎoЧЉУM‡с€PQ‚\5ъOЌ?7ФЮХ8TЧЫ —˜B-№U сџџџџџџџџЁ € A1PrU€€€€~~~~~~~~~~~__SRP_1џџџџџџџџџџџџ5urfBausteinwahl џџџџџџџџрŸr`„ЎШа<|`„ЎШfџџџџџџџџџџџџ(оoџџџџ,Ј~g џџџџџџџџџџџџ    )с щycmdBausteinwahl щЩ(CommandButton1 С 1 8 ‰  H ‰ )X ‰ h ‰ i xwsAct )AˆstrBSstrPaste )™˜ Љ1 Ј 1 И0   }t А„(х €8cboBaustein.OЇ(е €#frmVorschau.{Ъ(х €<cmdAbbrechen]]$х€4cmdOK/ЫO]A€H€,Ё{5€ЅTahoma( €Abbrechenme.g Ou€ЅTahomaau(€OK…g Ou€ЅTahomaau4H €€}Iь Vorschau4i02џџџџџџџџ n`єЮ›ЭЊ`ŽрŸr`„ЎШрŸr`„ЎШfџџџџџџџџџџџџ/toџџџџ14CompObjџџџџџџџџџџџџ2p…,ѕ €24lblVorschauдд(€textЁq5€ЅTahomaauўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вqўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} urfBausteinwahl Caption = "Baustein wфhlen" ClientCompObjџџџџ4aVBFrameџџџџџџџџџџџџ61PROJECTwmџџџџ;žPROJECTџџџџџџџџџџџџ>ЬHeight = 3120 ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 12 End DieseArbeitsmappeDieseArbeitsmappeTabelle1Tabelle1urfBausteinwahlurfBausteinwahlTabelle6Tabelle6ID="{5CA1746D-7354-460B-BBF4-10E8E0119083}" Document=DieseArbeitsmappe/&H00000000 Document=Tabelle1/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=urfBausteinwahl Document=Tabelle6/&H00000000 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="BDBF0CCD748E788E788E788E78" DPB="7A78CB948995899589" GC="3735865BFEA5BAA6BAA645" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] DieseArbeitsmappe=220, 290, 1361, 940, Tabelle1=110, 145, 972, 554, urfBausteinwahl=330, 4, 1010, 807, Z, 22, 29, 862, 518, C Tabelle6=44, 58, 1185, 708, ўџр…ŸђљOhЋ‘+'Гй0˜@HT` x „ф  Microsoft Excel@fЇЄшЉШ@€I`„ЎШўџеЭеœ.“—+,љЎ0  PXd lt|„ Œ жSummaryInformation(!џџџџJШDocumentSummaryInformation8џџџџџџџџџџџџNPCompObjџџџџџџџџџџџџTpџџџџџџџџџџџџфЈ  BausteineBriefvordruckeBriefvordrucke!SonderRabText ArbeitsblфtterBenannte Bereicheўџ џџџџ РF$Microsoft Office Excel-ArbeitsblattBiff8Excel.Sheet.8є9Вq