Hallo,
es geht hier nicht darum, sich über den Code lustig zu machen.
Vielleicht kann man ihn optimieren bzw. darauf aufbauen.
Aber gut, dann teste mal.
Wobei mir nicht wirklich klar ist was du im Zielblatt in Spalte A eintragen willst und wie.
Option Explicit
Public Sub aaa()
Dim loLetzteQuelle As Long, loLetzteZiel As Long, loLetzteZielA As Long
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Set wsQuelle = ThisWorkbook.Worksheets("Tabelle1")
Set wsZiel = ThisWorkbook.Worksheets("Tabelle2")
Application.ScreenUpdating = False
With wsQuelle
loLetzteQuelle = .Cells(.Rows.Count, "C").End(xlUp).Row
.Range(.Cells(2, "C"), .Cells(loLetzteQuelle, "C")).Copy
With wsZiel
loLetzteZiel = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
.Cells(loLetzteZiel, "C").PasteSpecial Paste:=xlPasteValues
loLetzteZielA = .Cells(.Rows.Count, "C").End(xlUp).Row
.Range(.Cells(loLetzteZiel, "A"), .Cells(loLetzteZielA, "A")) = 123
End With
End With
Set wsQuelle = Nothing: Set wsZiel = Nothing
Application.CutCopyMode = False
End Sub
Gruß Werner
|