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