Hallo zusammen,
ich stehe vor folgender Herausforderung.
Ich muss in das Blatt 2 (A2:L2) mehrere Formeln aus Blatt 3 einfügen. Die Formeln stehen dort im Bereich A2:L2. Bisher habe ich dazu folgendes genutzt. (per Makrorecorder aufgenommen):
Application.ScreenUpdating = False
Sheets("Blatt3").Select
Range("A2:L2").Select
Selection.Copy
Sheets("Blatt2").Select
Range("A2:L10000").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("B6").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Das dauert quälend lange.
Der Bedarf an Zeilen mit Formeln ist je nach Anwendungsfall unterschiedlich (ca. 7.000 bis 9.5000 Zeilen). Um den Zeilenbedarf zu klären, möchte ich aus Blatt 1 die letzte benutzte Zeile auslesen
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row.
und in Range("A2: ?") einbauen und damit die Zeit des Kopierens verkürzen.
1. Frage: wie mache ich das?
2. Frage: gibt es einen eleganteren und vor allem wesentlich schnelleren Weg die Formeln zu kopieren?
BG Jens