Excel und VBA - Die Excel-FAQ

Zielwertsuche über VBA

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Excel-Grundwerk (Beispiel-Arbeitsmappen) Excel-Tutorial Excel-Dialoge Excel-Forums-Archiv Excel-Grundlagen (Einführung) VBA-Grundlagen (Einführung) Zur Bestellseite

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