Zielwertsuche über VBA

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

235504    228704

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