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.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen