Gruppe
Allgemein
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