Beth fragte, wie die Farbformatierung einer externen Zelle in eine Zelle in der aktuellen Arbeitsmappe kopiert werden könne. Leider gibt es keine Möglichkeit, dies mithilfe der Verknüpfungsfunktionen von Excel zu tun. Sie können die Formatierung jedoch mithilfe eines Makros von einer Arbeitsmappe in eine andere kopieren.

Betrachten Sie als Beispiel den folgenden Makrocode:

Dim lMyColor As Long Workbooks.Open Filename:="C:\mypath\myworkbook.xlsm"

lMyColor = Range("A1").Interior.Color Windows("TargetBook.xlsm").Activate Range("E8").Interior.Color = lMyColor

Dieser Code öffnet eine Arbeitsmappe (myworkbook.xlsm) und übernimmt die Füllfarbe aus Zelle A1. Anschließend wechselt es zurück zur Zielarbeitsmappe (von der angenommen wird, dass dieser Code ausgeführt wird) und fügt die Füllfarbe in Zelle E8 ein.

Dieser Ansatz eignet sich hervorragend, wenn Sie die Füllfarbe von einer einzelnen Zelle in eine einzelne Zelle kopieren. Wenn Sie stattdessen einen Zellbereich kopieren oder mehr Formatierungen als nur die Füllfarbe kopieren möchten, ist dieser Ansatz möglicherweise besser geeignet:

Workbooks.Open Filename:= "C:\mypath\myworkbook.xlsm"

Range("A1:B6").Copy Windows("TargetBook.xlsm").Activate Range("E8").PasteSpecial Paste:=xlPasteFormats, _   Operation:=xlNone, SkipBlanks:=False, _   Transpose:=False

Dieser Code öffnet erneut die externe Arbeitsmappe. Anschließend wird die .Copy-Methode für eine Reihe von Zellen verwendet (A1: B6). Nach dem Wechsel zur Zielarbeitsmappe werden die Formate aus diesen Zellen ab E8 in die Zellen eingefügt.

Wenn Sie sich für die Verwendung von Code wie diesem entscheiden, können Sie ihn im Auto_Open-Makro für die Zielarbeitsmappe platzieren. Natürlich müssen Sie den Code so ändern, dass er auf die richtigen Pfad- und Arbeitsmappennamen sowie auf die gewünschten Quell- und Zielbereiche verweist.

_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.

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

Dieser Tipp (11169) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: