Copy formatierter Tabellenspalten
03.01.2017 01:47:01
Thorsten
Guten Morgen,
wünsche ein gesundes neues Jahr allen fleißigen Excelhelfern.
Zum Problem:
ich möchte in einem Makro nachstehend Zeile ersetzen:
Sheets("SKU").Range("A6:B5000").Copy
durch den tatsächlichen Tabelleninhalt der formatierten Tabelle, deren Länge sich täglich ändert.
Habe folgendes probiert, was aber alles nicht funkt:
Hier exportiert es mir nur die letzte Spalte
With Sheets("SKU").ListObjects("TabSKU")
.ListColumns("Artikel").DataBodyRange.Copy
.ListColumns("AnLager").DataBodyRange.Copy
End With
Habe auch verschieden "Und"-Varianten probiert, wie z.B.
Sheets("SKU").ListObjects("TabSKU").ListColumns(("Artikel") & ("AnLager")).DataBodyRange.Copy
Aber das funktioniert auch nicht.
Würde mich über HIlfe sehr freuen.
Gruß Thorsten