23.11.2023, 14:07
(Dieser Beitrag wurde zuletzt bearbeitet: 23.11.2023, 14:08 von isdaroberto.)
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
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