Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zielwertsuche

Zielwertsuche
20.05.2008 14:09:59
J.
Hallo Freunde,
ich brauch ein Makro das in einer Schleife die Zielwertsuche auslöst.
Zielzelle ist " I6 "
Zielwert ist " 0 "
Veränderbare Zelle ist " J6 ".
Das Ganze soll nun so laufen das es immer eine Zeile nachunten springt solange bis es zum letzten Eintrag gelangt ist.
Kann die Tabelle leider von hier nicht hochladen, schade;-)
Danke im voraus
Jochen

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zielwertsuche
20.05.2008 14:49:00
Daniel
Hi
so vielleicht

Sub Makro3()
Dim Zelle As Range
Set Zelle = Range("I6")
Do Until Zelle.Formula = ""
Range("I6").GoalSeek Goal:=0, ChangingCell:=Range("J6")
Set Zelle = Zelle.Offset(1, 0)
Loop
End Sub


aber es macht definiv keinen Sinn, die Zielwertsuche mehrfach über die gleiche Zelle laufen zu lassen.
1x ist völlig ausreichend, dazu braucht du keine Schleife
Gruß, Daniel

AW: Zielwertsuche
20.05.2008 15:00:00
J.
hay Daniel,
hatte mich vieleich mißverstänlich ausgedrückt, meinte es so:
Zielzelle ist " I6 "; Zielwert ist " 0 "; Veränderbare Zelle ist " J6 ";
Zielzelle ist " I7 "; Zielwert ist " 0 "; Veränderbare Zelle ist " J7 ";
Zielzelle ist " I8 "; Zielwert ist " 0 "; Veränderbare Zelle ist " J8 ";
usw bis Ende der Tabelle bzw. Einträge.
Danke
Jochen

Anzeige
AW: Zielwertsuche
20.05.2008 15:46:14
Daniel
Hi
dann in der Schleife anstelle von "Range("I6") "Zelle" verwenden und anstelle von "Range("J6")" "Zelle.Offset(0,1)"
Gruß, Daniel

AW: Zielwertsuche
20.05.2008 16:22:31
J.
Hay Daniel,
bitte gib mir noch einmal das komplette Makro, habe es versucht aber meine VBA - Kenntnisse sind nicht so berauschend.
Danke für Deine Bemühungen.
Gruß
Jochen

AW: Zielwertsuche
20.05.2008 17:16:46
Daniel
HI
diese Zeile:

Range("I6").GoalSeek Goal:=0, ChangingCell:=Range("J6")


so umschreiben


Zelle.GoalSeek Goal:=0, ChangingCell:=Zelle.Offset(0,1)


kann eigentlich nicht so schwer sein.
Gruß, Daniel

Anzeige
AW: Zielwertsuche
21.05.2008 14:10:30
J.
Hi,
danke für den Tipp.
Funktioniert wunderbar.
War auf dem falschen Weg;-)
Gruß
Jochen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige