Leonard schreibt ein Makro, um Daten von einem Arbeitsblatt auf ein anderes zu übertragen. Beide Arbeitsblätter befinden sich in derselben Arbeitsmappe. Die Daten, die er übertragen möchte, befinden sich im ersten Arbeitsblatt und verwenden einen benannten Bereich: „SourceData“.

Es besteht aus einer einzelnen Datenzeile. Leonard möchte diese Daten innerhalb des Makros vom ersten Arbeitsblatt in die erste leere Zeile des zweiten Arbeitsblatts übertragen, ist sich jedoch nicht ganz sicher, wie er vorgehen soll.

Es gibt tatsächlich mehrere Möglichkeiten, dies zu tun, aber alle Methoden haben zwei Voraussetzungen: Die Identifizierung des Quellbereichs und die Identifizierung des Zielbereichs. Der Quellbereich ist einfach, weil er benannt ist. Sie können den Quellbereich in Ihrem Makro folgendermaßen angeben:

Set rngSource = Worksheets("Sheet1").Range("SourceData")

Das Herausfinden der ersten leeren Zeile im Zielarbeitsblatt ist etwas schwieriger. Hier ist eine relativ einfache Möglichkeit:

iRow = Worksheets("Sheet2").Cells(Rows.Count,1).End(xlUp).Row + 1 Set rngTarget = Worksheets("Sheet2").Range("A" & iRow)

Wenn der Vorgang abgeschlossen ist, zeigt die Variable rngTarget auf den Bereich von Zelle A in der ersten leeren Zeile. (In diesem Fall wird eine leere Zeile als jede Zeile definiert, die in Spalte A nichts enthält.)

Jetzt müssen Sie nur noch diese Quell- und Zielbereiche für die Copy-Methode verwenden:

Sub CopySource()

Dim rngSource As Range     Dim rngTarget As Range     Dim iRow As Integer

Set rngSource = Worksheets("Sheet1").Range("SourceData")

iRow = Worksheets("Sheet2").Cells(Rows.Count,1).End(xlUp).Row + 1     Set rngTarget = Worksheets("Sheet2").Range("A" & iRow)

rngSource.Copy Destination:=rngTarget End Sub

Beachten Sie, dass Sie bei den definierten Bereichen lediglich die Kopiermethode für den Quellbereich verwenden und den Zielbereich als Ziel für die Operation angeben müssen. Nach Abschluss befinden sich die Originaldaten noch im Quellbereich, wurden jedoch auf das Ziel kopiert.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (6131) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Daten zwischen Arbeitsblättern mit einem Makro übertragen.