Hallo Zusammen,

Ich habe eine Excel Tabelle (Excel 2007) mit 3000 Artikel, Spalte A = Artikel Nr. und Spalte B da sollte ich einen Bild einfügen (per VBA). Die Bilder haben den gleichen Name wie die Artikel Nr. und befindet sich in einem Ordner auf dem Server.

Ich habe diesen Code in Internet gefunden, den Loup lauft aber ich sehe keine Bilder, kann mir vielleicht jemand helfen?
Vielen vielen Dank

Option Explicit

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