Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code optimieren bzw. vereinfachen

Code optimieren bzw. vereinfachen
17.07.2008 15:32:00
edie
Hallo zusammen,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code optimieren bzw. vereinfachen
17.07.2008 15:42:00
Rudi
Hallo,

Sub letzte_Zeile_kopieren()
Dim lZ As Long, i As Integer
lZ = Sheets("Tabelle1").Range("C" & Rows.Count).End(xlUp).Row
For i = 3 To 10
Sheets("Tabelle1").Cells(lZ, i).Copy Sheets("Tabelle2").Cells(33, i)
Next i
End Sub


Gruß
Rudi

AW: Code optimieren bzw. vereinfachen
17.07.2008 15:45:00
UweD
hallo nochmal
so...

Sub letzte_Zeile_kopieren()
Dim lZ As Long
With Sheets("Tabelle1")
lZ = .Range("C" & Rows.Count).End(xlUp).Row
Range(.Cells(lZ, 3), .Cells(lZ, 10)).Copy Sheets("Tabelle2").Range("C33")
End With
End Sub


Gruß UweD

Anzeige
AW: Code optimieren bzw. vereinfachen
17.07.2008 15:47:00
Mac4
Hi,

Sub letzte_Zeile_kopieren()
Dim lZ As Long
lZ = Sheets("Tabelle1").Range("C" & Rows.Count).End(xlUp).Row
With Sheets("Tabelle1")
.Range(.Cells(lZ, 3), .Cells(lZ, 10)).Copy Sheets("Tabelle2").[C33]
End With
End Sub


Marc

AW: An Alle besten Dank, es funktioniert, prima
17.07.2008 16:19:00
edie
Hallo Rudi,
Hallo Uwe,
Hallo Marc,
besten Dank, es ist toll wenn man so unterstützt wird.
Viele Grüße und Danke

286 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige