Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bereich kopieren und in nächste Spalte einfügen

Bereich kopieren und in nächste Spalte einfügen
22.03.2018 06:33:31
Klaus
Guten Morgen,
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich kopieren und in nächste Spalte einfügen
22.03.2018 08:30:16
Burak
Guten Morgen
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.
Anzeige
AW: Bereich kopieren und in nächste Spalte einfügen
22.03.2018 09:49:52
Klaus
Hallo Burak,
leider hat Deine Lösung nicht funktioniert.
Habe aber durch Deinen Ansatz folgendes geschrieben und das klappt.
Danke!
Gruß
Klaus
LRow = 20
With wksLK
LastCol = .Cells(2, Columns.Count).End(xlToLeft).Column
For LCol = 1 To LastCol
If .Cells(2, LRow).Value = "" Then
.Columns("B:O").Copy .Cells(1, LRow)
Exit For
End If
LRow = LRow + 20
Next
End With
Application.CutCopyMode = False
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige