Hallo Zusammen,

ich möchte eine Auswertung von Daten vornehmen. Die Anzahl der Daten ist jedes mal unterschiedlich. In diesem Fall waren es 30034 Datenzeilen.

Diese möchte ich per Button (also VBA) auf ein anderes Blatt kopieren.

Aufgezeichnet wurde folgendes:

Sub Zeilen_kopieren()
'
' Zeilen_kopieren Makro
'

'
    Range("A3").Select
    ActiveCell.Formula2R1C1 = "=Datenimport!RC:R[30034]C"
    Range("A4").Select
End Sub
 

Die letzte ausgefüllte Zeile habe ich mir in einer Zelle (I1) ausgeben lassen.

Allerdings kann man in der Formula2R1C1 nicht einfach die 30034 durch Range("I1).value ersetzen. Eine Variable welche ich den Wert der Zelle I1 zugewiesen habe einfach in die eckige Klammer schreiben funktioniert auch nicht.

Wie funktioniert das?