AW: Kopieren getrennte Spalten und einfügen
16.03.2019 19:45:29
Werner
Hallo Sebastian,
Frage:
Warum schreibst du nicht von Anfang an, um was es geht?
Die tatsächlichen Gegebenheiten kenne ich jetzt immer noch nicht exakt. Die Aussage: Weil es sind halt sehr viele Spalten ist auch nicht besonders erhellend.
Der Code jetzt macht folgendes:
1. in Zeile 1 wird die letzte belegte Spalte festgestellt
2. von Spalte 1 (A) bis zur letzten belegten Spalte wird jede zweite Spalte von Zeile 1-5 kopiert
3. der kopierte Bereich wird jeweils eine Spalte neben den Quelldaten in Zeile 2 eingefügt
Public Sub Kopieren()
Dim loSpalte As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'Blattname anpassen
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
For i = 1 To loSpalte Step 2
.Range(.Cells(1, i), .Cells(5, i)).Copy .Cells(2, i).Offset(, 1)
Next i
End With
End Sub
Gruß Werner