Code optimieren bzw. vereinfachen
17.07.2008 15:32:00
edie
hatte schon mal heute fast die gleiche Frage.
Im Code wird die letzte Zeile aus Tabelle1 in die Tabelle2, Zeile 33 kopiert.
Sub letzte_Zeile_kopieren()
Dim lZ As Long
lZ = Sheets("Tabelle1").Range("C" & Rows.Count).End(xlUp).Row
Sheets("Tabelle1").Cells(lZ, 3).Copy Sheets("Tabelle2").[C33]
Sheets("Tabelle1").Cells(lZ, 4).Copy Sheets("Tabelle2").[D33]
Sheets("Tabelle1").Cells(lZ, 5).Copy Sheets("Tabelle2").[E33]
Sheets("Tabelle1").Cells(lZ, 6).Copy Sheets("Tabelle2").[F33]
Sheets("Tabelle1").Cells(lZ, 7).Copy Sheets("Tabelle2").[G33]
Sheets("Tabelle1").Cells(lZ, 8).Copy Sheets("Tabelle2").[H33]
Sheets("Tabelle1").Cells(lZ, 9).Copy Sheets("Tabelle2").[I33]
Sheets("Tabelle1").Cells(lZ, 10).Copy Sheets("Tabelle2").[J33]
End Sub
Würde den Code gerne optimieren aber wie?
Hat jemand da einen Vorschlag?
Besten Dank im Voraus.
Grüße