Makro bei Zellveränderung
20.09.2006 09:30:46
Marek
ich will in Zelle C4 ein Zahl (1-40) eingeben, danach soll automatisch eine Zielwertsuche starten.
Hab in der Suche nur dieses Makro gefunden, kriege es aber nicht zum Laufen!
Was ist falsch?
Gruß
Marek!
Private Sub worksheet_change(ByVal Target As Range)
If Target.Address <> Sheets("Tabelle4").Range("$c$4") Then Exit Sub
Range("J2").Select
Range("J2").GoalSeek Goal:=0, ChangingCell:=Range("C3")
Range("C4").Select
End If
End Sub
Anzeige