Zielwertsuche-Makro
12.07.2002 01:13:26
Webster
kann folgendes auch bequemer formuliert werden?
Sub Makro4()
'
' Makro4 Makro
' Makro am 12.07.2002 von Derek aufgezeichnet
'
' Tastenkombination: Strg+w
'
Range("I10").GoalSeek Goal:=0, ChangingCell:=Range("H10")
Range("I11").GoalSeek Goal:=0, ChangingCell:=Range("H11")
Range("I12").GoalSeek Goal:=0, ChangingCell:=Range("H12")
Range("I13").GoalSeek Goal:=0, ChangingCell:=Range("H13")
Range("I14").GoalSeek Goal:=0, ChangingCell:=Range("H14")
Range("I15").GoalSeek Goal:=0, ChangingCell:=Range("H15")
Range("I16").GoalSeek Goal:=0, ChangingCell:=Range("H16")
Range("I17").GoalSeek Goal:=0, ChangingCell:=Range("H17")
Range("I18").GoalSeek Goal:=0, ChangingCell:=Range("H18")
End Sub
ich wäre für eine antwort sehr dankbar.
Anzeige