Bilder Excel einfügen

Question

Ich habe etwas gefunden aus Google das funktioniert aber nicht so richtig.

Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
Pfad = "C:\"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
Cells(Wiederholungen, 3).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Next
End Sub

Ich habe in Spalte A die Artikelnummer stehen die genau so bennant sind wie die
Bilder, jetzt müsste ich die 8000 Bilder über Makro abspielen das er den Pfad zum
direkten Bild dort einfügt.

Am besten wäre es Pfad vom FTP zu nehmen.

Sobald ich das Makro abspiele, macht er zwar etwas aber er fügt mir nichts ein.

Answer 1

Hab es jetzt hinbekommen, möchte aber nur das er den PFAD einfügt
und nicht ganze BILD. Jemand Lösung?

Answer 2

Hallo,

einen Hyperlink zum Bild kannst du wie folgt einfügen (hier in Spalte B):

Sub Hyperlink()

'Pfad zu den Bildern anpassen und ggf. Endungen der Bilder

For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(Wiederholungen, 2), _
Address:="C:\" & Cells(Wiederholungen, 1) & ".jpg", _
TextToDisplay:=Cells(Wiederholungen, 1) & ".jpg"
End With

Next Wiederholungen

End Sub

Gruß

M.O.

Answer 3

Da fügt er mir auch nur BILDER in die Spalte.
Ich möchte aber nur den Pfad dort drin stehen haben

z.B: H:/MAPCO/1test.jpg

Answer 4

Hallo,

ich weiß zwar nicht, welches Makro du getestet hast, aber mein gepostetes Makro fügt nur Hyperlinks ein.

Das folgende Makro fügt dir den Pfad ein:

Sub Pfad()

'Pfad zu den Bildern anpassen und ggf. Endungen der Bilder

For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
Cells(Wiederholungen, 2) = "H:/MAPCO/" & Cells(Wiederholungen, 1) & ".jpg"
Next Wiederholungen

End Sub

Gruß
M.O.