Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zielwertsuche über VBA

Gruppe

Arbeitsblatt

Problem

In den Spalten A:D wird über VBA eine Zielwertsuche durchgeführt.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub SetGoalSeek()
   Dim iCol As Integer
   For iCol = 1 To 4
      Cells(13, iCol).GoalSeek Goal:=555, ChangingCell:=Cells(1, iCol)
   Next iCol
End Sub