Schleife mit Rückgabe

[isdaroberto]

Servus zusammen,

gestern wurde mit hier so toll und so schnell geholfen. Vielleicht kann man mir hier ebenfalls so schnell helfen.

In Zelle "O33" habe ich einen Wert. Dieser Wert liegt zwischen 1 und max. 25.

Jetzt will ich die Zelle "P14" in Zelle "P10" kopieren.
Jetzt soll ein Makro mit dem Namen "speichern" durchlaufen.

nun läuft ein "Zähler": "P14+1" (keine Ahnung ob man das so schreibt, aber evtl. versteht man es)

Als nächstes soll  Zelle "P15" (quasi 14-1) in Zelle "P10" kopieren.
Jetzt soll ein Makro mit dem Namen "speichern" wieder durchlaufen.

das Ganze wiederholt sich so lange, bis der maximale Wert aus "O33" erreicht ist. (14-2, 14+3, 14+4,...)

Ich bin mir sicher, dass das ein einfacher Code ist, aber ich stelle mich gerad voll an...


Danke
lg
Robert

[redeagle56]

Hallo,
bitte stelle eine Tabelle zur Verfügung mit genauer Beschreibung, was wo
erreicht werden soll.
Mit einer Tabelle kann dir bestimmt geholfen werden.

MfG Günter

[Flotter Feger]

Hallo,

eine Musterdatei ist immer gut ... aber viel wichtiger wäre:

Jetzt soll ein Makro mit dem Namen "speichern" durchlaufen.

Was macht den dieses Makro mit dem Namen "speichern" ?

Ich bin mir ganz sicher, dass man sich das alles schenken kann, wenn man etwas nachdenkt.

[isdaroberto]

Hallo,

hier ist mein Versuch...

Sub mulit()

Dim i As Integer
Dim MP As Integer

MP = Range("O33")

For i = 1 To MP

Range("Q"13+MaxPac).Copy ' das ist natürlich Quatsch.. ich weiß aber nicht wie.
' Ich denke, wenn ich es hinbekomme, dass die Zeilen internierend genommen werden,
' bis MP erreicht ist, habe ich die Lösung...
Destination:=Range("P10")

Call single

Next


End Sub

[isdaroberto]

So... viel probieren ich habe es geschafft.

hier die Lösung:

Sub multi()

Dim PE Integer
Dim PS Integer

PE = Range("O33") + 13

For PS = 14 To PE

Cells(PS, 17).Copy
Cells(10, 16).PasteSpecial xlPasteValues


Call single

Next


End Sub