Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.10.2025 13:07:55
Excel-Blatt automatisch aktualisieren
06.10.2025 12:46:12
Mittelwert - Wert aus Formel übernehmen
06.10.2025 08:12:13
VBA - Von Word Doc in Excel Sheet schreiben
05.10.2025 23:18:01
Summewenns aber mit VBA
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild aus Tabelle kopieren und in andere

Forumthread: Bild aus Tabelle kopieren und in andere

Bild aus Tabelle kopieren und in andere
04.06.2021 10:42:25
Jörn
Hallo
Ich habe ein Problem mit dem auswählen eines Bereichs in dem ein Bild liegt.
Wenn ich den Makro Recorder laufen lasse, habe ich das Problem das der Bildname fest steht. Die Grafik Name ist aber jedes mal ein anderer.
Momentan benutze ich dazu folgenden Code um ein Bild deren Name mir nicht bekannt ist zu kopieren und einzufügen:

Sub UnterschriftenKopieren()
Dim Bild As Shape
For Each Bild In Sheets("K Sander-EB").Shapes
If Bild.TopLeftCell.Address = "$R$54" Then
Bild.Copy
With Sheets("K Dateninput-USV")
.Paste .Range("$W$68")
End With
End If
Next
End Sub
Leider ist es so das der Bereich in dem das Bild gesucht wird R54 ist. Eigentlich soll aber ein Bereich von R54 bis AG57 durchforstet werden.
Außerdem würde ich das Bild das im Bereich R54 bis AG57 liegt gern in seiner größe so verkleinern das es anstatt zB. 150x300 Pixel nur noch 100x200 hat.
Kann mir da jemand weiterhelfen? Am liebsten wäre mir ein Code Schnipsel, da ich nicht so versiert bin.
(PS ich habe nicht Cross Gepostet)
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild aus Tabelle kopieren und in andere
04.06.2021 11:51:46
volti
Hallo Jörn,
vielleicht hilft Dir diese Idee weiter....
Code:



[Cc]



Sub UnterschriftenKopieren()
  Dim Bild As Shape
  
  With Sheets("K Sander-EB")
     For Each Bild In .Shapes
        If Not Intersect(Bild.TopLeftCell, .Range("R54:AG57")) Is Nothing Then
           Bild.Copy
           Sheets("K Dateninput-USV").Select
           ActiveSheet.Paste
           With Selection.ShapeRange
               .LockAspectRatio = False
               .Left = Range("$W$68").Left
               .Top = Range("$W$68").Top
               .HEIGHT = 200: .WIDTH = 100
           End With
           Exit For
        End If
     Next Bild
  End With

End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Bild aus Tabelle kopieren und in andere
04.06.2021 12:20:51
Jörn
1000 Dank, es funktioniert super ;-)
AW: Bild aus Tabelle kopieren und in andere
04.06.2021 12:29:12
volti
Hallo Jörn,
vielen Dank für die Rückmeldung.
Dann sollte der Beitrag nicht mehr als offen gekennzeichnet sein :-)
Gruß KH
AW: Bild aus Tabelle kopieren und in andere
04.06.2021 13:03:50
Jörn
Ok ich hatte überlesen das der Haken "NICHT Beantwortet" bedeutet... mein fehler
Noch ne Kurze Frage... Wenn sich KEIN Bild im gesuchten Bereich befindet dann gibt es eine Fehlermeldung. Kann man das umgehen?
Danke
Anzeige
AW: Bild aus Tabelle kopieren und in andere
04.06.2021 13:25:04
volti
Hallo Jörn,
bei mir kommt kein Fehler, auch ohne Bild nicht...
Fehler kann man abfangen, z.B. wie in diesem Beispiel.
Code:



[Cc][+][-]



Option Explicit

Sub UnterschriftenKopieren()
  Dim Bild As Shape
  
  On Error GoTo Fehler
  With Sheets("K Sander-EiB")
     For Each Bild In .Shapes
        If Not Intersect(Bild.TopLeftCell, .Range("R54:AG57")) Is Nothing Then
           Bild.Copy
           Sheets("K Dateninput-USV").Select
           ActiveSheet.Paste
           With Selection.ShapeRange
               .LockAspectRatio = False
               .Left = Range("$W$68").Left
               .Top = Range("$W$68").Top
               .Height = 200: .Width = 100
           End With
           Exit For
        End If
     Next Bild
  End With
  Exit Sub
  
Fehler:
 MsgBox "Es ist der Fehler '" & Error & "' aufgetreten!", vbCritical, "Fehler"
  

End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Bild aus Tabelle kopieren und in andere
04.06.2021 13:29:24
volti
Hallo Jörn,
bei mir kommt kein Fehler, auch ohne Bild nicht...
Fehler kann man abfangen, z.B. wie in diesem Beispiel.
Code:



[Cc][+][-]



Option Explicit

Sub UnterschriftenKopieren()
  Dim Bild As Shape
  
  On Error GoTo Fehler
  With Sheets("K Sander-EiB")
     For Each Bild In .Shapes
        If Not Intersect(Bild.TopLeftCell, .Range("R54:AG57")) Is Nothing Then
           Bild.Copy
           Sheets("K Dateninput-USV").Select
           ActiveSheet.Paste
           With Selection.ShapeRange
               .LockAspectRatio = False
               .Left = Range("$W$68").Left
               .Top = Range("$W$68").Top
               .Height = 200: .Width = 100
           End With
           Exit For
        End If
     Next Bild
  End With
  Exit Sub
  
Fehler:
 MsgBox "Es ist der Fehler '" & Error & "' aufgetreten!", vbCritical, "Fehler"
  

End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Bild aus Tabelle kopieren und in andere
04.06.2021 17:17:31
Jörn
Und wieder einmal kann ich mich nur bedanken... es läuft tadellos ;-)
;

Forumthreads zu verwandten Themen

ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Tabelle mit eingebetteten Makro kopieren
köhler

Hallo!
Wenn ich in der Tabelle ein Makro eingebettet habe, dann wird beim Kopieren zu einer neuen Datei das Makro nicht mehr mit dem Button angesteuert. Das Makro wurde mitkopiert aber der Button hat dann ein Bezug auf die "alte" Datei, von der ich das Tabellenblatt kopiert habe.
Wie k...
08.01.2009 12:33:58
Thread-ID: 1037865
6 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
Anzeige
Arbeitsblatt kopieren ohne Quellcode
Oliver

Hallo zusammen,
ich habe gerade in mühsamer Arbeit folgenden Code zum Ablegen von Sheets in Workbooks zusammengeschustert:
Dim strDatei As String
strDatei = "Ablage.xls"
Set wksMappeZ = Workbooks.Open(strDatei)
Set wksMappeQ = ThisWorkbook
wksMappeQ.Sheets("Kalkulation")...
24.02.2009 14:58:21
Thread-ID: 1053533
4 Beiträge
Blatt kopieren mit VBA
Torsten

Hallo beisammen,
wie muß der Code vervollständigt werden, wenn ich das gerade aktive Blatt kopieren und immer an die letzte Position einfügen möchte?
Vielen Dank für Eure Tipps.
Gruß
Torsten
06.03.2009 16:36:27
Thread-ID: 1057377
5 Beiträge
Tabelle mit var. Inhalt kopieren
Robbie

Hallo zusammen, ich mal wieder ein Problemchen.
Ich habe ein Makro laufen das mit Excel 2003 erstellt wurde. Der Tabelleninhalt sol kopiert werden, der aber unterschiedlich lang ist. Nun hatte ich dies immer mit dem folgenden Code markiert:
Range("A2", Range("p65536").End(xlUp)).Select<...
20.03.2009 10:06:08
Thread-ID: 1062062
5 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
Blätter markieren und kopieren mit UF
marcl

Hallo zusammen,
ich möchte in einer UF alle Blätter der Datei listen und in einer CHK-Box anhaken können. Danach sollen nur die Markiereten Blätter kopiert werden.
Wie kann ich das am Besten lösen?
Danke für jegliche Hilfe.
Gruß
marcl
27.07.2009 14:34:40
Thread-ID: 1091619
6 Beiträge
Tabellenblätter kopieren und speichern
Bastian

Hallo zusammen,
da ich nach langem suchen nicht weiterkomme, hoffe und denke ich, dass mir weitergeholfen werden kann.
Kurz zu meinem Hintergrund: Nachdem ich Excel jahrelang eher zu Erstellung meines Stundenplans an der Uni genutzt habe, arbeite ich seit ca. 2 Jahren etwas intensiver d...
16.09.2009 10:01:09
Thread-ID: 1103108
6 Beiträge
Anzeige
Tab.Blatt Kopieren und Name mit F1 | Herbers Excel-Forum
Heinz H
Hallo Leute
Im unteren Makro möchte ich Ein Tab.Blatt kopieren,
in F1 (Steht Datum zB. 01.03.2009) um ein Monat hochzählen.
Beim Kopieren in F1 (Zb.01.04.2009)
Leider läuft es nicht wie gewollt.
Könnte mir bitte jemand schreiben wo der Fehler liegt.
Fehlermeldung kommt bei "...
16.01.2010 19:23:16
Thread-ID: 1130502
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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