Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblatt kopieren aber leider ohne Bilder

Tabellenblatt kopieren aber leider ohne Bilder
05.02.2015 12:19:43
sampo0
Hallo Allerseits,
ich habe ein kleines Problem welches ich leider nicht rekonstruieren kann.
Ich habe mehrere Arbeitsmappen (A,B,C).
In einer "Master" Arbeitsmappe.
In der Master-Mappe gibt es eine Funktion, die alle Tabellenblätter aus den Tabellen A,B,C in eine neue Arbeitsmappe kopiert.
Dies mache ich einfach mit:

Set wsData = Workbooks.Open(fil.path)
wsData.Sheets("Vorderseite").Copy after:=wsNeu.Worksheets(tmpname)
ActiveSheet.name = Left(fil.name, 4) & "1"
ChangePrinter "Adobe PDF*"
ActiveSheet.PageSetup.PrintQuality = 600
wsData.Sheets("Rueckseite").Copy after:=wsNeu.Worksheets(Left(fil.name, 4) & "1")
ActiveSheet.name = Left(fil.name, 4) & "2"
ChangePrinter "Adobe PDF*"
ActiveSheet.PageSetup.PrintQuality = 600

Bei einem Nutzer ist es jetzt vorgekommen das keines der Bilder, die in den Tabellen sind, mitkopiert wurden.
Ich verstehe nicht wie es dazu kommen kann, da ich ja im Grunde nur .copy mache.
Die Bilder wurden vorher mit "Set shpNeu = wsVorderseite.Pictures.Insert(pathToJpg)" hinzugefügt.
Ich habe jetzt leider überhaupt keinen Ansatz wie ich diesen Fehler(wenn es denn einer ist) beheben kann, da ich es nicht schaffe, das die Funktion die Bilder NICHT mitkopiert oder auch nur einen google-Suchansatz der mich weiterbringen könnte.
mfg sampo0

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt kopieren aber leider ohne Bilder
09.02.2015 14:55:06
fcs
Hallo sampo,
der Kollegen hat für sein Excel wahrscheinlich -aus welchem Grund auch immer- die Excel-Option
Erweitert--Ausschneiden, Kopieren und Einfügen--Eingefügte Objekte mit übergeordneten Zellen auschneiden,kopieren und sortieren
deaktiviert. Evtl. hat er ja auch einen Grund dafür.
Du muss im Code Zeilen einbauen, die den eingestellten Wert merken, auf True setzen und nach Abschluss der Kopieraktionen auf den gemerkten Wert setzen.
Gruß
Franz
Sub CopyOptionSwitch()
Dim bolOptionCopyObjects As Boolean
With Application
'Objekt-Kopieroption merken und auf True setzen
bolOptionCopyObjects = .CopyObjectsWithCells
.CopyObjectsWithCells = True
End With
'Zell-/Blattkopieraktionen bei denen die Objekte (Bilder, Formen etc. mit kopiert werden  _
sollen
'Objekt-Kopieroption wieder auf den gemerkten Wert setzen
Application.CopyObjectsWithCells = bolOptionCopyObjects
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt kopieren, aber Bilder fehlen? So klappt's!


Schritt-für-Schritt-Anleitung

Um ein Tabellenblatt in Excel zu kopieren und dabei sicherzustellen, dass auch Bilder mitkopiert werden, kannst Du folgende Schritte befolgen:

  1. Öffne die Master-Arbeitsmappe und die Arbeitsblätter, die Du kopieren möchtest.

  2. Verwende den VBA-Code, um die Blätter zu kopieren. Achte darauf, die Option zum Kopieren von Objekten zu aktivieren.

  3. Füge den Code in ein neues Modul ein:

    Sub CopyWorksheetWithImages()
        Dim wsData As Worksheet
        Dim wsNeu As Workbook
        Dim tmpname As String
    
        ' Beispielname für das neue Arbeitsblatt
        tmpname = "NeuesBlatt"
        Set wsNeu = Workbooks.Add
    
        ' Arbeitsblatt kopieren
        Set wsData = ThisWorkbook.Sheets("Vorderseite")
        wsData.Copy after:=wsNeu.Sheets(wsNeu.Sheets.Count)
        ActiveSheet.Name = tmpname
    
        ' Bilder kopieren
        Application.CopyObjectsWithCells = True
        wsData.Pictures.Copy
        wsNeu.Sheets(tmpname).Paste
    End Sub
  4. Führe das Makro aus, um das Arbeitsblatt und die Bilder zu kopieren.


Häufige Fehler und Lösungen

Ein häufiges Problem ist, dass die Bilder beim Kopieren eines Arbeitsblatts in Excel nicht mitübertragen werden. Hier sind einige Lösungen:

  • Überprüfe die Excel-Optionen: Gehe zu Datei > Optionen > Erweitert und stelle sicher, dass die Option "Eingefügte Objekte mit übergeordneten Zellen ausschneiden, kopieren und sortieren" aktiviert ist.
  • Verwende den VBA-Code, um sicherzustellen, dass die Bilder mitkopiert werden:

    With Application
        .CopyObjectsWithCells = True
    End With

Wenn Du immer noch Probleme hast, könnte es sein, dass die Bilder als Grafiken eingefügt wurden, die nicht automatisch kopiert werden. In diesem Fall musst Du die Bilder manuell hinzufügen.


Alternative Methoden

Wenn Du ein blatt in Excel kopieren möchtest, ohne VBA zu verwenden, kannst Du die folgenden Schritte versuchen:

  1. Rechtsklick auf das Tabellenblatt und wähle "Verschieben oder Kopieren".
  2. Aktiviere das Kästchen "Eine Kopie erstellen".
  3. Wähle die Zielarbeitsmappe aus und klicke auf "OK".

Diese Methode kopiert normalerweise auch die Bilder, könnte jedoch bei umfangreichen Datenblättern nicht optimal sein.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du ein Excel-Blatt duplizieren kannst:

  • Kopieren eines gesamten Arbeitsblatts:
    Sheets("MeinBlatt").Copy After:=Sheets(Sheets.Count)
  • Kopieren und Umbenennen:
    Sheets("MeinBlatt").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Kopie von MeinBlatt"

In diesen Beispielen wird das Excel-Blatt kopieren ohne Verlust von Inhalten oder Bildern demonstriert.


Tipps für Profis

  • Nutze Shortcuts: Mit Strg + Drag kannst Du ein Blatt schnell duplizieren.
  • Bilder prüfen: Stelle sicher, dass alle Bilder in der Quelldatei korrekt verlinkt sind, bevor Du das Blatt kopierst.
  • Makros optimieren: Erstelle ein Makro, das mehrere Sheets auf einmal kopiert, um Zeit zu sparen.

FAQ: Häufige Fragen

1. Warum fehlen meine Bilder nach dem Kopieren eines Blattes? Die Bilder könnten nicht mitkopiert werden, wenn die Excel-Optionen nicht korrekt eingestellt sind. Überprüfe die Einstellungen unter Datei > Optionen > Erweitert.

2. Wie kann ich ein ganzes Arbeitsblatt kopieren, einschließlich aller Inhalte und Bilder? Verwende den oben genannten VBA-Code und stelle sicher, dass die Option zum Kopieren von Objekten aktiviert ist.

3. Gibt es einen Shortcut für das Kopieren eines Arbeitsblatts? Ja, du kannst ein Blatt kopieren, indem du es mit gedrückter Strg-Taste ziehst. Dies erstellt eine Kopie des Blattes in der gleichen Arbeitsmappe.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige