Hallo zusammen,
ich stehe auf dem "Schlauch" - wie lautet der Befehl, das Excel im Script die "letzten 2 Spalten" kopiert.
Sprich : Sheets("Tabelle1").Select "Letzte zwei Spalten"
Selection.Copy
Vielen Dank !
Fabio
Hallo Fabio,
das wäre ein Möglichkeit
Dim Lcol As Integer
'zählt in Zeile 1 von rechts nach links, bis zur ersten gefüllten Zelle
Lcol = Cells(1, Columns.Count).End(xlToLeft).Column
If Lcol < 2 Then Exit Sub
Range(Columns(Lcol - 1), Columns(Lcol)).Copy
Gruss Harald