Zielwertsuche mit VBA
|
Betrifft: Zielwertsuche mit VBA
von: WalterK
Geschrieben am: 30.09.2003 22:23:17
Hallo miteinander!
Gibt es eine Möglichkeit, die Zielwertsuche automatisch nach der Eingabe
in einer Zelle einer bestimmten Spalte starten und berechnen zu lassen und dann das Ergebnis in der gleichen Zeile aber einer anderen Spalte einzutragen.
Beispiel:
| Tabelle1 |
| | A | B | C | D | E | F | | 1 | | Abzug SV | ergibt | 20,00% | | Gesuchter | | 2 | Brutto | in % | Abzug SV | Abzug Lst. | Netto | Netto | | 3 | | | | | | | | 4 | 2.272,46 | 17,50% | -397,68 | -374,96 | 1.500,00 | 1.500,00 | | 5 | 2.000,00 | 18,00% | -360,00 | -328,00 | 1.312,18 | | | 6 | | | | | | | | 7 | Die Berechnung der "veränderbaren Zelle" soll immer dann erfolgen, | | | | | | | 8 | wenn im Bereich G9:G13 eine Zahl eingegeben wird. | | | | | | | 9 | | | | | | | | 10 | Zielwertsuche | | | | | | | 11 | Zielzelle | | immer Spalte E, gleiche Zeile | | | | | 12 | Zielwert | | Betrag aus Spalte G | | | | | 13 | Veränderbare Zelle | | immer Spalte A, gleiche Zeile | | | |
| Formeln der Tabelle | C4 : =$A4*$B4*-1
D4 : =($A4+$C4)*D$1*-1
E4 : =SUMME(A4:D4)
C5 : =$A5*$B5*-1
D5 : =($A5+$C5)*D$1*-1
E5 : =SUMME(A5:D5)
|
|
Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 2.0 Download
Besten Dank im voraus.
Servus, Walter
Betrifft: AW: Zielwertsuche mit VBA
von: heinz
Geschrieben am: 30.09.2003 23:25:06
was ist zielwertsuche?
Betrifft: was ist zielwertsuche, AW
von: axel.meyer
Geschrieben am: 01.10.2003 00:01:39
hallo heinz,
wenn du eine funktion hast, die nicht nach der variablen lösbar ist, für die du gerne ein ergebniswert hättest, dann kannst du diesen wert einfach so lange in der bestehenden gleichung variieren, bis die gleichung erfüllt ist.
bsp:
y = x·(0,5 - 3/x)^x (^für exponent)
diese gleichung kannst du nicht nach x auflösen. wenn du aber für y einen wert (zB 5) vorgegeben hast und jetzt wissen möchtest, wie groß das zugehörige x ist (zT meherer lösungen möglich!), dann kannst du das über die zielwertsuche machen. das findest du unter "extras-zielwertsuche". funktioniert so: du gibst eine zelle an, die den zielwert enthält, gibst die zelle an, die wirklich geändert werden soll (hier wird iteriert) und diejenige zelle, in der die formel steht, und die sich eben dadurch ändert, daß die "änder-dich-zelle" variiert wird.
probiers einfach mal.
gruß, axel
Betrifft: AW: was ist zielwertsuche, AW
von: heinz
Geschrieben am: 01.10.2003 12:43:55
sehr interessant - danke
Betrifft: ...gerne. (OT)
von: axel.meyer
Geschrieben am: 01.10.2003 20:54:31
Betrifft: AW: Zielwertsuche mit VBA
von: axel.meyer
Geschrieben am: 30.09.2003 23:53:00
hi walter,
trage das nachfolgende makro in das modul der tabelle ein, in der die ZW-suche laufen soll und passe die zellen nach deinen wünschen an. daß die zeile mit der zielwertsuche doppelt vorkommt ist absicht, da es nichts schadet, sie aber zT nicht anläuft, wenn sie nur einfach drin steht.
gruß, axel
ps:
nur falls du es noch nciht wissen solltest: das modul deiner tabelle findest du so:
Alt + F11 drücken, jetzt bist du in der entwicklungsumgebung, wo man makro-codes schreiben kann. hier müßte links oben ein kleines explorer-fenster sein (wenn nicht: Strg + r). hier sind unter VBA-Projekt->Mickeysoft Excel Objekte->Tabelle... auch irgendwo deine tabelle dabei. doppelklick hierauf, rechts erscheint ein großes weißes fenster, hier kannst du den unten stehenden code mit copy-past eintragen.
Private Sub worksheet_change(ByVal target As Excel.Range)
'zelle wg der automatisch gestartet wird
If target.Address = "$L$2" Then
'zielwertsuche
Range("L6").GoalSeek Goal:=Range("L2").Value, ChangingCell:=Range("M2")
Range("L6").GoalSeek Goal:=Range("L2").Value, ChangingCell:=Range("M2")
End If
End Sub
Betrifft: AW: Zielwertsuche mit VBA
von: WalterK
Geschrieben am: 01.10.2003 07:08:37
Hallo Axel!
Vielen Dank für Deine Mühe, es funktioniert ausgezeichnet. Danke auch für die ausführliche Hilfeanleitung.
Servus, Walter
Betrifft: AW: Zielwertsuche mit VBA
von: WalterK
Geschrieben am: 01.10.2003 07:23:05
Hallo!
Noch eine Zusatzfrage!
Den Code von Axel habe ich auf die Zeile 12 angepasst und funktioniert auch bestens. Was muss ich tun, damit der Code von Zeile 12 bis Zeile 25 läuft.
Besten Dank nochmals.
Servus, Walter
Betrifft: AW: Zielwertsuche mit VBA
von: axel.meyer
Geschrieben am: 01.10.2003 08:12:27
morgen walter,
man kann innerhalb der range-anweisung auf diese weise variabel arbeiten:
for i = 12 to 25
Range("L" & i)....
next i
wobei du für den teil "& i)" auch ganze formeln einsetzen kannst, solange das ergebnis eine integer-zahl ist, zB "& (i + 2)*3". auf diese weise kannst du mit einer einzigen schleife "12 to 15" fast immer alles abdecken.
solltest du mal die spalte variieren müssen, kannst du mit dieser syntax arbeiten:
Range(Cells(3,2),Cells(3,2)). das würde Range("B3") entsprechen, hat aber den vorteil, daß beide zahlen durch laufvariablen ersetzbar sind. dabei gilt: "zeile spalte", d.h. die erste zahl entspricht der zeile, die zweite der spalte.
gruß, axel
Betrifft: AW: Zielwertsuche mit VBA
von: WalterK
Geschrieben am: 01.10.2003 16:41:26
Hallo Axel!
Kann mich leider erst jetzt melden.
Nochmals vielen Dank für die Beantwortung meiner Fragen, versuche jetzt, Deine Infomationen in die Tat umzusetzen.
Servus, Walter
Betrifft: AW: Zielwertsuche mit VBA
von: WalterK
Geschrieben am: 01.10.2003 16:41:41
Hallo Axel!
Kann mich leider erst jetzt melden.
Nochmals vielen Dank für die Beantwortung meiner Fragen, versuche jetzt, Deine Infomationen in die Tat umzusetzen.
Servus, Walter
Beiträge aus den Excel-Beispielen zum Thema " Zielwertsuche mit VBA"
Das Archiv des Excel-Forums
