Henri möchte die in einer Quellzelle enthaltenen Daten in eine Zielzelle kopieren, ohne die aktuelle Position im Arbeitsblatt zu belassen.

Mit anderen Worten, er möchte von Zelle A1 in Zelle AE459 kopieren, ohne seine aktuelle Position bei V104 zu belassen. Er fragt sich, ob eine solche Bearbeitung überhaupt möglich ist.

Der offensichtliche Ansatz hierfür besteht natürlich darin, einfach die Formel = A1 in Zelle AE459 einzufügen. Anschließend sorgt Excel dafür, dass die beiden Zellen gleich sind. Sie können auch ein zweites Fenster im Arbeitsblatt öffnen und sich um das Kopieren in diesem Fenster kümmern. Die im ursprünglichen Fenster ausgewählte Zelle (Zelle V104) bleibt unverändert.

Wenn Sie jedoch tatsächlich einen „Kopiervorgang“ ausführen möchten, ohne ein zweites Fenster zu öffnen, müssen Sie auf ein Makro zurückgreifen.

Das Kopieren von einer Zelle in eine andere innerhalb eines Makros ist ziemlich einfach. Im folgenden Beispiel wird beispielsweise der Inhalt der Zelle A1 nach AE459 kopiert, ohne dass dies Auswirkungen auf die aktuell ausgewählte Zelle hat:

Sub CopyCell1()

'   Copy the cell value to destination cell     Range("AE459") = Range("A1")

End Sub

Wenn Sie eine Formel in Zelle A1 in das Ziel kopieren möchten, müssen Sie die Vorgehensweise beim Kopieren ändern. Insbesondere müssen Sie die Copy-Methode verwenden, wobei der Zielbereich als Parameter verwendet wird.

Sub CopyCell2()

'   Copy the relative formula to destination     Range("A1").Copy Range("AE459")

End Sub

Ein Nachteil dieser Makros ist natürlich, dass sie statisch sind – sie werden nur von Zelle A1 in Zelle AE459 kopiert. Wenn Ihre Kopieranforderungen variieren können, können Sie die Aufgabe im Direktfenster des VB-Editors ausführen. Öffnen Sie einfach den Editor und geben Sie die einzelne Zeile aus dem entsprechenden Makro in das Fenster ein. Das Kopieren ist dann abgeschlossen und Sie können den Editor schließen, ohne die ausgewählte Zelle zu beeinflussen.

Eine andere Möglichkeit, der Quelle und dem Ziel des Makros ein wenig Flexibilität zu verleihen, besteht darin, den Benutzer zur Eingabe von Quelle und Ziel aufzufordern. Das folgende Makro verfolgt diesen Ansatz.

Sub CopyCell3()

Dim SrceCell As String     Dim DestCell As String

SrceCell = InputBox("Copy From Cell ...")

DestCell = InputBox("Copy To Cell ...")

Range(DestCell) = Range(SrceCell)

End Sub

_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 (9949) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.