Zielwertsuche mit Schleife
Peter
Ich habe folgendes Problem:
Mittels Schleife möchte ich über über ca. 80 Zeilen autom. eine Zielwertsuche machen. Dies habe _ ich in VBA im entsprechenden Tabellenblatt mittels folgendem Code probiert:
Private Sub Zielwertsuche()
Dim i As Integer
For i = 5 To 84
Range("x" & i).Goalseek Goal:=Range("v1"), ChangingCell:=Range("u" & i)
Next i
End Sub
Die erste Zeile funktioniert noch einwandfrei. Da wird die Zellwertsuche gemacht. Dann bekomme ich aber einen Laufzeitfehler 1004 und das Programm bricht ab.
Woran könnte dies ev. liegen?
Danke für Eure Hilfe.
Lieber Gruss
Peter