Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Schleife mit Rückgabe
#1
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
Zitieren
#2
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
(Win11, MS-Office 2021)
Wenn gelöst, dann bitte Thema als "Erledigt" kennzeichnen.
Zitieren
#3
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.
_________
VG Sabina
Zitieren
#4
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
Zitieren
#5
So... viel probieren Smile 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
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions