Bei diesem Excel VBA Beispiel wollen wir Werte, welche mit einer Formel berechnet wurden, aus Tabellenblatt 1 Spalte C in das Tabellenblatt 2 kopieren. Bei jedem Kopiervorgang soll die nächste freie Spalte im Worksheet 2 ermittelt werden.

Tabelle1

Wie wir hier erkennen können sind in Spalte C Formeln hinterlegt worden.

Tabelle2

Wir setzen unser Vorhaben mit diesem kleinen VBA Code um:

  

Option Explicit

Sub kopieren()
Dim Loletzte As Long
With Sheets("Tabelle2")
    'Freie Spalte in Tabelle2 ermitteln
    Loletzte = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
    'Kopiervorgang
    .Range(.Cells(1, Loletzte), .Cells(10, Loletzte)) = Range("C5:C15").Value
End With
End Sub