Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige