For-Next-Schleife für Eingabe eines Suchwertes

Hallo Forum und Profis,
ich habe folgendes Problem und denke, es ist keine zu große Schwierigkeit für Euch. Ich habe leider noch keinen Schimmer von VBA, aber vielleicht kann mir auch jemand eine gute Einstiegslektüre empfehlen.
Hier aber mein Problem, für welches ich sehr bald eine Lösung erhoffe.
Ein Makro soll nacheinander Werte aus den Zellen A1 bis Ai in die Zelle Q1 kopiere. Ist dies für einen Wert der Zellen A1 bis Ai geschehen, dann erfolgt eine Berechnung, dessen Wert in Zelle P2 (bzw. P3, P4,..., Pi) geschrieben wird. Die Zelle P2,..., Pi soll kopiert und in Zelle O2,..., Oi soll der nur der Wert eingefügt werden.
Frage: Wie mache ich das mit einer For-Next-Schleife, so dass ich mir den unteren Block spare und den Zähler beliebig hoch setzen kann?


Sub Schleife()
Range("Q1").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-16]"
Range("P2").Select
Selection.Copy
Range("O2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks_
:=False, Transpose:=False
Range("Q1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[2]C[-16]"
Range("P3").Select
Selection.Copy
Range("O3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks_
:=False, Transpose:=False
End Sub

Vielen Dank schonmal und Grüße,
Airman

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klaus Dieter,
vielen Dank für Deine Antwort. Ich versuche es nochmal präziser zu erklären.
In Spalte A befinden sich untereinander weg die Suchwerte, die nacheinander in die Zelle Q1 der Beispiel-Tabelle meiner vorherigen Antwort eingetragen werden.
Begonnen wird mit A2, d.h. in Q1 soll für den ersten Suchlauf nach dem Inhalt von A2 gesucht werden. Die Suchergebnisse dieses ersten Suchlaufs finde ich dann in Zelle P2 wieder. Dahinter steckt allerdings eine Formel. Ich brauche aber zur weiteren Verwendung nur den Wert. Also kopiere ich momentan von Hand den Wert aus P2 in O2.
Jetzt kommt der zweite Suchlauf. Jetzt soll in Q1 der Wert von A3 stehen. Das Suchergebnis finde ich dann wieder in P3 und kopiere die Werte in O3.
War das erfolgreiche verfahre ich weiter mit A4. Jetzt soll in Q1 der Wert von A4 stehen und das Erbenis der Suche dann in P4
...
Eine For-Next-Schleife soll also nacheinander die Werte aus A2, A3, A4 in Q1 kopieren und die Sucheregbnisse aus P2, P3, P4 nach jeder Suche in O2, O3, O4 als Werte kopieren.
Vielleicht ist eine For-Next-Schleife nicht die beste Lösung, aber ich brauche irgendeinen Zähler der hochzählt, da in Spalte A bis zu 500 Werte stehen können.
Hoffe, ich habe es jetzt besser erklärt und ihr könnt mir weiter helfen.
Viele Grüße und nochmals Dank,
Airman

Sub Dependencies() 'For Schleife Dim I As Long For I = 1 To 249 'Zellinhalt aus Ai der Zelle X1 zuweisen Range("X1").FormulaR1C1 = "=C2" 'Prüfen ob C2 stimmt, habe das nur geschätzt 'Inhalte, die als Werte eingefügt werden sollen kopieren Range("W" & I).Copy 'Inhalte als Werte einfügen Range("V" & I).Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next I End Sub

Sub Schleife() Dim i As Integer For i = 2 To 20 Range("A" & i - 1).Select Selection.Copy Range("Q1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ActiveCell.FormulaR1C1 = "=R[i]C[-16]" Range("P" & i).Select Selection.Copy Range("O" & i).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Next End Sub

Sub Schleife() 'For Schleife Dim i As Long For i = 1 To 249 'Zellinhalt aus Ai der Zelle X1 zuweisen Range("X1").Select ActiveCell.FormulaR1C1 = Range("A" & i) 'Inhalte, die als Werte eingefügt werden sollen kopieren Range("W" & i).Select Selection.Copy 'Inhalte als Werte einfügen Range("V" & i).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next i End Sub

Beliebteste Forumthreads (12 Monate)

For-Next-Schleife für Eingabe eines Suchwertes

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

For-Next-Schleife für Eingabe eines Suchwertes

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread