ich versuche den Bereich "B:O" zu kopieren und
ab der Spalte 20 einzufügen.
Wenn die Zelle (2,20) nicht leer ist soll der kopierte Bereich in
Spalte 40, 60 usw. eingefügt werden.
Danke!
Gruß
Klaus
https://www.herber.de/bbs/user/120586.xlsm
i = 20
Do
If Cells(2, i) = "" Then
Columns("B:O").Copy Cells(2, i)
Else
i = i +20
End If
Loop Until Cells(2, i) = ""
Müsste grundsätzlich funktionieren, nur die Loopbedingung bin ich mit nich sicher ob die nicht endlos läuft. Hängt davon ab wann er die Bedingung prüft.