Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Daten einer Tabelle an eine 2. Tabelle übergeben

Gruppe

Kopieren

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.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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