|
Sorry! Also entweder ich steh auf der Leitung oder was auch immer.
Du willst, das der Vporgang auf Wunsch viermalwiederholt wird. Immer in der Selben Zeile des Quell-Arbeitsblattes? Und wenn ja: Immer dieselben Daten? Ich raffs echt nicht, wo das Problem ist? Oder willst Du vom Quell-Sheet andere Zeilen oder Spalten übertragen?
Ansonsten setzt Du einfach eine Variable
Dim Durchlauf As Integer
Durchlauf = MsgBox("Mehr als einen Durchlauf starten?", vbYesNo + vbQuestion, "Anzahl Durchläufe...")
if Duchlauf = 7 Then
Duchlauf = 5
Else
Durchlauf = 1
End If
Do
[...Dein Code...]
Durchlauf = Durchlauf + 1
If Durchlauf = 6 Then Exit Do
Loop
Severus
|