аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ ўџџџ&. !"#$%'ўџџџ()*+,-/30124ўџџџ56ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFžЃЊљЫoШР’’SЮoШ€:Workbookџџџџџџџџ!_VBA_PROJECT_CUR"`ЬFЮoШЕцFЮoШVBAџџџџџџџџ PчЮFЮoШ@„иFЮoШ вЭЩРсАСт\pentm46 BАaР=гКDieseArbeitsmappeœЏМ=а;лQп/8X@"Зк1Шџ$Arial1Шџ$Arial1Шџ$Arial1Шџ$Arial1ШџМ$Arial1ШџМ$Arial1Шџ$Arial1 џ$Arial #,##0\ "EUR";\-#,##0\ "EUR"% #,##0\ "EUR";[Red]\-#,##0\ "EUR"&!#,##0.00\ "EUR";\-#,##0.00\ "EUR"+&#,##0.00\ "EUR";[Red]\-#,##0.00\ "EUR"A*<_-* #,##0\ "EUR"_-;\-* #,##0\ "EUR"_-;_-* "-"\ "EUR"_-;_-@_-D)?_-* #,##0\ _E_U_R_-;\-* #,##0\ _E_U_R_-;_-* "-"\ _E_U_R_-;_-@_-I,D_-* #,##0.00\ "EUR"_-;\-* #,##0.00\ "EUR"_-;_-* "-"??\ "EUR"_-;_-@_-L+G_-* #,##0.00\ _E_U_R_-;\-* #,##0.00\ _E_U_R_-;_-* "-"??\ _E_U_R_-;_-@_- Є0.000000 Ѕ0.00000І 0.0000000000рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р ѕџ јР р,ѕџ јР р*ѕџ јР рx@ @  р2x@ @  рЄ"|@ @ + р"4@ @ Р рЅ"|@ @ , рІ"4Р р!p+ р @+ рІ"t+ рІ"tР р!p, р @, рІ"t, р !xР р @Р р!pР р!8Р р Р рІ"Р рBx@ @  “€џ“€џ“€џ“€џ“€џ“€џ`…žTabelle1…юTabelle2… Tabelle3Œ11Ў$ solver_adj;" solver_cvg-Cыт6? solver_drv solver_est solver_itrd! solver_lhs1:  solver_lin solver_neg solver_num solver_nwt  solver_opt:" solver_preэЕ їЦА> solver_rel1 solver_rhs1 solver_scl solver_sho solver_timd" solver_tolš™™™™™Љ? solver_typ solver_valСС"Оќ& Startwert x0 bzw. Solverergebnis   Startwert y0 bzw. Solverergebnis   Funktionenpartielle Ableitungen nach xpartielle Ableitungen nach yDifferenz der Ableitungen f1(x,y)f2(x,y)f1xf2xf1yf2yf1x-f2xf1y-f2ywStartwerte: werden zuerst hфndisch eingegeben und nach Durchlauf des Solvers mit dem Ergebnis des Solvers ќberschriebenediese beiden Zellen sollen vom Solver Null gesetzt werden, x0/y0 sind dabei die verфnderbaren Zellen.КUm nicht jede Zeile hфndisch mit dem Solver berechnen zu mќssen soll ein Makro"Solver" fќr jede Zeile (hier 3-10, real 3-ca.500) die Berechnung von x,y fќr die gesamte Tabelle vornehmen.-->Die 1.Tabellenzeile zeigt hier mal exemplarisch den Zustand vor Durchlauf des Solver (Startwert x=1, y=1 wurde hфndisch eingegeben), die 2.Zeile den Zustand nach Durchlauf des Solvers. Die Zielwerte x=-0,047619 und y=-0,190476 wurden hier korrekt vom Solver ermittelt.aMakro "Solver": nur Aufzeichnung der Aktionen zur Durchfќhrung des Solvers mit dem Makrorecorder.iMakro "Solver mit Schleife": hier habe ich versucht, zusфtzlich die erforderliche Schleife drumzubasteln.˜Der Einfachheit halber ist in dieser Beispielmappe in jeder Zeile die gleiche Funktion hinterlegt, deshalb sind die Werte von f1,f2, f1x,.. alle gleich.џE  т) №cc† вЭЩР Z4  dќЉёвMbP?_*+‚€%џСƒ„Ё"џŠ<ќ§~п?Š<ќ§~п?U } } л  :@ :@ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ џ§ (§ (§ ((§ ((§ ((§ ( (О ((§ § § §  §  §  §  §   Н№?№? @Ш2§М7 -LўРLўРLџРLџРLџР9@џ#D€D€D€DР@џМ LќРL§Р&@џМ  LћРLќР(@џМ' №ПLњР LћРР џМ РLљРРџМ  LќРL§Р ,@џ М  L§РLўР†a†aЈП†a†aШПnvд"фЏй?џОœ‚—S№т?џМ- #L§РL§РLўРLўРWUUUUUхПџVUUUUUхПџ†a†aРџ†a†aР џџ џ О О Н№?№? @џ@џ@џ&@џ(@џР џРџ ,@џ Н№?№? @џ@џ@џ&@џ(@џР џРџ ,@џ Н№?№? @џ@џ@џ&@џ(@џР џРџ ,@џ Н №?№?  @џ @ џ @ џ &@ џ (@ ў Р џ Р џ ,@ џ О  § О  § О  ! § "О ###О  О$###О  О  § %О  О  § &О  § &О  О  О ''' § О ''' О ''' О ''' О ''' О ''' з:Ђ |~M**.">Ж@  х2 я7К Tabelle1 вЭЩР І  dќЉёвMbP?_*+‚€%џСƒ„Ё"џŠ<ќ§~п?Š<ќ§~п?U >Ж@я7К Tabelle2 вЭЩР М  dќЉёвMbP?_*+‚€%џСƒ„Ё"џŠ<ќ§~п?Š<ќ§~п?U >Ж@я7К Tabelle3 DieseArbeitsmappe$џџџџџџџџџџџџпTabelle1 џџџџџџџџгTabelle2 џџџџ гTabelle3џџџџџџџџџџџџ0г ўџџџўџџџ!"#$%&'()*+,-./ўџџџ123456789:;<=>?ўџџџABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{ўџџџ}~ўџџџ№ФдџџџџЫн-oџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЖАAttribute VB_Name = "DieseArbeitsmappe" "  Bas 0{00020819ъ-0C$ 0046} |GlobalкSpa‚cIFalse dCreatablPredeclaIdЖTru BExposeTemplate`Deriv’BuРstomizD2№ФдџџџџЫнHџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle1"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2№ФдџџџџЫнYšџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle2"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2№ФдџџџџЫнvшџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle3"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2Modul1 џџџџ@є__SRP_2џџџџ|Ц__SRP_3џџџџџџџџџџџџ€”_VBA_PROJECTџџџџƒП №DдАџџџџrr нИЦџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџp p`@hџџџџ џџџџџџџџџџ„!Makro am 15.02.2008 aufgezeichnet 14 6џџџџ`џџџџџџџџџџџџ џџџџџџџџџџ„`„"џџџџџџџџџџ`„$џџџџџџџџџџ`„&џџџџџџџџџџ`„*џџџџџџџџџџ.Ж`„,џџџџџџџџџџ`„.џџџџџџџџџџЖ`„0џџџџџџџџџџ$I$4`„(џџџџџџџџџџ.Жџџџџџџџџџџ`„ џџџџџџџџџџЖџџџџXџџџџџџџџpƒџџџџџџрџџџџџџџџџџџџџџ%`„2џџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈмy2IX$*\Rffff*0U49329134пўЪ+"8 € P8€ џџџџ$ˆ6Аш6№$(6P$ˆ6Аш€ џџџџ№€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ" ј€ џџџџ€ >€@€H€P€X€`€h€p€и€ј€И€ џџџџ€ џџџџАx€ џџџџ„ T(€€ џџџџˆ€ џџџџЈџџџџА–р,exakt so wie mit Makrorecorder aufgezeichnetрJes wurden zwei Durchlaufe aufgezeichnet (fuer Tabellenzeile 3 und Zeile 4)Ж$J$3б"Ќб$Ж0б&A@ Ж$I$3б*Ќб,Ж0б.Ж $A$3:$B$3б0A@(A@2Ж$I$4б*Ќб,Ж0б.Ж $A$3:$B$3б0A@(Ж$J$3б"Ќб$Ж0б&A@4Ж$I$4б*Ќб,Ж0б.Ж $A$3:$B$3б0A@(Ж$J$4б"Ќб$Ж0б&A@ Ж$I$4б*Ќб,Ж0б.Ж $A$4:$B$4б0A@(A@2oџџ–pр7Dim.... as double von welchen Variablen erforderlich???]ђА]ђШ]ђр]ђј]ђ]ђ(]ђ@џ 8ўЌЌ ’р˜Beginn Schleife (spaeter 10 auf 500 erhoehen; besser noch Start- und Endwert der Schleife automatisch an tatsaechliche Zeilenzahl anpassen, aber wie???)Ж$I$iб*Ќб,Ж0б.Ж $A$i:$B$iб0A@(рTi eingesetzt siehe obenxA@2џ 8ўШр Ende SchleifeoџџРџџџџИ]ђшр erforderlich?]ђˆр erforderlich?]ђXр erforderlich?џџџџјЖ$J$iб"Ќб$Ж0б&A@ рTZanstatt Zeilennummer 3 den Laufindex i eingesetzt in die Zellenbezeichnungen-->geht das???[Tџџџџ€џџџџxГAttribute VB_Name = "Modul1" Sub Solver() 'exakt so wie mit Makrorecorder aufgezeichneXt Р.ЮDescripti onм? am 15.02.2008 E‰FPro cDataRInvoke_Fun‚cR \n146Д 'es wuЋn zwei @Durchl[e!‹: (fu€gTa@bellenile 3 und Zei€4) -mAdd C€Ref:="$J$3", Relat:=2, FormulaаText€0PƒРOk SetIMaxMinVal:=3, Q€ueO-0,B€yChangeРA$3:$B G7+ 04€"К0De,le@Žџ an t`atsaeР `8eAу‹nzahl`pЂa  n, рraЎП@<рCт ~Ўai ~CКaЕ 'ans@tЁ$numm3@n L!indexР'ei ’setzt in di+AЇb$ТuРn- ->gehр!asТU&;j с?”e i‰pi"b'i hsi4 obenпЩ#bbCN€Г ы"…'@8eІ@уzrU€€€€~| 0 ќЦ  0 ќЦp  f‚ўџџџ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБўџџџГДЕЖЗИЙКЛўџџџНОПРСТУФХЦЧШЩЪЫЬЭЮўџџџабўџџџгдўџџџжзийклмноўџџџрстўџџџфхцчўџџџщўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€ џџџџџџџџ$`§џџџaБ$Љ`§џџџџџџџџџџџ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{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\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library  џџџџџџџџмy2IXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџн"DieseArbeitsmappe0U49328c6bџџ"DieseArbeitsmappeџџ-o%џџTabelle10V49328c6bџџTabelle1џџH%џџTabelle20W49328c6bџџTabelle2џџYš0%џџTabelle30X49328c6bџџTabelle3џџvшH%џџ Modul10U49329134џџ Modul1џџИЦ`x џџx€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџO! АЖЭNЉГЛбž JџџџџЗ"=xРBƒzгЄx,oџџџџш &sГНH€^ФF„&M№џџџџЄЕю‡пёGЙ#.Нщ цџџџџЪІм4?ђD—DoХЁЖ`šџџџџџџџџ€џp(Excel€+VBAїтWin16С~Win32MacГВVBA6­# VBAProjectОПstdole“`OfficeuDieseArbeitsmappeЏ €џ_EvaluateйTabelle1RŠTabelle2SŠTabelle3TŠModul1ЭSolverіи SolverAdd7“CellRefъ|RelationB FormulaTextЏSolverOkщCSetCellYС MaxMinVal7.ValueOfGuByChangeИв SolverSolveQй SolverDeleteУђSolver_mit_schleifeВГi`Workbookk WorksheetСўџџxџџџџџџџџџџџџ џџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ZlВ€0* pH‚dф VBAProjeˆct4@j = r мy2IX” 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\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.0DLL#‡ƒN 1@1.0 ObТ €LibraryLEdirџџџџџџџџџџџџВp__SRP_0џџџџџџџџМН__SRP_1џџџџџџџџџџџџЯ‡PROJECTwmџџџџџџџџџџџџвž‚е‚н€ DieseArbeitsmappeGR" ils€APrbРi_s@map@eT“2ЄHB1B€%,B,B)-o#+Т РTabellep1GA$'lmB…1€%Щ2вуHЊж2б2Ы2бЄ2уYšж3б*3Ы3б3фvшƒЫЁpModul .ХсsM pduр-Ё-Ї2btЉox o<8ИЦ!р8e