Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleife mit Zielwertsuche

Forumthread: Schleife mit Zielwertsuche

Schleife mit Zielwertsuche
01.08.2003 15:14:26
Peter D.
Hallo,
ich möchte mittels eines Makros nacheinander in 20 nebeneinanderliegenden Zellen jeweils eine Zielwertsuche durchführen und habe dazu bislang im Makro 20x ´Range("B13").GoalSeek Goal:=10, ChangingCell:=Range("B16")´ usw. (für jede Zelle eine dieser Zeilen, nur die Zellbezüge ändern sich) stehen.
Eleganter und kürzer ist natürlich eine Schleife mit "For...Next", aber ich kriege in der Schleife die Zellbezüge, d.h. das Springen von Zelle B13 auf c13 usw. nicht hin. Kann mir jemand helfen?
Danke, Peter
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife mit Zielwertsuche
01.08.2003 15:17:00
sergiesam
HI,
habs nicht ausführlich getestet, sollte aber funktionieren...
Dim i As Byte
For i = 13 To 20
Range("B" & i).GoalSeek Goal:=10, ChangingCell:=Range("B" & i + 3)
Next i
lg,
Sam

AW: Schleife mit Zielwertsuche
01.08.2003 15:18:57
Mike E.
Hallo Peter,
hier ein Beispiel für das Durchlaufen von Spalten mittels For/Next:

Sub Spalten()
Dim Spalte As Integer
For Spalte = 1 to 10
Sheets(1).Cells(1,Spalte) = "Nr. " & Spalte
Next Spalte
End Sub

Gruß
Mike

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige