Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bilder per Makro in andere Tabellenblätter kopieren (war: UFFFF)
#1
Hallo an alle hier. Ich bin völliger "Newbie" in Excel und versuche aus teilweise geklautem und teilweise gebautem Code ein Bild, dessen Pfad auf einem Worksheet steht, (hier Hoja6, Cell(2, 17)), in einem anderen Workshhet Hier Hoja5), 3 verschiedene Zellen, immer in derselben Zeile, aber einer anderer Spalte einzufügen.

Jetzt habe ich das Problem, dass Der Code mir immer wieder einen Fehler ausgibt: Fehler 91, Variable oder Block With nicht erstellt. Kann mir bitte jemand helfen? Ich wäre echt dankbar, mir raucht seit Tagen der Kopf. Huh  

Mein Ansatz sieht so aus:


Code:
Dim objPicture As Picture
        With Hoja5.Cells(2, 17)
        With objPicture = .Parent.Pictures.Insert(Hoja6.Cells(2, 17).Value)
        objPicture.Top = .Top
        objPicture.Left = .Left
        objPicture.Height = 92
        objPicture.Width = 92
        End With
        With Hoja5.Cells(1, 30)
        Set objPicture = .Parent.Pictures.Insert(Hoja6.Cells(2, 17).Value)
        objPicture.Top = .Top
        objPicture.Left = .Left
        objPicture.Height = 92
        objPicture.Width = 92
        End With
        With Hoja5.Cells(1, 53)
        Set objPicture = .Parent.Pictures.Insert(Hoja6.Cells(2, 17).Value)
        objPicture.Top = .Top
        objPicture.Left = .Left
        objPicture.Height = 92
        objPicture.Width = 92
        End With

End Sub
Antwortento top
#2
Hallo Pepe,

deinen überaus aussagefähigen Titel habe ich angepasst und ins richtige Forum verschoben.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antwortento top
#3
Hallöchen,

sicher wäre an dieser Stelle ein Set besser als ein With:

With objPicture = .Parent.Pictures.Insert(Hoja6.Cells(2, 17).Value)
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste