Office 2013 / Makro Bilder automatisch in eine Ecxeltabelle einfügen

[Lachy]

Hallo Zusammen,

ich möchte Bilder mit einer Bestimmten Nummer per Makro in eine Exceltabelle einfügen. Die gleiche Nummer ist auch ein einer Zelle in der Excel zu finden.

Jetzt hab ich mir nach längerem Surfen im Netz folgendes Makro gebastelt:

Sub Bilder_einfügen()
Dim Pfad As String
Dim strDatnam As String
Dim Wiederholungen As Long
On Error Resume Next
Pfad = "P:\EG-3-Proj\50_Prozessdoku\EG-35_Prozesse\Vorgabe_Doku_Versuche\Fotodokumentation\20_Reference Photos\Aktiv\"
For Wiederholungen = 1 To Range("A65536").End(xlUp).Row
 strDatnam = Pfad & Cells(Wiederholungen, 1).Value & ".jpg"
 ActiveSheet.Shapes.AddPicture strDatnam, msoFalse, msoTrue, Cells(Wiederholungen, 2).Left, Cells(Wiederholungen, 2).Top, 110, 80
Next
End Sub


Das funktioniert prinzipiell auch, nur habe ich das Problem das ich dauruf angewiesen bin das meine Referenz in Spalte A liegt und das Makro die Bilder in Spalte B einfügt.

Eingentlich sehen in Spalte N die Bezeichnungen und die Bilder sollen in Spalte C eingfügt werden.

Kann mir jemand mein o.g. Makro anpassen?

Vielen Dank vorab

VG

Markus

[maninweb]

Hallo,

Cells() hat die Syntax Cells(Zeilennummer, Spaltennummer), z.B. Spaltennummer von C = 3 und von N = 14.

Gruß

[Lachy]

Hi,

super danke, das hat mir geholfen 

VG