Schleife mit Rückgabe
23.11.2023, 12:58
(Dieser Beitrag wurde zuletzt bearbeitet: 23.11.2023, 12:59 von 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
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
