аЯрЁБс>ўџ SRўџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} urfBausteinwahl Caption = "Baustein wфhlen" ClientHeight = 3120 ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 12 End џџџџџџџџџџџџџџџDieseArbeitsmappeDieseArbeitsmappeTabelle1TPROJECTwm џџџџžPROJECTџџџџџџџџџџџџ‚ЩSummaryInformation(џџџџŽЬDocumentSummaryInformation8џџџџџџџџџџџџ’Pabelle1urfBausteinwahlurfBausteinwahlTabelle6Tabelle6ўџџџ ID="{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="2B299A037707770777077707" DPB="0406B56E574658465846" GC="DDDF6C499C239D239DDC" [Host@2зiЮЭЇwн_-* #,##0.00\ "Ќ "_-;\-* #,##0.00\ "Ќ "_-;_-* "-"??\ "Ќ "_-;_-@_-{+;_-* #,##0.00\ _Ќ _-;\-* #,##0.00\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_- Є000000Ѕ 0#########І 0\ "Stќck"#Ї[$-407]dddd\,\ d\.\ mmmm\ yyyyЈ#,##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_-;_-@_- А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ы1№)№  ?№Ч№$џ"№ШQХЫНсUBЭ{жxуџЄ@=№œQХЫНсUBЭ{жxуШ нBŒљur jўxк­VЭKTQџнћоŒŽYMNŠQ‰т[Xˆ’Ю˜QAXбJаH3?šЭГ ‚6% Е“Z§.\Д5!3Љ$(У‚ `:чНsчн™&"œћјёюЙчыwюз{ Рu„э5!iЩ™Zрrh8ЌcT%?.СёпСˆ#Ѓ@‹ЪхŸЦЎPЩUт„BJVЬ–ЋD6­Xп$qZѕў -иS@ГфтёГ„9+і™1ВЪЧмД2fЛKїK7“{й:—&—кfSЋ98a­Кˆ‡iv`%|ЪQЋ™ѓe+Ж‘ЫUЋ#rpnУZ‹‡ЩЗ,ЕY‰\ЎZйxIоЖ\ЎZ]‘ƒ›&Ќе-тaаUB.G­Zт™кŒМXЦZ#"wcXkЄˆ‡]–Ь<Žm“GЉ|ŽРФ7ђЁs›љўuŸэ><uвчVcнc}„џK l™У‚›>Иы1Š!єќ'ќ_ ыœ?К•ўЛТ…xг=Ђ’kЏ˜Ь<ЌЬ|ŠNfXѕљGїЧЧ‰›Л‘@GmЁM–я№елŠc4PпЋІŸ02ълћ8fље~щ ОЩѓ<ЦXПЃ8F!ЏŒbЛщGѓzŠРњ‘ ŒЎx›щЪЧѓ:&Й_mьїпїI7%њ[ўЇ%ПGЂВgЭš\$ЬЪžфёiйз‰ЙУшvЫўr­8МŸ<љыЁušРЦ1Hk6ŒFЄБŽkЄ$)и'\y;–lл8Vџpцy3ЕаxЖ9Ќ%л&}т™=cэбˆp4{ЯГО1žu{жхYgЪГцnaЏФKџ7п§)"№УL!`/[ ЋуiŽуНыШВџŸ@=№—L!`/[ ЋуiŽуНыШВШ нBŒљur eўxк­VЭKTQ?їО73Юd~ЪD%Ѓ ОE†H ъŒY„Д‰V‚ bхзl&˜eЫœE„(дNjєД’ЁE+бIHЬMЅЬЊ žчмwюМ;гD„s?о=ї|§Ю§zOР јэ"aШ™6€{A€јелзlDњq<-€6њ €Jнž ‰г`И#ЦзЧn\Aг, ЯrCц=™]”! `ЕЃ*]ЪйFXЂŽР)ЩЉ ^&a‡œЁCqљšЧ'йО§1œvТ$1*Uц”\yКЎ[ђ†]ByB™gˆЅі\[{Uђ”†нк­щЙ­FЕчсН’Їeи +OQцЙ…%ЯнЯ_JžЖa7„vŸ?5ƒА‰seUCъ I1ЉwQh­д=‡8’Eз[Шgоt$@&чІ'hп,ЗD^О+Fa§ѕaњ-"оWL‡Ѓz=)Ќ2вjіGbX_#2 B 990:Б8ПšžЇїЇfRГШ9ЄaЉЗ7bё(@p]KбhІuTЂ БƒHђŠ™r„eн*ѕЇS+ь5oOts.П…˜фГbž-‹RЬ#cvЄzПzг9€cŒsЉs‰цаЕJ–НSрз*+xшfЬЇЕъ9/БЕ\ЋZ-–Нsызj;У|h>кЙO­ХИЧЦд— Ј?”нєо]s0 eџ џзќ:?\.Іџn‡џЭ9Єті‡r™7С\цB­kd\неЃ(Ќт$Џу{ -—yоцлdщп}"(FіzќyB^ОјŠЙƒ~БяЫ™ьWЫѓt)/)F9ЏМ$Л…•МœYёє­П0тОsоХБ0чўјѕЌz_Bны'—дЇЅДG‚МgѕšмEЌѓžЄёUоз‰$AыyйFкOџЧт:-Т<,@ зlт†}˜B] %oŸ„ иќЖ йДБŒ~sІyгЕрxЖлЏ%лЧ}ф™Нiьбsд{Я1О1Žq;ЦхgЪ1цЎбЪq›И ’'3 №П Р@@ё  їќЈ SonderrabattSehr geehrte Damen und Herren,Bals Anlage erhalten Sie - wie besprochen - das gewќnschte Angebot.@Zu unserem Angebot vom XXX (Angebots-Nr. XXX) gewфhren wir Ihnen+ein Sonderrabatt von 4% und Skonto von 3 %.YSollten noch irgendwelche Fragen offen sein, setzen Sie sich bitte mit uns in Verbindung.MontageanleitungRals Hersteller von Toranlagen senden wir Ihnen vorab eine Montageanleitung unsererSektionaltore zu.HFragen Sie bei uns an, wenn hinsichtlich der Montage Probleme auftreten.-Fќr Ihr Vertrauen bedanken wir uns im Voraus. Ihnen mit unserem Rat zur Seite.Produktinformation.anbei erhalten Sie Prospekte unserer Produkte.LUnser Angebot umfasst sowohl den gesamten Torbereich als auch die Antriebs- Tund Steuerungstechnik. Bei Sonderkonstruktionen bieten wir individuelle Lіsungen an.UFragen Sie bei uns an, wir erstellen Ihnen gerne ein kostenloses Angebot oder stehen џH ђЖTccЖ ьЭЩР (ЋѓЏ)!Б%ч)m.+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№ цЕ ц#ˆ№]` Tj1 6$,…v#iForms.CommandButton.1Pь–№Ž’ № “ №TПA ?ПР@џ€УПCommandButton1№Œ -J №]` pFj1 6$№`vdtiForms.CommandButton.1PP>Ж@я7К Tabelle1 ьЭЩР G7!:  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џџџџ№Ž$ЙЎШ№џ&ЙЎШDieseArbeitsmappe$џџџџџџџџџџџџтTabelle1 џџџџџџџџЕurfBausteinwahl џџџџ0›$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}Hшџџџџиџџџџџџџџџџџџ@џџџџџџџџ„иџџџџ џџџџџџ€te 8џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„€ўџџџџџџџШџџ џџџџџџџџ%џџџџ((` Вџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”џџџџџџџџ`џџџџhшџџџџџџџџ џџџџџџџџшџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŸIпўЪ€€ џџџџ€ џџџџ€ џџџџ" (€ џџџџџџџџ@Эџџxџџџџ@–ш ,B@ˆoџџ џџџџџџџџ(џџџџБ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%_kC—Ви„t1ТџџcˆЖџџџџџџџџLџџ->6U]HўEЙŒ|F9vЯР РFЎQ‘Ќј9РA˜L^`Чџџџџџџџџџџџџx-cmdBausteinwahl, 1, 0, MSForms, CommandButton,CommandButton1, 2, 1, MSForms, CommandButtonЎQ‘Ќј9РA˜L^`Ч->6U]HўEЙŒ|F9vЯРџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџ6"џџџџsџџџџ<џџ<џџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}ˆH Вџџџџ`џџџџџџџџџџџџ|џ@џџџџџџџџ`”%*€џџџџ<T@@џџџџџџџџџџџџHџџџџx08`џџџџџџ0 џџџџ|џ@џџџџџџџџX„€ўџџџџџџџ№џџШџџџџџџџџ%%*€‹H4Hј@џџџџџџџџџџџџаЈџџџџџџџџƒўџџџџџџџpџџџџџџџџџџџџџџ %‚  џџџџўџџџ џџўџџџџџџџџџџџ %Ј˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџ „$џџџџxџџџ`€ % „$џџџџxџџџ€€ % „$џџџџxџџџ €€ %џџџџphшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџр0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP@ „$џџџџxџџџ8€ˆ %џџџџxџџџџџџџџШџџџџџџџџџџџџШHџџџџџџџџxHPdHџџџџџџџџџџџџџџџџџџџџџџpŸI$*\Rffff*0c499f1dfe*\R8004*#5dп8H@џџџџDўЪ" € џџџџџџџџ0– ,B@ˆ(oџџџџџџ@џџџџџџџџ'Б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 єф8kћЫtШџџ#ˆЖџџџџџџџџџџџџСZс9‘Х4A‰фьгš{№ РF@– HA@Fџџџџџџ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 anpassen0р\Dim j As Integer 'fќr Bestќckung des array "arrBS" - evtl. fќr weitere Verarbeitung nќtzlichUЦ\Яр '1a: array fќllenЦ\Яр i = 1р j = 1р, Do While i <= wsAct.UsedRange.Rows.CountHр! 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Ќ'J J 2!N!P!Rb JЌ$TЖœџџ JЌ$T HB@Vkџџ€Ќ J 'J4ЙџџhЌ H(Xрersten Wert anzeigen€ HA@Fр Vorschau: Textbaustein anzeigenoџџ–Ј]ђр#Zeile des gewфhlten Bausteins strBSџџџџџџ]ђ ]ђ8рZeichenkette fќr die VorschauџџџџрLLфnge (Anzahl Zeilen INCL. Leerzeilen) des gewфhlten Textbausteins ermitteln\LЌ'J_џџ(Ќ J 'J JЌ$T ZК J'.р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) JЌœр8#erste Zeile (erster Textbaustein...Ќ'\р8... in Zeile 1): gleiche ZeiledF JЌ '\р8sonst: nфchste Zeilekџџˆ_р8 j ermittelnШЌ \ '\р8 hochzфhlenрDebug.Print "A" & j% 2B@fр:wer weiп, wo der User zwischendurch herumklickt? Anpassen!џџ " \Ќ$TЖКр8%hier beginnt der nфchste Textbaustein`џџџџ \Ќ '0р8letzte Zeile des Kopierbereichs€р1String strVor fќr die Vorschau 1:1 zusammensetzen_џџ  JЌ$TЖœр8leere Zelle in Spalte Bџџџџ ^Ќ $`Ќ $`'^р8$Leerzeilen durch 2x "Enter" ersetzenўџџџџџdџџ ^Жœр8&Beim ERSTEN Durchlauf ist strVor leer: ^ JЌ$T'^р8Wert auslesen ODER...€dџџ ^ JЌ$TЌ $`'^р8... Wert PLUS Umbruch auslesenkџџШkџџРЌ J 'J" J \Ќ КvџџџџрDebug.Print strVor ^'bр8Vorschau anzeigenoџџX–P 2!N!P!R \ ›Gxjр8&мberlauf beim LETZEN Baustein abfangenМ€ .Ќ$T!hЖ: 0Ќ$T!h$&B@j d$&B@lр!alles einfќgenџџџџЗ :(nџџџџ d$&B@Hрeinzelne Zelle anwфhlenџџoџџPџџџџ0эЖBriefvordrucke –%L.2%LџџџџШ џџџџъЗAttribute VB_Name = "urfBaustein€wahl" ˜Bas˜0{5A39691E-A9D8-44BF-A6DC-36F926D83943}{56FC0EB7-CA8C-4B11-AF35-B2416617554F} dGlobal!‘SpacoFalse ŠCreatablPre declaIdкTru BExpose0TemplateDerPфtџџџџXtЌџџˆЖџџџџџџџџџџџџвЄН‡, СN„•>rК-›Ќьж- WOЂ…tLw;bџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџDџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SPџџџџSџџџџSџџџџSџџџџџџџџ`џџџџџџџџџџџџџџџџШq”iƒdџџџџџџџџџџџџџџ€As I€ўџрџџиџџАџџџџџџџџ%ўџџџџџџџџџџџрџџџџџџџџ %b€.88џџџџ@џџџџџџџџb€0`:џџџџ@џџџџџџџџ*€3џџџџ4Є@џџџџџџџџџџџџtџџџ џџ џџџџXƒўџџџџџџџ(џџџџџџџџџџџџџџ‚ ,џџџџўџџџ0џџўџџџџџџџџџџџPџџџџџџџџЈаPPџџџџџџџџ8`џџџџџџџџџџџџ` џџџџИ џџџџ@PџџџџАџџџџџџџџPџџџџ`рџџџџџџџџџџџџаЈ\ЬЄџџџџџџџџџџџџџџџџџџџџџџјŸIпўЪx€€ џџџџ€8€.@€2p€ џџџџ" Ј А€ Ррј€ џџџџ"  € <X h xˆ € џџџџ"ЈАИ€ џџџџ" Р ,Ши€ џџџџ"р€ џџџџ€"ш€ 8€ TH€ b € џџџџ"LЈ € € (€ 8€ 2H€ (€€ (Ј€ а€ №€ €  € 0€ $8€ `€ "p€ *˜€ Ш€ р€ џџџџ€ (№H ;8 QPh p€€ џџџџ&ˆ0,А€ џџџџр€ џџџџ"  ш€ џџџџ€2№€(€,0€ R`ИР Ш=и, №€ џџџџ€ R € Px6 Ш..0`h €€  JM  B< 4X € џџџџ€ 8 Ш 4;а  J? X  8 ` 4B˜  а HZи   (  0 @ € џџџџ€ X  p € џџџџ € џџџџ"  ˜ JР:№ $0  X .h ˜ џџџџи Эџџx]ђр*Erste Zeile des Kopierbereichs (Spalte B!)]ђ8рLetzte Zeile des Kopierbereichs] ђ`р$ActiveSheet in DIESER Mappe (Button)–P ,A@rрurfBausteinwahl.HideэА.2р aufrфumenoџџ–З :(<џџџџџџр6Textbaustein irgenwo einfќgen, D17 willkќrlich gewфhltџџџџЖD17A@>џџ ,A@rџџџџџџЗ :(<џџџџџџэА.2р aufrфumenoџџX–аA@Boџџiv–C–omiz‹DOption 0licit Dim intFirst As Integ er 'Ee Zeiedes Kopierbereichs (E‚lвB!)"LТaŒ!Letz€" Pub€D wsAc‚>Work€sheet '@Р7Sin DIESER Mappe (Butt №"" T`}Ф хBx(j)  шŒb ˜+ jшСyIf ‚€idLoopУ@Є'1b:NA6Qв†Т$ !ЈW.€AddItem §€Gje,СэC!Є™2: A Гrn ‹ќve@ DR&3С3џA1e1ЁaX1EсџqJ2…%/хˆ!GбƒЙListIndex 0 '‚eБkn WerP9№nzei SC/CЦEЄ 'Х: JXaŸEnСgЌ(strœBSч>0пF 'Зqч”\№@ELs 2cy??Р0ТЁokeцt0 ?di`”TR'LфT (Anz€”фM INCLР. LeerРРX) ‘D љs eтrрNtel`QсБВ0гDose1Г3с! UntilJ<=5"…ˆ= i?T тˆƒS'j enthфlt=€.e№ Ђ„DerАhalb fvs2 єŒA,$’wi=аšrсw`т$u(nQ`t l  Р' Р--> nф‘Vџъ#pЁ 33-ёJ?Ws,„ (B-rК.ќ..г ЁƒAN'а ‘#(1):М g€o$“E Ўд: БiА1п 'sonst:џѕърrVQPGЯџ‘л'сЃА\КЯ'hochzp“QuFDebug.pœnt "A" ~&Бa幂 ?j& f<‚Ex€€ 'Šмаƒl Ђ be ЖРLETZENQ~BЬp abfqn4О1jgn|'hрИРgєin№ d Лф'"CЫОВЙ=` - O/№ 'lЯЛР“‘“'TTIнG 1:€1 zusam€ГОs Ѕ)C@жa2с{пє}џ 0 ёŒZЄ8<>BЗ q ’FS& рChr(1А˜—ѓP7P durch@ 2x "E@бrў"qEˆ !б1Ы іп es'Pžm EшRST !Dб#сDћ4сE: Ё„p /u‘`УQ'pusleЄ ODERџ*C1/ Q‰wBDRPLUS UmњbPЁh‘"Ћ M~O= 1ˆБ€ + i Loop Until i = j0 - 1Ш'Debug.Print strVo"r`lblscxhaun2 'banzeigenK3 End Sub !nvate BausteinE infue3(lPa As St™g)GwsA(ct.i='wer weiп, wo d UszwiЖendurch herumklickt? Anpassen!ƒ'Range(Cells(€First, 2).Address & ":"€L€K‰).C˜opy‰&^).‚aSpecial €'alles €sDfќ†‹AppLation.Cut!%Mode€ЗFalse+Select '%zelne Z€_e a`nwфhlИ†ГTabelle6 џџџџ>Ь_VBA_PROJECTџџџџџџџџџџџџI-dirџџџџџџџџџџџџ^[urfBausteinwahl џџџџџџџџ №џ&ЙЎШ№џ&ЙЎШР€’7;‘F–lšЈ РcџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџ<џџ< џџ<џџ<џџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}h0 Вџџџџ`џџџџџџџџџџџџ|џ@џџџџeTœiƒўџџџџџџџџџџџџџџџџџ Ш4џџџџјX0Pџџџџ€08`џџџџџџџџџџџџ|џ@џџџџџџџџX„€ўџџџџџџџ№џџШџџџџџџџџ%0(*€ 8Hј@џџџџџџџџџџџџаЈџџџџџџџџƒўџџџџџџџpџџџџџџџџџџџџџџ %‚ pџџџџўџџџ џџўџџџџџџџџџџџ %8џџџџџџџџџџџџџџџџџџџџeџџџџŒiƒўџџџџџџџџџџџџџџџџџ џџџџh8џџџџˆџџџџџџџџЈџџџџhџџџџџџџџџџџџџџџџxh „$џџџџxџџџ`€џ %џџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0  „$џџџџxџџџ€шЌџ %џџџџ˜џџџџ џџџџџџџџШџџџџџџџџџџџџџџџџШџџџџџџџџџџџџxHHXHџџџџџџџџџџџџџџџџџџџџџџ`ŸIпўЪ€ џџџџ€ џџџџ€ џџџџ€ џџџџ"  џџџџ0–o( ,B@ˆџџџџџџ@џџџџPџџџџїА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 WГ€0* pH‚dф VBAProjeˆct4@j = r ŸI” J< r€stdole>stdo€le h%^*\GChr\; €џџџ_B_var_wsActЪИthi+й €џџџ_B_var_SetCommandButton1_ClickфСџџxџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџq! џџџџџџџџџџџџџџџџ- џџџџџџHosoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object LibraryМ*\G{00020430-0000-0000-C000-000{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Ѕ€ ‡РA€5A4AD€1-F516-Р]9-AB27-56BE234135D‰6DOKUM€E~1\---@ LOKALTemp\Excel8.0\U.exdШc•<@"€с.E р…. `ŒM ДСЬBЮТt@ DieseArbeitsma@ppeG" 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, Tabelle6=44, 58, 1185, 708, H€,Ё{5€ЅTahoma Objўџр…ŸђљOhЋ‘+'Гй0œ@HTd | ˆ”ф - - -Microsoft Excel@fЇЄшЉШ@€ЧэИЎШџџџџl&ўџеЭеœ.“—+,љЎ0  PXd lt|„ Œ жфи  BausteineBriefvordruckeBriefvordrucke!SonderRabText ArbeitsblфtterBenannte Bereicheўџџџƒ„…†‡ˆ‰Š‹Œўџџџ‘ўџџџ“”•–—ўџџџ™ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџfџџџџџџџџџџџџlоo џџџџmЈi02џџџџџџџџ n`єЮ›ЭЊ`Ž№џ&ЙЎШ№џ&ЙЎШfџџџџџџџџџџџџqtVD#  !ўџџџ=$%&'()>+,-./81234567*9:;<ўџџџG?@ACўџџџTEWўџџџQ§џџџJKLMNOPBF"UўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬ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\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{2EEA4AD1-F516-4DE9-AB27-56BE234135D4}#2.0#0#C:\DOKUME~1\---~1\LOKALE~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџŸIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџt"DieseArbeitsmappe0V499f1d90џџ"DieseArbeitsmappeџџЭџџTabelle10c499f1dfeџџ!Tabelle1џџ1ТŠџџurfBausteinwahl0e499f1dfeџџ-urfBausteinwahlџџЌ0"џџTabelle60_499f1dedџџqTabelle6џџШHбџџџџџџhџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџКmDФ~xlA“Єы ЁДџџџџgЄЧёФ(OЌє&^`Тd џџџџDлcћ†A“~зC…ј$џџџџ”~ЗVю­—J•ˆM *п№kџџџџџџџџ€YZџЌ1Excel€+VBAїтWin16С~Win32MacГВVBA6­# VBAProjectОПstdole“`OfficeuMSFormsCDieseArbeitsmappeЏ €џ_EvaluateйWorkbook_BeforeCloseВзCancelё˜ KMlіschenщŒWorkbook_Deactivate4Tabelle1RŠWorksheet_BeforeRightClick3TargetЌFRangeк  KMerweiternGšWorksheet_DeactivateбгurfBausteinwahlьsintFirstДГintLastLўwsActнє WorksheetСўcmdAbbrechen_Click( cmdOK_ClickИ ApplicationЅ*ScreenUpdating! BausteinEinfuegenv3UserForm_Initialize5c cboFuellenpcboBaustein_changeГСVorschauFuellenT= cboBausteinnai`Sheets  UsedRangeШ‰RowsЁUCount0vCellsAddItem‡  ListIndexїQstrBSV_jastrVorпUChrK~ lblVorschauБяstrPaste‡Activate—|AddressЇХCopyЦП PasteSpecialОK CutCopyModeЈTabelle6WŠModul1ЭKMљ] CommandBars ControlsЬKAddїr BeginGroup‰ЖCaptionxOnAction„  CommandBarDeleteИxmakroь$ShowѕcmdBausteinwahlЮCommandButton1|дUserFormN frmVorschauзщ cmdAbbrechenš cmdOK' €џThisWorkbook|у€џBeforeRightClick„n €џDeactivatejЎWorkbookkItemзz€џClickŠу €џInitializeгN€џChangeЃЧ€џ_DefaultjТ€џValueфK _B_var_oџџџџp4CompObjџџџџџџџџџџџџnpCompObjџџџџxaVBFrameџџџџџџџџџџџџz1ўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=ўџџџ?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]ўџџџ_`abcdefghijkўџџџusoўџџџўџџџrўџџџtўџџџvwўџџџyўџџџ{|}~ўџџџ€Root Entryџџџџџџџџ РFт"ЛѓЌШ№џ&ЙЎШ€&Workbookџџџџ;_VBA_PROJECT_CUR"џџџџџџџџ№Ž$ЙЎШ№џ&ЙЎШCtls џџџџџџџџ i€™sРAr*bРi€Тs€raЂp@e“2ЄЂHB1ТуZЭРљB,Ђ"+трTabell e1GЁaЕТlbt1Рi2r!oŠm1Тk  urfBau@xinwahl"G€u $f*Bu]tb%nJwрh€2ЅЏ"ЏЌт-X( ђ$6ё$6еы$6ё$60бЄэ$ Шщ$a22.0#0#C:\DOKUME~1\   }t А„(х €A€H€,Ё{5€ЅTahoma(ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вqџџџџџџџџџџџџџџџџ(€textЁq5€ЅTahomaau4H €€}Iь Vorschau4…,ѕ €24lblVorschauдд €Abbrechenme.g Ou€ЅTahomaau(€OK…g Ou€ЅTahomaau8cboBaustein.OЇ(е €#frmVorschau.{Ъ(х €<cmdAbbrechen]]$х€4cmdOK/ЫO]CompObjџџџџџџџџџџџџ˜pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџ џџџџ РF$Microsoft Office Excel-ArbeitsblattBiff8Excel.Sheet.8є9Вq