Spalte mehrfach untereinander kopieren

Hallo habe ein kleines Verständnisproblem mit der for-Schleife bei VBA.
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.

so anscheinend bin ich die ganze sache wohl doch falsch angegangen, daher nochmal eine beschreibung was ich eigentlich will:
ich will eine Tabelle neu aufziehen aus einer anderen, damit die Pivot-Tabelle anders arbeitet.
Ich habe die Spalten A B C D E F G H I
die Spalten BCD beinhalten verschiedene Produkte die kategorisiert sind und EFG die jeweiligen Preise
Jetzt können beispielsweise Produkte sowohl in der Kategorie C als auch D sein. Mir ist für die Pivot Tabelle aber egal in welcher Kategorie die Produkte sind , ich will lediglich die Preise vergleichen.
Daher wollte ich die Tabelle jetzt neu strukturieren und zwar so:
A B E H I
A C F H I
A D G H I
Für die Spalte mit A,H, und I habe ich ja jetzt zumindest einen Ansatz.
Jetzt möchte ich 1. die Spalten BCDEFG so anordnen wie oben angezeigt und 2. , wenn ich in der Originaltabelle in A zb eine Zeile hinzufüge, in der Zieltabelle auch für alle anderen eine Leerzeile entsteht. Habe ich etwas wesentliches in Pivot übersehen? Weil ich finde meinen Ansatz hier sehr, sehr kompliziert, nur habe ich leier keine andere Idee.
In Pivot war ich bisher soweit gekommen:
. B C D
A E F G
A E F G
A E F G also so sah die erzeugte Tabelle aus. A die Zeilen und BCD die Spalten. Jetzt bestehen zwischen B, C und D ja UND-Verknüpfungen, die will ich aber gar nicht. Hoffe man kann so ungefähr mein Dilemma verstehen und was ich eigentlich will.

Spalte mehrfach untereinander kopieren

Forumthread: Spalte mehrfach untereinander kopieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial