Lowell entwickelte ein Makro, um die Daten ausgewählter Zellen an einen bestimmten Ort in einem anderen Arbeitsblatt zu kopieren. Einige der Quellzellen enthalten Bilder, und er möchte, dass diese Bilder auch kopiert werden. Lowell fragt sich, wie er das Makro erkennen lassen kann, ob sich ein Bild in der Quellzelle befindet, und dann die Bilder zusammen mit den Daten in das neue Arbeitsblatt kopieren kann.

Wenn Sie die Kopiermethode mit dem Auswahlobjekt verwenden, können Sie alles – einschließlich Bilder – von Ihrer Quelle auf Ihr Ziel kopieren. Betrachten Sie das folgende kurze Makro:

Sub CopyPict()

Sheets("Sheet1").Select     Range("B3:F7").Select     Selection.Copy     Sheets("Sheet3").Select     Range("H8").Select     ActiveSheet.Paste End Sub

Angenommen, einige der Zellen im Quellbereich (B3: B7 auf Blatt 1) ​​enthalten Bilder, dann fügt die Einfügemethode diese in das Ziel ein (Zelle H8 auf Blatt 3). Diese Technik ist in der Tat die gleiche wie das manuelle Kopieren und Einfügen der Informationen.

Wenn Sie Informationen auf andere Weise identifizieren und verschieben (möglicherweise mithilfe einer Zwischenvariablen, anstatt in die Zwischenablage zu kopieren), ist es sehr wahrscheinlich, dass die Bilder nicht kopiert werden.

Wenn Sie die Daten vor dem Einfügen in das Ziel verarbeiten müssen, können Sie die oben gezeigte Einfügemethode verwenden, die Daten verarbeiten und wieder in die Zielzelle einfügen. Dadurch könnten die Bilder ungestört am Ziel bleiben.

_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 (11332) gilt für Microsoft Excel 97, 2000, 2002 und 2003.

Eine Version dieses Tippes für die Multifunktionsleistenoberfläche von Excel (Excel 2007 und höher) finden Sie hier:

Bilder mit einem Makro kopieren.