Hallo Juno,
versuch es mal so:
In ein Modul einfügen:
Sub Kopieren()
Dim Spalte As Integer
Dim T2Spalte As Integer
Tabelle2.UsedRange.Clear
With Tabelle1
T2Spalte = 1
For Spalte = 1 To .UsedRange.Columns.Count
.Columns(Spalte).Copy Destination:=Tabelle2.Columns(T2Spalte)
T2Spalte = T2Spalte + 1
Next Spalte
End With
End Sub
Gruß
fedjo