Zielwertsuche per Makro - Ergänzung
21.01.2004 19:31:25
WalterK
Aus dem Forum habe ich untenstehendes Makro erhalten, um die Zielwertsuche zu aktivieren, wenn die Zelle G12 verlassen wird. Es funktioniert auch einwandfrei.
Private Sub worksheet_change(ByVal target As Excel.Range)
'zelle wg der automatisch gestartet wird
If target.Address = "$G$12" Then
'zielwertsuche
Range("E12").GoalSeek Goal:=Range("G12").Value, ChangingCell:=Range("A12")
Range("E12").GoalSeek Goal:=Range("G12").Value, ChangingCell:=Range("A12")
End If
End Sub
Mein Problem: Er sollte nur aktiviert werden, wenn in der gleichen Zeile in den Spalten B, C und F bereits etwas eingegeben wurde (sie also Nichtleer sind).
Besten Dank im voraus an die unermüdlichen Helfer!
Servus, Walter