Dann genügt die Abfrage
Dim Durchlauf As Integer
Dim LaufZahl As Integer
Durchlauf = MsgBox("Mehr als einen Durchlauf starten?", vbYesNo + vbQuestion, "Anzahl Durchläufe...")
[...Dein Code...]
.Cells(1, 1) = j
.Cells(1, 3) = Target
.Cells(4, 1) = Target.Offset(0, 2)
.Cells(5, 1) = Target.Offset(0, 9)
.Cells(6, 1) = Target.Offset(0, 10)
.Cells(3, 1) = Target.Offset(0, 3)
.Cells(7, 1) = Target.Offset(0, 11)
If Durchlauf = 6 Then
'Annhame: Alle Daten sollen jeweils um 4 Spalten nach rechts versetzt nohmal eingetragen werden. Hoffe das wolltest Du!
For LaufZahl = 5 To 17 Step 4
.Cells(1, LaufZahl) = j
.Cells(1, LaufZahl + 3) = Target
.Cells(4, LaufZahl) = Target.Offset(0, 2)
.Cells(5, LaufZahl) = Target.Offset(0, 9)
.Cells(6, LaufZahl) = Target.Offset(0, 10)
.Cells(3, LaufZahl) = Target.Offset(0, 3)
.Cells(7, LaufZahl) = Target.Offset(0, 11)
Next LaufZahl
End If
[...Dein Code...]
Severus
|