Hallo,
ich habe einen Code, der mir eine Zeile aus einem Tabellenblatt (TabelleB) in ein anders (TabelleA) kopiert.
Welche Zeile kopiert wird hängt von der ActiveCell.Row ab, die vorher bestimmt wird.
Die kopierte Zeile wird in TabelleA in die nächstfreie Zeile geschrieben.
Das Ganze ist in eine Schleife verpackt, die etwa 200 mal durchläuft.
Sheets("TabelleB").Select
Range(Cells(ActiveCell.Row, ActiveCell.Offset(0, 0).Column), Cells(ActiveCell.Row, ActiveCell. _
Offset(0, 600).Column)).Copy
Sheets("TabelleA").Select
Range("I1048576").End(xlUp).Select
Range(Cells(ActiveCell.Offset(1, 0).Row, ActiveCell.Column), Cells(ActiveCell.Offset(1, 0).Row, _
ActiveCell.Offset(0, 54).Column)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Das klappt wunderbar, ist nur für sehr viele Zeilen etwas langsam.
Gibt es eine Möglichkeit, dass der Code das Ganze nicht Zeile für Zeile in Tabellenblatt A schreibt, sondern in einen Array und dieser dann das Ganze in einem Rutsch überträgt?
Ich bin mir sehr unsicher, wie ich das in Array-Schreibweise "übersetzen" kann.
Über Vorschläge wäre ich sehr dankbar!