VBfApplikationen: Inhalt einer Spalte in 3 Spalten kopieren

#1 Hallo zusammen,

ich habe eine Frage zu VBA in Excel:

Ich habe eine Tabelle mit x Zellen in Spalte A. In diesen Zellen sind sowohl Grafiken (CD-Cover) als auch Text in alphabetischer Reihenfolge enthalten. Um die Eingabe möglichst einfach zu halten möchte ich es auch bei einer Spalte belassen.

Mithilfe eines Makros soll nun der Inhalt der Spalte nach folgendem Schema auf drei Spalten im Tabellenblatt 2 verteilt werden:

A1=A1
A2=B1
A3=C1
A4=A2
A5=B2
A6=C2
...

Bis jetzt kopiere ich mit folgendem Makro den vollständigen Inhalt aufs zweite Tabellenblatt:

Sub Kopieren()
Dim ablatt As Worksheet
Dim bblatt As Worksheet
Set ablatt = Sheets("Tabelle1")
Set bblatt = Sheets("Tabelle2")
ablatt.Range(ablatt.Cells(1, 1), ablatt.Cells()).Copy
ActiveSheet.Paste Destination:=Range(bblatt.Cells(1, 1), bblatt.Cells())
End Sub

Wie kann ich nun die 3 Spalten als Zielbereich festlegen (bblatt.Columns(A, B, C)?

Vielen Dank im Voraus für alle Tipps.

Bujah