Microsoft Office Tutorials and References
In Depth Information
laufen zu lassen und später mit einer Schaltfläche zu verknüpfen. Dann erspart man
sich zumindest, immer wieder den Dialog aufrufen zu müssen.
Wenn Sie viele Berechnungen der Zielwertsuche durchführen müssen, empfiehlt sich
eine VBA-Schleife. Welche Nullstellen liegen in einem ganzen Intervall? IKV konnte
die Frage beantworten. Mit etwas VBA-Unterstützung vermag das auch die Ziel-
wertsuche. Das folgende kleine Makro listet alle Nullstellen im X-Achsenbereich von
–1 bis +3 auf (Abbildung 8.31).
Sub Nullstellen()
Dim x As Single
Dim z As Long
z = 1
For x = -1 To 3 Step 0.25
If x <> 0 Then
z = z + 1
Range("B8").Value = x
Range("B9").GoalSeek Goal:=0, ChangingCell:=Range("B8")
'GoalSeek=Zielzelle; Goal=Zielwert; ChangingCell=Veränderbare Zelle
Cells(z, 7).Value = x 'Startwert
Cells(z, 8).Value = Range("B8").Value 'x
Cells(z, 9).Value = Abs(Range("B9").Value) 'y
End If
Next
End Sub
Abbildung 8.31: Nullstellen mit Zielwertsuche finden (2)
Search JabSto ::




Custom Search