Ignorieren einer leeren Zeile im Makro (Zielwert)
05.04.2006 13:25:24
Michael
ich habe folgendes Problem:
Zur Zielwertberechnung habe ich folgendes Makro geschrieben:
Private Sub worksheet_change(ByVal target As Excel.Range)
'zelle wg der automatisch gestartet wird
If target.Address = "$Y$25" Then
'zielwertsuche
For i = 7 To 21
Range("Y" & i).GoalSeek Goal:=Range("Y25").Value, ChangingCell:=Range("AA6")
Range("Y" & i).GoalSeek Goal:=Range("Y25").Value, ChangingCell:=Range("AA6")
Next i
End If
End Sub
Die Suche funktioniert auch wenn alle Zeilen von 7-21 in der Spalte Y gefüllt sind. Wenn aber eine Zeile nicht gefüllt ist (d.h. 0 ist) wird kein Wert berechnet.
Wie kann ich eingeben, dass das Programm in diesem Fall eine Zeile weiter springt?
Vielen Dank schon im vorraus.
vg Michael