Gruppe
Allgemein
Problem
Die Daten des Bereiches A5:E8 sollen der Tabelle im Blatt Daten angehangen werden. In der Spalte rechts neben den Werten in der Zieltabelle ist das aktuelle Datum einzutragen.
StandardModule: Modul1
Sub Uebertragen()
Dim lRow As Long
With Worksheets("Daten")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A5:E8").Copy .Cells(lRow, 1)
.Range(.Cells(lRow, 6), .Cells(lRow + 3, 6)).Value = Date
End With
Application.CutCopyMode = False
End Sub