+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Schleife mit Rückgabe (/thread-28994.html)
Schleife mit Rückgabe - isdaroberto - 23.11.2023
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
RE: Schleife mit Rückgabe - redeagle56 - 23.11.2023
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
RE: Schleife mit Rückgabe - Flotter Feger - 23.11.2023
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.
RE: Schleife mit Rückgabe - isdaroberto - 23.11.2023
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
RE: Schleife mit Rückgabe - isdaroberto - 23.11.2023
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