Spalte mehrfach untereinander kopieren
09.10.2015 12:06:46
Edgard
Ich möchte aus einer Tabelle eine bestimmte Spalte 3x untereinander in ein anderes Tabellenblatt einfügen, um sie nachher in einer Pivot nutzen zu könenn. Dabei will ich Änderungen laufend übernommen haben. ( Sonst könnte ich das ganze auch manuell machen, soll aber automatisch gehen).
Hier der Code:
Sub kopieren()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lastCell As Long
Dim i As Long
Set wks1 = Worksheets("Tabelle3")
Set wks2 = Worksheets("Priority List")
With wks2
For i = 1 To 3
lastCell = .Range("B65536").End(xlUp).Row
.Range(.Cells(3, 2), .Cells(lastCell, 2)).Copy _
Destination:=wks1.Range("A2").End(xlUp).Offset(i, 0)
Next i
End With
Set wks1 = Nothing
Set wks2 = Nothing
End Sub
Bin VBA-Anfänger, weshalb der Code auch aus verschiedenen Recherchen hier zusammenkopiert ist. Die Liste wird mir momentan genau 1x kopiert und Änderungen auch aktualisiert, wie gewünscht. Lediglich mit der for-Schleife komme ich nicht weiter.