Schleife in VBA drehen, bis Ende der Matrix erreic

Hallo Kollegas,
ein Problemchen habe ich. Ich habe eine Quellmatrix, in der 3.500 Kundennummern in Zeilen und dazu einige Spalten mit Zahlen stehen. Jetzt habe ich eine zweite Tabelle (Maske), in der ich eine Kundennummer per Dropdownfeld auswähle, was bewirkt, dass Zahlen per SVerweis aus der Quellmatrix gezogen werden und damit weitere Berechnungen durchgeführt werden.
Nun kopiere ich per Makro die Ergebnise pro Kundennummer in ein Separates Blatt. Dazu muss ich momentan aber jedes Mal händisch die nächste Kundennummer wählen, um dann mein Makro auszuführen. Kann ich nicht eine Schleife einbauen, so dass er mir automatisch nach dem Ausführen meines Makros direkt die nächste Kundennummer aus der Quellmatrix in meine Maske kopiert und dann wieder mein Makro ausführt. Diese Schleife sollte er so oft drehen, bis er am Ende der Quellmatrix angekommen ist.
Hat jemand ne Lösung?
LG,
Robert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim Zelle as Range For each Zelle in Sheets(aaa).range(bbb).currentregion.Columns(y) '--- hier dein Code, wenn du bei "y" die richtige Spalte ausgwählt hast, enthält die Variable _ ZELLE die KD-Nr Next

hallo Daniel,
vielen Dank für deine schnelle Antwort. Ich hänge leider noch ein wenig an der Lösung. Ich habe leider noch nicht ganz verstanden, an welcher Stelle nun der Kopiervorgang stattfindet.
Vielleicht hilft es, wenn ich dir die Zellen und Spaltennamen nenne.
Ich möchte aus der Quellmatrix "customer" Bereich (A5:A3530) den ersten Wert kopieren nach Tabelle "calculator" Zelle (C4) und danach mein Makro ausführen:
Worksheets("calculator").Range("A71:HI71").Copy
Worksheets("Daten").Activate
Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, "A").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Worksheets("calculator").Activate
Danach soll nun aus der Quellmatrix der nächste Wert, also A6 in das Blatt "Calculator" nach C4 kopiert werden und erneut mein Makro ausgeführt werden.
Diese Schleife soll nun so oft gedreht werden, bis die letzte gefüllte Zelle A3530 in der Quellmatrix erreicht wurde.
Was muss ich tun?
Danke vorab für die Hilfe.
Grüße,
Robert

Sub Berechnen() Dim Zelle as Range For each Zelle in Sheets("Customer").range("A5:A3500") sheets("Calculator").Range("C4").value = Zelle.value Worksheets("calculator").Range("A71:HI71").Copy Worksheets("Daten").Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, "A").PasteSpecial Paste:= _ xlValues Next Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

Schleife in VBA drehen, bis Ende der Matrix erreic

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schleife in VBA drehen, bis Ende der Matrix erreic

4 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)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread