Excel und VBA - Die Excel-FAQ

Zielwertsuche über VBA

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Zielwertsuche über VBA

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

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