Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro für Excel Zielwertsuche

Makro für Excel Zielwertsuche
Tobias
Hallo,
ich muss eine Exel-Zielwertsuche für mehrere 100 Zeilen durchführen. Ich habe es geschafft ein Makro zu erstellen, was die Zielwertsuche für eine Zeile durchführt. Könnte mir bitte jemand sagen, was ich an dem folgenden Makro ändern muss, damit die Zielwertsuche in allen Zeilen des Bereiches durchgeführt wird ?
Sub Makro3()
' Makro3 Makro
' Makro am 16.09.2010 von kramme_tobias aufgezeichnet
' Tastenkombination: Strg+u
For Each Row In Range("8:9").Rows
Range("T8").Select
Range("T8").GoalSeek Goal:=Range("M8").Value, ChangingCell:=Range("U8")
Next
End Sub
Vielen Dank im voraus.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro für Excel Zielwertsuche
16.09.2010 11:20:57
EvilRik
Hallo Tobias,
Sub Makro3()
Dim zae1 As Long
On Error GoTo ende
With ThisWorkbook.Worksheets("Tabelle1")  'BlattName bitte anpassen
For zae1 = 8 To 100  ' Zeilen bitte anpassen
.Cells(zae1, "T").GoalSeek Goal:=.Cells(zae1, "M").Value, ChangingCell:=.Cells(zae1, _
"U")
Next zae1
End With
ende:
End Sub

Gruß Henrik
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige