ࡱ> *)  !"#$%&'(Pf,-./0@3456789:;<=>?+ABCDEOGHIJKLMN_oRSTVWXYZ[\]^Q`abcdeghijklpn{rstuvwxyzm|}~Root Entry F𘶎1QWorkbookM_VBA_PROJECT_CUR"Rq𘶎VBA~x  Worksheet"&Tools&WindowChart"&Tools&Window(Visual Basic Module"&Tools&Window\pMarijke Peijster Ba= ThisWorkbookޯ=K8@"1Arial1Arial1Arial1Arial1Arial1* MS Sans Serif1" Helvetica1" Helvetica1Helv1Helv1" Helvetica1" Helvetica1" Helvetica1" Helvetica1Arial1Arial1Arial1" Helvetica1" Helvetica1Tahoma1QTahoma1Arial1" Helvetica7" "\ #,##0_-;" "\ #,##0\-A" "\ #,##0_-;[Red]" "\ #,##0\-C" "\ #,##0.00_-;" "\ #,##0.00\-M$" "\ #,##0.00_-;[Red]" "\ #,##0.00\-q*6_-" "\ * #,##0_-;_-" "\ * #,##0\-;_-" "\ * "-"_-;_-@_-,)'_-* #,##0_-;_-* #,##0\-;_-* "-"_-;_-@_-,>_-" "\ * #,##0.00_-;_-" "\ * #,##0.00\-;_-" "\ * "-"??_-;_-@_-4+/_-* #,##0.00_-;_-* #,##0.00\-;_-* "-"??_-;_-@_-"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)72_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)61_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)7""\ #,##0_-;""\ #,##0\-A""\ #,##0_-;[Red]""\ #,##0\-C""\ #,##0.00_-;""\ #,##0.00\-M$""\ #,##0.00_-;[Red]""\ #,##0.00\-q6_-""\ * #,##0_-;_-""\ * #,##0\-;_-""\ * "-"_-;_-@_->_-""\ * #,##0.00_-;_-""\ * #,##0.00\-;_-""\ * "-"??_-;_-@_- "fl"\ #,##0_-;"fl"\ #,##0\-% "fl"\ #,##0_-;[Red]"fl"\ #,##0\-&!"fl"\ #,##0.00_-;"fl"\ #,##0.00\-+&"fl"\ #,##0.00_-;[Red]"fl"\ #,##0.00\->9_-"fl"\ * #,##0_-;_-"fl"\ * #,##0\-;_-"fl"\ * "-"_-;_-@_-FA_-"fl"\ * #,##0.00_-;_-"fl"\ * #,##0.00\-;_-"fl"\ * "-"??_-;_-@_-+&[Blue]#,##0,_ ;[Red]\-\ #,##0,_ ;0_ ;@ dd/mm/yy #,##0.0                + )   %    A A ( A"p A @ A"4@  A   A (  A ( A"4@ @  A , A , A"<@ @ A   A , A , A $@ A ,@ A ,@ A l@ A#<a@@ A#<@ A!<@ A ,a@@ A $ A  A"<@ A @ A ,@@ A ,@ A#<@ A $@ A d@  A $@ A d@   1 ,@ A ,@ A $@ A ,a@ @ A d@ A ,a@@ A ,@  A ,@  A ,@ A l@ A $ A"4 @ A $ A , A @ A $@ A , A , A A A la@@  A ( A"p  A ,@ A A&4 A d@ A"8@ @ A l@ A l A  A  A A A# A"8@ A"0@ A <@ A |@ A < A | A |@ A"8 @ A"8 A"< A"<@ A#<@ A!|@ A!|@ A , A Standaard_BedrijfsReserveStandaard_Blad1_18 ``i̜̙3f3333f3ffff333ff333f33f33BBB\C82+yZ:W budrap (..CBE)D82+yZ:W budrap (..CFDS)D82+yZ:W budrap (..CVBO)B82+yZ:W budrap (.CBE)H82+yZ:W budrap (.CvB-proj.)H8 2+yZ:W budrap (.P&O-proj.)J8 2+yZ:W budrap (.WMW-tcw (2))E8!2+yZ:.W download (..CBE)F8"2+yZ:.W download (..CFDS)F8#2+yZ:.W download (..CVBO)D8$2+yZ:.W download (.CBE)J8%2+yZ:.W download (.CvB-proj.)J8 &2+yZ:.W download (.P&O-proj.)L8'2+yZ:.W download (.WMW-tcw (2))`% Beveiliging% Opbouw Model`& Import All&Import Gegevens@'Samenvoegen All'Opslaan ( Overzicht KEind=LModule1LModule2MModule3MModule4   ;: * Bedrijfsgegevens;M%Opslagdirectory: "f^fH( @bZ  3 A@@  eA3"Biomedisch Technologisch Instituut0Centrum voor Telematica en Informatietechnologie UT-NieuwsFinancile en Economische ZakenBeheerseenheidBedrijfsreserve ResultaatTotaal Faculteiten FaculteitenTOTAAL Projecten UTprognose?Micro electronics, Materials engineering, Sensors & Actuators +DienstenFacilitair BedrijfBureau CommunicatiePersoneel, Arbeid & Organisatie Institute for Governance StudiesTotaal Diensten (bedragen in k ) &Construerende Technische WetenschappenTechnische NatuurwetenschappenGedragswetenschappen4Institute of Mechanics, Processes and Control Twente:Dienst voor InformatieTechnologie, Bibliotheek en Educatie&Dienst Studentenvoorzieningen & Campus$Dienstverlening Universitair Bestuur InstitutenTotaal Instituten(Elektrotechniek, Wiskunde en Informatica!Institute for Behavioral ResearchCollege van Bestuur Begroting Student UnionTechnische Geneeskunde.Discrepantie doorsluizingen stimuleringsgelden-!Geprognosticeerde resultaten 2007Management en BestuurProjecten College van BestuurCentrale Beheerseenheid!Personeel & Organisatie ProjectenTotaal Projecten UT eind 2006 Resultaat */* Het geprognosticeerde resultaat is exclusief:S - dotatie IVH-bijdrage (M 7,1) aan egalisatievoorziening investeringssubsidies; - resultaat deelnemingen;' - effecten mutatie onderhanden werk;V - extra aanvullende voorzieningen naast de reeds aanwezige voorzieningen eind 2006.: - o,!n`"#^$cc &A Page &P"PDInst??vo> P &A Page &P"PDInst??vo> P &A Page &P"PDInst??vo> P &A Pagina &P"PInst??vo> P &A Pagina &P"PInst??vo> P &A Page &P"PInst??vo> P  P-:;FI  dMbP?_*+%&R&14 Bijlage 1 &\.?'\.?(M&d2?)\.?MHP LaserJet 2200 Series PCL 6? dXXLetter.HP LaserJet 2200 Series PCL 62xxePKQ=绣Lm9>LMC>!ںPB w@Kf ȜED7$l78Źw/S_ KpHuDК1MzBbݱ~ zҐt!S5m:Ndؾ-B]eƖZZl90ke pﲇ+[Էqd9gL!d $fSo.P S {1Or GnvItG*Ǣ_9nKtK g(❈I\)ȹі۲;iJŢVnk~xr\mz(-Ӣ+L}ƀ/q2˕DTcr uSoR{bF/B?\" =XX\.?U} I;/}  } } I #} $ Phh        K L J& $ %NNNNNR  ! 2 T! c T- T T T T  "3~ \\@ d \ \ \ \ \   0, 4]*e@$@f0@f4@f@8@f <@f?@ O1 &DQ ' GGG GG 65  Q ( S`f@F{@`@ E``E8 :K@ # ) :@Vܐ@a@ EaaE8 :@@ B ( :Z@F@`0@ E``E8 :@ $ W (# :t@Fp@`@ E``E8~ :ƪ@ W )':yV$a0@VaaV8~  :c@ (:gF@i@` @````8~  :'@ W W( HHHHHHH89  W *<H@ -<7@<@<<<<8# <@ %   W(;;;;;;;=7 ';;;;;;;=7 ) : `:~^@:^^:8 :_@ W (:::@::::8~  :@ (:ȁ:g@^r@:^^:8~  :T@ (:@h@::Y@::::8~  :F@ ):ByBi@:BB:8~  :@ (??U@@^^^^^8~  :k@( ; ;HHHHH87 *>D) ->)>y)>)>)>)>)8# <@) % +;;;;;;;87X '@@@@@@@8A )BB@Bu@BBBB8: )::`~:0^::^8: )" ::^ ^^^^8: D l**T"D__iVL`<=*_LLLLL>3 *@@! " # $ % & ' ( )  * + , - . / 0  1 2 3 4  5 @6 ,7 ,8 ,9 ,: ,; < = > ? @ !)!:: :Y!_::_8: ")":(@B(@^"_^^_8: #(#::B@^Y@#:^^:8: $)$:Bx_r$^__^8: %( %:B@:%B::B8: &)&BBG@_I@&____8: '('::4:'::::8: ((;;HHHHH8 ( 7 )*)>(@0))) -)<00))< |0))<0))<0))<0))<0))=#) <. %( L*(;;;;;;;87 +h +?UbUbbU8: ,i(,?UPbx,UbbU8: -i*-?`UІby-UbbU8: .i).?j@U7@b8@.UbbU8. :@0 /,?UPPPPP8: 0*+0>@4000 -0>j@400>400>400>400>400>4008#0 <@4 %,. 1+???????8B 2,$ 2g%2g@?02????8B 3+77777778 3 : 4- 14>~@p#DDD)D04M@4+44!LLLLLW4M@ 44M44M44M44M448-4 <P@D D D) D0 5.CIIIIIICC 6j.6CCCCCCCCC 7k/7//////// 8k0 9k1 9 WX :k2:X:W:W ;WXY ;YY;W <WXW <WW=WWWWWWW>WYWWWWW?WZWWWWW@WYWWWWWDx l@@@@@@@*3*@@_3H*g*(,(ABCDEFGHIJKLMNOAWYWWWWWBWYWWWWWCWYWWWWWDWYWWWWWEWYWWWWWFWYWWWWWGWYWWWWWHW[WWWWWIWWWWWWWJW[WWWWWKWWWWWWWLWWWWWWWMWWWWWWWNWWWWWWWOWWWWWWW"(  ~  <آ XPP? U]4@آ. ۂKP}o )<*+ positief resultaat - negatief resultaat<)T.Blaasl>@***7 &A Page &P"PDp??c> P &A Page &P"PDp??> P &A Page &P"PDp??> P &A Pagina &P"Pp??> P &A Pagina &P"Pp??> P Import Gegevens  2\&Opbouw ModelFEind  Import All C   !"#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdeghijklmnopqrstuvwxyz{|}~artryl op nul zetten z_nummer50lL/bend indi7r Ntjeis Clo se #1' wiss aanwezige gC) Hetbied "Download_Blok" is 5 koloAn bdBinrBhkun ?daarn ve rwijz9d.m.v. A t/m EdeV rsLbKp{!gesz#`]o' 1ep, 24 positier '`ewsbn,blol5' 2 budgetbedrag,1630 alisPez ' ActiveC\.Offset(x,yh) k0tNwc!Z' xs"|b7vEyypVhtA ' (bun$eg veof yAre kva0.!\:! |e\ a csda`{?vqn\t_ :'Fh_Z;, wad`0?bP?ls %?9r|d!O1, 0\=`TX>1 C:tXz_1pBC0_#(w2wA'on`sFpbdPecim{ id'q7Оk0|d1TBqn cijfers vQ0=7D,f'atu-100`#P4]"Vm[a' rw In19'Nat weg8goor sp15sqdeJ m.bfP@O Trim()ۀin@6h0.vrN}m_lijkheiPI'1 1 ""enPz'c i1d> zelf D"-0"naC"%&@altijdbtwe`#!'CerEkn⊔weguel U,B k`a'Ha  @rw Yqӏv 'conPi!Pze@Z70SO'x CDbl()T' "e6typp*'puble-pIais fpt  po2", 64-bit, 8-byPper getal 'Dit is de meest nauwkeurige notatie in Excel.~"If Trim(Mid(tekstregel, 30, 13)) = "" Then;'als hetel voorpunt leegan zetten we @daar e nul neerSz_2;0"Else!d-dǁ:f benkkWmin\sta ath"-0"fh]jGZind IfED'a@kelkAik(nop;v@deEwv, komma na O'@converterActiveCell.Offset(z_nummer).ValueCDbl@2 &0 ","@43, 2))O O46@Kp3v ]]]!Tkz_]O ]O:! Z]r ]n]]]4]3]59]!O' doiets ( $ 'mAvolgen͂§LoopClose #10 ' XSlu!band@ '@  Next (c bkeBnhuidwerkbladA@ Sheet.Calculat'nBud`_Blok R@ange("h").Select A ASub A t/m EF de eerste regel bevat kolomkopgegevens en hoeft niet gewist te wordenO Door binnen het gebied het aantal rijen te tellen is de laatste rij te bepalenA2:E Download_Blok$"!$!& Download_Blok$"%"B@(, selecteer linkerbovenhoek van Download_BlokA1 Download_Blok$"%"B@H elk bedrijf heeft drie bestanden"de name#W*xMExdk*xMEP @ 140 "  ( $8 ` p . 6 B0 Lx VN  2p* & ( N( .x  D D0 0x6 8 .(X (` * 4 ( ( (8 ` " &  *   .@ .p 2  0 2 2@ <x 8 $ 8 X (p  F D >( $h @ L B Dh : @ 40 8h  . B 40  h H   " F Xhp B 8  8 HX " F (8@`h Bp 8      (H $P x     (schermafhandeling even uit (+7|automatisch berekenen even uitog  (lestartregel op nul zetten' (sluiten bestand indien er eentje open isV wissen aanwezige gegevens/ Het gebied "Download_Blok" is 5 kolommen breed; Binnen het gebied kun je daarnaar verwijzen d.m.v. A t/m EF de eerste regel bevat kolomkopgegevens en hoeft niet gewist te wordenO Door binnen het gebied het aantal rijen te tellen is de laatste rij te bepalenA2:E Download_Blok$"!$!& Download_Blok$"%"B@(, selecteer linkerbovenhoek van Download_BlokA1 Download_Blok$"%"B@H elk bedrijf heeft drie bestanden"de namen staan in het "Stuur_Blok"Gde drie cellen met de bestandsnamen zijn als gebied "bestanden" genoemd'Voor elke cel in het gebied "bestanden" * bestanden$" Open een invoerbestand.> de downloaddirectory wordt opgehaald van het werkblad "Stuur"= de cel achter "Downloaddirectory" in het gebied "Stuur_Blok"* heeft als gebiedsnaam "downloaddirectory"downloaddirectory$"!.\ *!.',2open het bestand en geef het open bestand nummer 1 ,( zet hulpvaribele z_aantal_regels op "0"'0" Lus tot einde van open bestand #1# Dus doe iets zolang geen EndOfFile$2b - wijs de inhoud van een regel uit het bestand " toe aan de variabele "tekstregel" 4 " als de tekstregel begint met "CB" 4$CB een goede regel dus inlezen aantal regels met een verhogen  '  0 '0$ regel wordt in drie delen gesplitst 1 kop, 24 posities' deel overslaan, de volgende 5 posities( 2 budgetbedrag, de volgende 16 posities+ 3 realisatiebedrag de volgende 16 posities* ActiveCell.Offset(x,y) kiest de cel welke, x rijen naar beneden en y rijen naar rechts+ (bij negatieve x of y de andere kant op !)6 De actieve cel is in alle gevallen de linkerbovenhoek1 van het gebied "Download_Blok", want deze hebben we als laatste geselecteerd!   6%8(. 0  6%8(. 4$': 4$  6%8(.?het downloadbestand heeft een punt als decimaal scheidingsteken=een getal keliner dan 1 wordt heeft geen cijfers voor de punt8een negatief getal tussen -1 en 0 heeft wel een mintekenmaar geen cijfers voor de punt9Na het weggooien van de spaties uit het deel voor de puntFm.b.v. de functie Trim() testen we achtereenvolgens op de mogelijkheid<van niets voor de punt "" en enkel een minteken voor de punt=voor die gevallen zetten we zelf een "0" of "-0" voor de punt3Het deel na de punt bestaat altijd uit twee cijfers9Cervolgens knopen we het gedeelte voor de punt, een komma-en het gedeelte na de punt weer aan elkaar en2converteren deze tekststring naar een getal m.b.v.de functie CDbl().'CDbl() "converteert naar getal van type;"Double-precision floating point", 64-bit, 8-byte per getal-Dit is de meest nauwkeurige notatie in Excel. 4 $$<Aals het deel voor de punt leeg is dan zetten we daar een nul neer0'>d 4 $$<-@als voor de punt enkel een minteken staat zetten we er "-0" neer-0'>d 4 $$<'>khk`;aan elkaar knopen van deel voor punt, komma en deel na punten converteren >, 4+$X  6%8(. 4. $$<Aals het deel voor de punt leeg is dan zetten we daar een nul neer0'@dH 4. $$<-@als voor de punt enkel een minteken staat zetten we er "-0" neer-0'@d 4. $$<'@kk;aan elkaar knopen van deel voor punt, komma en deel na punten converteren @, 4;$X  6%8(.d doe nietsk neem de volgende regelV Sluit het bestand. volgende bestand *berekenen huidige werkblad ActiveSheet.Calculatenaar Budget_Blok Budget_Blok$"B@Ho }Attribute VB_Name = "Import Gegevens" PSub l_l(X)  8.ProcDataInvoke_Func \n14\'schermafhande ling w uit\pplication.ScreenUpd$= False 'automH berekenenDCalHcul,onxlManual"@st J FP Ddit blad dient enkel als referentiepunt voor de macro "Opbouw_Model"?kopien van het werkblad "Model" worden vr dit blad geplaatst`Attribute VB_Name = "Eind" 'dit blad dient enkel als referHiepu0voor de macro "Opbouw@_Model'kopien van het Pwerk"D wordeFsgeplaatst 2 0 Rdk*xMEP X@  140" " n x " J(@ h  Z  ( B@    (   ( 0 @gdeze macro importeert de gegevens voor alle werkbladen welke zojuist met de macro "Opbouw" gemaakt zijnschermafhandeling even uit (ga naar werkblad "Bedrijven" Bedrijven$FB@HD voor elke cel in het gebied "Afkorting" op het werkblad "Bdrijven" *Bedrijven!Afkorting$" kies deze cel *B@HSals de waarde in de cel rechts van de gekozen cel "J" is dan is er een bedrijfsblad 6%8!.Jselecteer werkblad *!.$FB@H<importeren gegevens d.m.v. aanroepen macro "Import_Gegevens"A@dh doe nietskP"ga terug naar werkblad "Bedrijven" Bedrijven$FB@Hkies de volgende cel *A@RoAttribute VB_Name = "Import All" Sub P_P() ..ProcDataInvok@e_Func \n14'deze macro$ ieemde gegevens voor alle werk@bladen lke zojuist met 2F"Opbouw"Amaakt zijn'schermafhandeling !a uitpplication.ScreenU pd= False 'ga naarD "BedrijSeSheets( ).Selec/ de[cel in h[gebied "AfkI" op v22FEach c In Range8!#˂ 'kiesӀ: cK'nwlQ%@AA(recht_angekoz@^A"J" i@@er K bB fsAhIf ActiveCell.Offset(0, 1).Valu@Theg"sKXCVc U čr *xMEx D@p0'Macro recorded 06-04-97 by Harry Coenenzi 02 " D VP F B 8 X h  " J(0 X p J@ >(P $x 2 0 R0D   ` <P <h p (   ^`h x>Deze macro kopieert het Werkblad "Model" voor het blad "Eind",lsOindien in het werkblad "Bedrijven" in de kolom "Doet Mee?" een "J" of "C" staat@zet de afkorting van het bedrijf in cel E2 van de gemaakte kopie<geeft de gemaakte kopie als naam de akorting van het bedrijfschermafhandeling even uit ( Berekenen even uit  (Ga naar Werkblad "Bedrijven" Bedrijven$FB@HD voor elke cel in het gebied "Afkoritng" op het werkblad "Bdrijven" *Bedrijven!Afkorting$" kies deze cel *B@HCals de waarde in de cel rechts van de gekozen cel "J" of "C" is dan 6%8!.J 6%8!.C8kopieer het model en zet de kopie voor het blad "Opbouw"Eind$FJModel$FB@H en zet de afkorting in cel E2 *!.E2$"(L+geef het werkblad de afkorting als naam mee *!. N(*zet de formules in het gebied "Stuur_Blok"L(om voor mij onduidelijke redenen zijn deze formules na kopieren verdwenen!)r geta Stuur_BlokModel$P%"!L Stuur_Blok N%"(LBeveiligen werkbladAalZUserinterfaceonly:=True etekent dat een macro wel de inhoud van de werkbladen kan wijzigen6de macro's werken dus ook ALLE op de beveiligde bladen een5 z_pw = Worksheets("stuur").Range("B12").Value ActiveSheet.Protect PASSWORD:=z_pw, DrawingObjects:=True, Contents:=True, Scenarios :=True, Userinterfaceonly:=Trued doe nietskx"ga terug naar werkblad "Bedrijven" Bedrijven$FB@H voor kies de volgende cel we da * neerXBerekenen zodat de gegevens van het werkblad "Bedrijven" in de bedrijfsbladen goed staanA@RoAttribute VB_Name = "Opbouw Model" Sub X_X()  2.DescriptionMacro recorded 06-04-97 by Harry CoenenjRProcData^Invoke _Func^ \n0;'Deze mkkopieert het Werkblad " voorEind", 'ien inwBed0rijvP de kolom "Do.Mee?" e"J" of "C" sthaat(zafkorting va.b)f'cel E2 gemaaka!geeft als naam a/'schermafhanBee uiPApplica!j.Scr@1UpFd@*= Fe Berekh Calcul@dxlManualGa)rHaS Sheets(").SelecAOjelk e Iegebi @"AUitng@]pMlEl F{Each c In Range!f" 'kies@U@ c%A'^@dwaaĄA(htsrkozKAȆianIf ActiveCell.Offset(0, 1).ValuB@Or @TheB)Fm #D x@ia3f@).Copy`Afore:=gd'=' _7 E2D1E2").4mHR1C1HcG'`k XH  " J(h   Z  8 <P 2 .  ,@p "@h ,   ( 2H & ( <0 H `hx  L  &0 ZX , : ( "H Tp *  6 P  4X      B 0 <H   (   H 0 @  H  h x  7deze macro slaat alle bedrijven op in een apart bestandQin de directory welke achter "Opslagdirectory"op het werkblad "Stuur" is ingevuldschermafhandeling even uit (ga naar werkblad "Bedrijven" Bedrijven$FB@H "AfkoD voor elke cel in het gebied "Afkorting" op het werkblad "Bdrijven"" *Bedrijven!Afkorting$" kies deze celin d *B@Hts vanSals de waarde in de cel rechts van de gekozen cel "J" is dan is er een bedrijfsblad 6%8!.Jselecteer werkblad6dit werkblad heeft de naam van de waarde in de cel dus *!.$FB@H,maak van de formules in "Stuur_Blok" waarden Stuur_Blok$"B@H ^B@H  db hfjl ^B@`%verbergen "Stuur_Blok en gebiedsnamenA:G$n!p(r1:95$$!t(rStart$v(x bestanden$v(xbestand1$v(xbestand2$v(xbestand3$v(xOpslagdirectory$v(xdownloaddirectory$v(x Stuur_Blok$v(xAlles$v(x Afkorting$v(x&ga naar "Budget_Blok" en zoom naar 75% Budget_Blokz B@K |(~!naam opslagdirectory even ophalenOpslagdirectoryStuur$P%"!.'password even ophalenB12stuur$P%"!.'"verplaats werkblad naar nieuwe map6dit werkblad heeft de naam van de waarde in de cel dus *!.$FB@password op sheet  NB@Y, DrawingObjects:=True, Contents:=True, Scenarios :=True, Userinterfaceonly:=TrueFActiveWorkbook.Protect PASSWORD:=z_pw, Structure:=True, Windows:=False opslaan Bedrijf in apart bestandTals naam blad begint met een punt kan deze naam niet als bestandsnaam genomen worden%de punt wordt in dat geval weggelaten4als het eerste teken van de werkbladnaam een punt is *!.$.nemen de het deel na de puntNdit deel begint op positie 2 en heeft als lengte de lengte van de naam minus 1$bij twee punten een analoog verhaal! *!.$. \__ *!. *!. $',d \_ *!. *!. $',khd`gewoon de werkbladnaam \ *!.',k ,  B@  B@B6om er zeker van te zijn dat we in deze map terugkeren! B@@L "ga terug naar werkblad "Bedrijven" Bedrijven$FB@HberekedAindien geen "J", dus indien geen werkblad voor bedrijf is gemaakt doe nietskkies de volgende cel *sen aaox\Attribute VB_Name = "Opslaan" Sub D_Al`l() `.ProcDataInvoke _Func \n14'deze macro t alle bedrijven op in e apartstand 'de directory welke achtTerg"Ghet$rkblad "Stuur" is_gev ulSUsche rmafh2el ing eCuittpplication.Scr1JUpd= False ga naar4BfwSheets(" ).S( H@ 14  14   14   14! " b <p&2 "& H` "hp  (@ "H (Px  0@[Userinterfaceonly:=True Betekent dat een macro wel de inhoud van de werkbladen kan wijzigeneve x 6de macro's werken dus ook ALLE op de beveiligde bladenafhaB12stuur$P%"!.'ga  NB@B@HoHB12stuur$P%"!.' o  NB@drijveoEind$F(xing Beveiliging$F(xin d Opbouw Model$F(xcel Import All$F(xjfsblaSamenvoegen All$F(xImport Gegevens$F(xOpslaan$F(xo! Sheets("Eind").Visible = True Beveiliging$F(x Opbouw Model$F(x Import All$F(xSamenvoegen All$F(xImport Gegevens$F(xOpslaan$F(xo;Attribute VB_Name = "Beveiliging" Sub Ten() ..ProcDataInvoke_Func \n14'Userinterfaceonly@:=Trueatekent dat een macro wel de inhou d van we@rkblad%kwijzige0n '*7's9rO dus ook ALLE op>b," z_pwWWorksheets("stuur").Range("B12 ValueActiveS.tect PASSWORD:=(@, DrawObjsx, ContScenarios _ H  End ONT $E|DUnp roD-Verber@q ,b@nEindjisiblFalsDmG).V Opbouw ModelImport Al^ S]e@> G vens!Opslaan /F/{aF0!}C[///O// r/Q/&/ *xME @x63De macro is opgenomen op 6-06-97 door Harry Coenen.z 08 " 8 X@  (2 (&H "p J( 0 H ZX     " T8 *  6 4 X` h &  (0 P HX     2deze macro laadt bedrijven uit de aparte bestandenQin de directory welke achter "Opslagdirectory"op het werkblad "Stuur" is ingevuldschermafhandeling even uit (t G!naam opslagdirectory even ophalenOpslagdirectoryStuur$P%"!.'password even ophalenB12stuur$P%"!.'ga naar werkblad "Bedrijven" Bedrijven$FB@HD voor elke cel in het gebied "Afkorting" op het werkblad "Bdrijven" *Bedrijven!Afkorting$" kies deze cel *B@HSals de waarde in de cel rechts van de gekozen cel "J" is dan is er een bedrijfsblad 6%8!.Jselecteer werkblad *!.$.nemen de het deel na de puntNdit deel begint op positie 2 en heeft als lengte de lengte van de naam minus 1$bij twee punten een analoog verhaal! *!.$. \__ *!. *!. $',d \_ *!. *!. $',kdgewoon de werkbladnaam \ *!.',kP , B@  NB@Eind %FJ$FB@"ga terug naar werkblad "Bedrijven" Bedrijven$FB@HdAindien geen "J", dus indien geen werkblad voor bedrijf is gemaakt doe nietskHkies de volgende cel *ouAttribute VB_Nam@e = "S8nvoegen A ll" Sub d_d()   8.DescriptionDe macro is opombop 6-06-97 door Harry Coenen.|aProcDatamIke_Funcm \nB0'dezylaadt bedrijv|uit de aparbestanden 'in directoHwelkchter "Opslag"bhet werkbladtuur"tingevuld'scherm(afh3l eCpplica.ScreenHUpdnggFPalse! 'pnaamA$o0phal`z_oS$Worksheets("SR).Ra((5).Valu@'passworRdpwsB12"@Wga 0rLBdlS').Sel@bQ vccel @j^gebie@^@AfkortV"e@H KeB~FEach c In @F!@@kies@ c%BhwaarCA(@hts va”g0ekozA"J}ˆd@@@}fsAIf ActiveCell.Offset(p0, 1T_AThE~'sKe@ŤCMid(cxA ." bnet!)de-napunt dibegintA/posit`ie 2  :ft $Sg`m $"bZminus 1 bij tw8ee  $analoog verhaal!% 2z_filae& "\_ _" & Len') - 2C Ebt!e=  `<End If 'gewo*>*G<A H #!books.TOp1F@'n@:=C Tx.Unprotv PA@SSWORDapw#|@XMove Before:=This% .d"Eind"-' ug0Eq )digMj, d R/+Ðcf!gemaakb'doe ni$ )v'l`7 Next c= dk*MBSK.T &M-TBCiB VOO-sec O-ULOINFCPL$OMTIMESADISE_ AR"BMTIPCMCSHO,CSTBCTI VF-(PROB.CR)MCOB.C IV&proj.U.FB !FF .CV! SECR.BBBB.AMDF$EZP&VEI LGIAC CBAG"A-UT(vB-@H.CBE"&.CFDS'&FateitenOzisInterf@ac. Vz R &` > R X  Rx   Macro7 Macro( Macro recorded 28-01-98 by Harry Coenen +FiWBELCTTNTW.WMW.WMW-tcwBSK.T&M-TBK.T&M-CiT.T&M-VOK.TO.TO-ULOINFCPLOMTIMMESADISEBMTIPiTCMOCSHOBCSTMCTIT.VF-PROF.VF-CROIMCOC.CIV .CIV-proj.UB.FB .FB-proj..CVB.BCvB.DSZ.UT-N.AMD.FEZ.P&O.VEB..LG ..LG-WeWiIAD.CA.CA-UTC .CvB-proj. .P&O-proj...CBE..CFDS..CVBO.CBED4$F.   B@HxB12stuur$P%"!.'  NB@7Application.ExecuteExcel4Macro String:="Weergavebeheer"LApplication.ExecuteExcel4Macro String:=" WEERGAVE.AFBEELDEN(""download"")"ActiveSheet.PageSetup.Zoom = 607Application.ExecuteExcel4Macro String:="Weergavebeheer"KApplication.ExecuteExcel4Macro String:="WEERGAVE.VERWIJDEREN(""download"")"QApplication.ExecuteExcel4Macro String:="WEERGAVE.BEPALEN(""download"",TRUE,TRUE)"LApplication.ExecuteExcel4Macro String:=" WEERGAVE.AFBEELDEN(""download"")" oAttribute VB_Name = "Module2"  ' Macr o7< recorded 28-01-98 by Harry CoenenTSub alle_balden(X) .ProcData Invoke_Func \n14Set rSheets(Array("WB@", "ELCRTTNW.WM-tcwBSKT&M-TBCi. VO OO-U"LINFCPHLOMTIMESADISE!_ "B(MTI P/CM!#CSHO\CS"T CTI?VFP-PRO2.CRR;MC"O.CIV-pr(oj.U'.FxB" ? .DCVBCvDDSZUT-BN.HAMDFEP"& .VE .LG-WeWi)IA CA.CA-UT*vBH#H.CBK..CFDS*C )For Each w In@ w.Select\z_pw@ WorksÈ"stuur").Range("B12ValueCh@ActiveB.UnRt PASSWORD:=Application.Exec@Excel4 S@ng:="WeergaPveber'e@WEERGAVE.AFBEELDEN(""download"")"H,Pageup.Zoom>60+eVERWIJDEfRri& BEPAL, ,TRUE!  d **Next w End *xME @x3De macro is opgenomen op 2-02-98 door Harry Coenen. 0 3De macro is opgenomen op 2-02-98 door Harry Coenen. 0   : ` h"px   :  " Macro16 Macro4 De macro is opgenomen op 2-02-98 door Harry Coenen.o Macro17 Macro4 De macro is opgenomen op 2-02-98 door Harry Coenen.o԰Attribute VB_Name = "Module3"  ' Macro16@De mL is opgenomen 2-02-98 door Harry Coenen.lSuba() d.Description0mYProcDataeInvoke_Func2 \n0End QWT7 |7|7|,|*xME @x0De macro is opgenomen op 16-04-98 door CIV-PCNS. 0   8 X `"hp 2  Macro1 Macro1 De macro is opgenomen op 16-04-98 door CIV-PCNS. dx N! B@H(Weergavebeheer\ B@ WEERGAVE.AFBEELDEN("budrap")\ B@halen 24      !"#$%&')*+,-/0123456789:;=>?ABCDF8oMAttribute VB_Name = "Module4"  ' Macr o1yProtectfPASSWORDActiveWorkbookSaveAsf;Filenamej FileFormatxlNormalLWriteResPassword:ReadOnlyRecommended CreateBackup SAVECHANGESt ThisWorkbook|Activate| Beveiliging BeveiligenkDrawingObjectsߺContents= ScenarioskUserinterfaceonlyN ONTveiligen Unprotect? Verbergen ONTbergenbSamenvoegen AllSamenvoegen_All WorkbooksBModule1b Bereken_bladdown_alle_bladenrc^wm show_downloadExecuteExcel4MacroO show_budrapFModule2c alle_baldenModule3dMacro16s Macro17t Module4eMacro1A~ I`C   UW[ " * Import Gegevens01487dc9f9Import Gegevens!Opbouw M6@  Z=  &? %J<9st dole>stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2 .TLB# AutomatioFn/MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4 DDOWS\sEFM20.DLL#Micr@osoft : ] Object Library/;D1t00}#0#0 FF1740D5-8894-4B0A-A47F-D36A7364EBCEH.DOCUME~1\Tuinbeek\LOCALSAemp\VBE\DL.exd3!.E .`M œ  *@ Import GegevensG cpet Ggvni*2 HB1«! ,B&!B +B¬Opbouw ModelGOpb(uw(M@d'hl 2 $=B' $A,Ei ndG EhinB 2o ] 3Al 3A`x!+25@r}@OpslaXanGvA/s@aaz2 B@RiligingG\@2a@8} !eSamenvoen 2!eS` mnv@Pe`e`" E3o#e`?5@dule1#5bu%e1$A9/#5 ?5odU2222Z?233ժ33!?,U%,444_49_D_PThisWorkboDokPTh0sDW'rkPo_pPPok ? IIVq")8SYImport GegevensImport GegevensOpbouw ModelOpbouw ModelEindEindImport AllImport AllOpslaanOpslaanBeveiligingBeveiligingSamenvoegen AllSamenvoegen AllModule1Module1Module2Module2Module3Module3Module4Module4ThisWorkbookThisWorkbookID="{329401C3-AA2B-11D2-BE79-00105A0F1F3A}" Module=Import Gegevens Module=Opbouw Model Module=Eind Module=Import All Moduleay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{FF1740D5-8894-4B0A-A47F-D36A7364EBCE}#2.0#0#C:\DOCUME~1\Tuinbeek\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   &?  * Import Gegevens01487dc9f9Import Gegevens!Opbouw Model02487dc9f9BOpbouw Model Eind03487dc9f9TEind0]Import All04487dc9f9VImport AllHOpslaan05487dc9f9ZOpslaan`Beveiliging06487dc9f9BeveiligingxaSamenvoegen All07487dc9f9Samenvoegen All Module108487dc9f9Module1Module209487dc9f9Module2Module30:487dc9f9Module3!Module40;487dc9f9Module4ThisWorkbook0<487dc9f9ThisWorkbookVqI(H0`xM"&Lmc7pܚEŌTC2>سR$wMM_%w oO0vqvh