VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Daten einer Tabelle an eine 2. Tabelle übergeben

Gruppe

Allgemein

Bereich

Kopieren

Thema

Daten einer Tabelle an eine 2. Tabelle übergeben

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren