|
Hallo,
Falls innerhalb eines Worksheet_Change aufrfs eine weitere Zelle geändert werden soll, muss zunächst die "EnableEvents" auf FAlse gestellt werden. Anderenfalls kommt es zu einem Endloschleife.
Der u.a. VBA-Code muss im VBA-Editor einer Tabelle zugewiesen werden:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim Keycells As Range
Set Keycells = Range("B62")
Debug.Print Target.Address, Keycells.Address
If Not Intersect(Target, Keycells) Is Nothing Then
Cells(Target.Row, 4).GoalSeek _
Goal:=Cells(Target.Row, 3), _
ChangingCell:=Target
End If
Application.EnableEvents = True
End Sub
Mit dem Intersect-Befehl wi geprüft, ob die Zelle B62 geändert wird.
Beim Aufruf wird allerdings angegeben, dass der Bezug vm Befehl GoalSeek ungültig ist.
Vielleicht kann damit jemand anders weiter behilflich sein?
LG, BigBen
|