Zielwertsuche-Makro



Excel-Version: 9.0 (Office 2000)

Betrifft: Zielwertsuche-Makro
von: Webster
Geschrieben am: 12.07.2002 - 01:13:26

eine anfängerfrage (mein erstes makro):
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.

  

Re: Zielwertsuche-Makro
von: Hans W. Herber
Geschrieben am: 12.07.2002 - 07:06:39

Hallo,

in diesem Forum bitte mit Real(vor)namen auftreten, danke.

Verwende in solchen Fällen Schleifen:


Sub Schleife()
   Dim rng As Range
   For Each rng In Range("I10:I18").Cells
      rng.GoalSeek goal:=0, ChangeingCell:=rng.Offset(0, -1)
   Next rng
End Sub

Die GoalSeek-Wirksamkeit wurde nicht getestet.

hans

  

Danke, es funktioniert! (nT)
von: Dirk
Geschrieben am: 12.07.2002 - 10:52:40

.